I am trying to parse in Delphi xml like this:
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<soap:Fault>
<faultcode>soap:Server</faultcode>
<faultstring>java.lang.ClassNotFoundException</faultstring>
</soap:Fault>
</soap:Body>
</soap:Envelope>Delphi code:
program TestXML;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.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);
except
on E:exception do Writeln(E.Message); // "Node "faultcode not found".
end;
finally
CoUnInitialize;
end;
end.