2024年4月19日发(作者：)

TXMLDocument 的使用

var

XMLDoc:TXMLDocument;

XMLNode: IXMLNode;

child: IXMLNode;

begin

CoInitialize(nil); //初始化ActiveX

XMLDoc:=(nil);

:= true;

XMLNode := ld('ConsumeRec');

child := ld('EventsDateTime');

:= dateTostr(Now);

File('c:');

; //不能用，因为接口自动释放内存。

CoUninitialize;

end;

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

参考：/logs/

{ 读取XML }

var

XML : TXMLDocument;

Node1 : IXMLNode;

DocIntf : IXMLDocument;

begin

XML := (nil);

DocIntf := XML; //防止接口被自动释放，少了这一句会发生AV

try

omStream(Strem);

:= True;

{ 读ReportObject属性 }

Node1 := de('ReportObjectProperty');

ReportName := de('ReportName').GetAttributeNS('Value', '');

ReportType := de('ReportType').GetAttributeNS('Value', '');

DataViewName :=

de('DataViewName').GetAttributeNS('Value', '');

SQLStr := de('SQLStr').GetAttributeNS('Value', '');

finally

XML := nil;

DocIntf := nil;

end;

end;

注意接口与对象的释放。