TXMLDocument 的使用

转载于 2019-06-29 22:09:00 发布 · 783 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/p/11108064.html

本文详细介绍了在DELPHI环境下如何使用TXMLDocument类来动态创建、读取和写入XML文件，包括实例代码演示了如何初始化、添加节点、设置属性以及保存到文件的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TXMLDocument 的使用

TXMLDocument是DELPHI自带的操作XML的类。

需要它，需要引用单元： uses XMLDoc;

var
XMLDoc:TXMLDocument;
XMLNode: IXMLNode;
child: IXMLNode;
begin
CoInitialize(nil); //初始化ActiveX
XMLDoc:=TXMLDocument.Create(self);
XMLDoc.Active := true;
XMLNode := XMLDoc.AddChild('ConsumeRec');
child := XMLNode.AddChild('EventsDateTime');
child.Text := dateTostr(Now);
XMLDoc.SaveToFile('c:\ok.xml');
XMLDoc.Free;   //不能用，因为接口自动释放内存。
CoUninitialize;
end;

　　动态创建TXMLDocument对XML文件进行读取和写入

var
XML : TXMLDocument;
Node1 : IXMLNode;
DocIntf : IXMLDocument;
begin
XML := TXMLDocument.Create(self);
DocIntf := XML; //防止接口被自动释放，少了这一句会发生AV
try
    XML.LoadFromStream(Strem);
    XML.Active := True;
    { 读ReportObject属性 }
    Node1 := XML.DocumentElement.ChildNodes.FindNode('ReportObjectProperty');
    ReportName := Node1.ChildNodes.FindNode('ReportName').GetAttributeNS('Value', '');
    ReportType := Node1.ChildNodes.FindNode('ReportType').GetAttributeNS('Value', '');
    DataViewName := Node1.ChildNodes.FindNode('DataViewName').GetAttributeNS('Value', '');
    SQLStr := Node1.ChildNodes.FindNode('SQLStr').GetAttributeNS('Value', '');
finally
    XML := nil;
    DocIntf := nil;
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/11108064.html