TXMLDocument 的使用

TXMLDocument 的使用

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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文件进行读取和写入

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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;