delphi nativexml多级xml结构

时间:2012-10-13 09:18:05

标签: delphi xmpp nativexml

我使用直播xml结构,我应该检查收到的xml数据,希望选择哪种方式,问题是xml流是多级的,如下图所示,所有我测试坚持第一阶段

服务器响应xml:

<?xml version='1.0' encoding='UTF-8'?>
<stream:stream xmlns:stream="http://etherx.jabber.org/streams" xmlns="jabber:client" from="messenger.tashbik.com" id="40d07647" xml:lang="en" version="1.0">

<stream:features>
<starttls xmlns="urn:ietf:params:xml:ns:xmpp-tls"></starttls>
<mechanisms xmlns="urn:ietf:params:xml:ns:xmpp-sasl">
<mechanism>DIGEST-MD5</mechanism>
<mechanism>PLAIN</mechanism>
<mechanism>CRAM-MD5</mechanism>
</mechanisms>

<compression xmlns="http://jabber.org/features/compress">
<method>zlib</method>
</compression>

<auth xmlns="http://jabber.org/features/iq-auth"/>
<register xmlns="http://jabber.org/features/iq-register"/>
</stream:features>

如何从上到下检查所有xml流并访问我想要的任何级别?例如,我想访问流:功能级别以检查可用的期货,我也想跳转到压缩级别进行检查。

我使用NativeXML 4.04

1 个答案:

答案 0 :(得分:2)

如何访问特定节点的子节点列表?

列出特定节点的子节点的方法有很多种。最容易看到的是通过路径查找节点并遍历Containers索引属性。在以下示例代码中,您可以看到如何从/stream:stream/stream:features节点路径迭代所有节点:

uses
  NativeXml;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Node: TXMLNode;
  NativeXML: TNativeXML;
begin
  NativeXML := TNativeXML.Create(nil);
  try
    NativeXML.LoadFromFile('c:\Response.xml');
    if Assigned(NativeXML.Root) then
    begin
      Node := NativeXML.Root.FindNode('/stream:stream/stream:features');
      if Assigned(Node) then
        for I := 0 to Node.ContainerCount - 1 do
          ShowMessage(UTF8ToString(Node.Containers[I].Name));
    end;
  finally
    NativeXML.Free;
  end;
end;

如何按名称获取某个节点的子节点?

在XML节点树中还有不止一种方法可以更深入。当您知道节点名称时,最简单的方法是使用NodeByName函数,该函数返回对子节点的引用,当它在父树的根中找到时,nil找不到它时。在下一个代码示例中,您可以看到如何使用NodeByName函数首先获取compression节点,然后从那里到达method节点并显示其值:

Node := NativeXML.Root.FindNode('/stream:stream/stream:features');
if Assigned(Node) then
begin
  Node := Node.NodeByName('compression');
  if Assigned(Node) then
  begin
    Node := Node.NodeByName('method');
    if Assigned(Node) then
      ShowMessage(UTF8ToString(Node.Value));
  end;
end;

与上一个示例中的节点相同,您也可以获得例如像这样使用直接路径:

if Assigned(NativeXML.Root) then
begin
  Node := NativeXML.Root.FindNode('/stream:stream/stream:features/compression/method');
  if Assigned(Node) then
    ShowMessage(UTF8ToString(Node.Value));
end;

以上选项并不是获取子节点的唯一方法,但它们应该足够至少作为起点。您还没有描述您要对该响应文件执行的操作,因此很难为您提供最佳方法(如果选择其中一个节点迭代或使用路径选择)。

我用于测试的原始XML文件:

<?xml version='1.0' encoding='UTF-8'?>
<stream:stream xmlns:stream="http://etherx.jabber.org/streams" xmlns="jabber:client" from="messenger.tashbik.com" id="40d07647" xml:lang="en" version="1.0">    
<stream:features>
   <starttls xmlns="urn:ietf:params:xml:ns:xmpp-tls"></starttls>
   <mechanisms xmlns="urn:ietf:params:xml:ns:xmpp-sasl">
      <mechanism>DIGEST-MD5</mechanism>
      <mechanism>PLAIN</mechanism>
      <mechanism>CRAM-MD5</mechanism>
   </mechanisms>
   <compression xmlns="http://jabber.org/features/compress">
      <method>zlib</method>
   </compression>
   <auth xmlns="http://jabber.org/features/iq-auth"/>
   <register xmlns="http://jabber.org/features/iq-register"/>
</stream:features>