Delphi与XML
////////////////////////////////////////////////////////////////////////
创建IXMLDOMDocument对象的三种方法:
(1)[方法1] 直接创建 IXMLDOMDocument , 例(1)
uses msxml;
var DOC:IXMLDOMDocument;
doc := CoDOMDocument.create;
.....
Doc := nil;
A)doc.load(´C:\temp.xml´); //从文件载入
B) 动态创建
var aElement,aElement2: IXMLDOMElement; // [ aNode:IXMLDOMNode ==> .AppendChild() ]
//加入版本信息 ‘<?xml version="1.0" ?> ’
doc.AppendChild(doc.CreateProcessingInstruction(´xml´, ´version="1.0" encoding="GB2312"´));
(*)因为此函数返回结果不包含 ´encoding="GB2312"´ 故须保存前注意.
//加入根结点
doc.AppendChild(doc.CreateElement(´bootDocNode´)); //// == aElement
//加入子结点
aElement:=IXMLDOMElement(Doc.DocumentElement.AppendChild(Doc.CreateElement(´ChileNode1´)));
//设置接点属性
aElement.SetAttribute(´ID´, ´11´);
aElement.SetAttribute(´Units´, ´元/m2´);
//设置结点内容
aElement.AppendChild(Doc.CreateTextNode(´结点内容´));
