接口:IXMLDocument
实例代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
XMLString :string;
IXMLDocumentInt :IXMLDocument;
nodeList: IXMLNodeList;
i :integer;
begin
XMLString := '<?xml version="1.0" encoding="UTF-8"?>'
+'<circuitdate>'
+'<circuit>'
+'<circuitCode>xml.circuit.circuitCode[i]</circuitCode>'
+'<circuitName>xml.circuit.aNode[i].aNodeName</circuitName>'
+'</circuit>'
+'<circuit>'
+'<circuitCode>xml.circuit.circuitCode[i]</circuitCode>'
+'<circuitName>xml.circuit.aNode[i].aNodeName</circuitName>'
+'</circuit>'
+'</circuitdate>';
IXMLDocumentInt:= LoadXMLData(XMLString);
nodeList := IXMLDocumentInt.DocumentElement.ChildNodes;
for i:=0 to nodeList.Count - 1 do
memo1.lines.add(nodeList[i].ChildNodes['circuitCode'].Text);
end;
此方法可用于处理WEB服务接口返回的XML串数据