I am trying to parse in Delphi xml like this:
- xml version="1.0"encoding="UTF-8">
- xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
- soap:Server
- java.lang.ClassNotFoundException
- </soap:Envelope>
Delphi code:
- programTestXML;
- {$APPTYPE CONSOLE}
- {$R*.res}usesSystem.SysUtils,
- Xml.xmldom,
- Xml.XMLIntf,
- Xml.XMLDoc,
- ActiveX;
- var
- XMLDoc: TXMLDocument;
- Root,Body,Fault,Node: IXMLNode;
- begin
- CoInitialize(nil);
- try
- XMLDoc := TXMLDocument.Create(nil);
- XMLDoc.Options := XmlDoc.Options - [doNodeAutoCreate];
- XMLDoc.LoadFromFile('test.xml');
- Root := XMLDoc.DocumentElement;
- Body := Root.ChildNodes['Body'];
- Writeln(Body.NodeName);
- Fault := Body.ChildNodes['Fault'];
- Writeln(Fault.NodeName);
- try
- Node := Fault.ChildNodes['faultcode'];
- Writeln(Node.Text);
- excepton E:exceptiondo Writeln(E.Message); // "Node "faultcode not found".
- end;
- finally
- CoUnInitialize;
- end;
- end.
来源: http://www.bubuko.com/infodetail-2123186.html