Question

我试图像这样解析Delphi xml：

<?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>

德尔福代码：

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.

我猜问题是：父节点＆＃34;故障＆＃34;有名称空间＆＃34; http://schemas.xmlsoap.org/soap/envelope/＆＃34;并有前缀＆＃34; soap＆＃34;但是子节点＆＃34; faultcode＆＃34;没有命名空间，也没有前缀。

如何获得节点接口＆＃34; faultcode＆＃34;？

谢谢。

Answer 1

此代码可以正常工作：

Fault.ChildNodes.FindNode('faultcode', '');

其中第二个参数中的空字符串表示没有命名空间。

在Delphi中解析SOAP faultstring

1 个答案: