Delphi中使用TXMLDocument控件应注意的问题

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi中使用TXMLDocument控件应注意的问题相关的知识,希望对你有一定的参考价值。

今天写了一个类,其中用到了TXMLDocument控件。这个控件我是要动态生成的。

但是却遇到了非常奇怪的问题,下面分享一下

procedure TMainForm.Button1Click(Sender:TObject);

Var

  XML:TXMLDocument;

  I:Integer;

begin

  XML:=TXMLDocument.Create(nil);

  XML.LoadFromFile(ExtractFilePath(Application.ExeName)+‘demo.xml‘);

  XML.Active:=True;

  For I:=0 to XML.DocumentElement.ChildNodes.Count-1 do

  begin

     //do something

  end;

  XML.Free;

end;

 

问题就出现在了For 循环上,当点击按钮后 程序执行到For循环就卡死,没有错误提示,没有任何征兆。debug跟踪结果就是执行到这里后就停止不动了。曾经也用过很多次TXMLDocument控件,但都是直接拖动一个控件到窗体上,从来没有发生过这种事情,就为了解决这个问题我花了一上午的时间。后来吃完饭之后一个意外改动,解决了这个问题。

 

原来,问题并不出在任何语法错误,而是在TXMLDocument实例进行初始化构造的时候,参数错了。应该将参数设置为Application或者Self,这样就可以顺利执行了。在Delphi中很多控件的AOwer参数都是可以为nil的,不知道为什么TXMLDocument在这个参数上这么特殊。

 

如果确实要将TXMLDocument控件应用于单元,也可以这样来解决,就是通过传递参数的方法

 

首先要引用Classes,xmldom, XMLIntf, msxmldom, XMLDoc

 

然后在自定义类的构造函数中加一个AOwer:TComponent参数 形如

 

type

    TMyClass=Class(TObject)

    public

        constructor Create(AOwer:TComponent);OverLoad;

    end;

 

implementation

constructor TMyClass.Create(AOwer:TComponent;ConfigFile:WideString);
begin
  XML:=TXMLDocument.Create(AOwer);// 重点就在这
  XML.LoadFromFile(ConfigFile);
  // do something

  XML.Free;

end;

 

 

在调用这个类类时这样写

 

procedure TMainForm.Button1Click(Sender:TObject);

Var

  MyObject:TMyClass;

begin

  MyObject:=TMyClass.Create(self,ExtractFilePath(Application.ExeName)+‘demo.xml‘)

  //do something

  MyObject.Free;

end;

 

所用版本:Delphi 2007 Architect(with December 2007 update)

http://blog.csdn.net/chaijunkun/article/details/5407793

以上是关于Delphi中使用TXMLDocument控件应注意的问题的主要内容,如果未能解决你的问题,请参考以下文章

如何在 Delphi 中使用 TXMLDocument 将 Ansi 转换为 UTF 8

求教个Delphi上关于操作XML的控件Nativexml的问题

如何使用 TXMLDocument (Delphi 2006) 手动构建肥皂信封

Delphi中动态调用TXMLDocument的经历

在 TXMLDocument 中保留空格时出现 Delphi 异常

TXMLDocument 的使用