Question

这是我的代码的一个简短示例，但很好理解我的问题。

我有一个像这样的xml文件：

<root xmlns:h="http://www.w3.org/TR/html4/">
  <h:data>
   <first>one</first>
   <second>two</second>
  </h:data>
</root>

这是我在delphi中的代码：

procedure TForm1.Button1Click(Sender: TObject);
var
xnode: IXMLNode;
Doc: TXMLDocument;
FileName : String;
begin
    XMLFileName := 'D:\doc.xml';
     Doc := TXMLDocument.Create(Application);

    Doc.LoadFromFile(XMLFileName);
    Doc.Active := true;
    // not working xnode is nil
    xnode := Doc.DocumentElement.ChildNodes.FindNode('data');

    //this also doesn't work, xnode is also nil

    xnode := Doc.DocumentElement.ChildNodes.FindNode('h:data');
    Doc.Free;
end;

使用这个xml文件工作正常，但不幸的是我有一个我无法删除的命名空间：

<root xmlns:h="http://www.w3.org/TR/html4/">
  <data>
   <first>one</first>
   <second>two</second>
  </data>
</root>

我正在使用复杂的xml文件，我需要“FindNode”与NameSpace一起使用。

提前致谢！

Answer 1

您需要使用命名空间重载：

xnode := Doc.DocumentElement.ChildNodes.FindNode('h:data', 'http://www.w3.org/TR/html4/');

这将返回您要查找的节点。

如果要搜索根目录中的所有属性并读取命名空间，则可以执行以下操作：

type
  TNamespaceAttribute = record
    namespace: string;
    namespaceurl: string;
  end;

var
  attrlist: array of TNamespaceAttribute;
  cntr: Integer;
begin
  // This will read in the list of namespaces
  for cntr := 0 to Doc.DocumentElement.AttributeNodes.Count - 1 do
  begin
    if Doc.DocumentElement.AttributeNodes[cntr].Prefix = 'xmlns' then
    begin
      // Don't like doing this but it gets the idea across
      SetLength(attrlist, Length(attrlist)+1);
      attrlist[High(attrlist)].namespace := Doc.DocumentElement.AttributeNodes[cntr].LocalName;
      attrlist[High(attrlist)].namespaceUrl := Doc.DocumentElement.AttributeNodes[cntr].Text;
    end;
  end;

  // You can iterate through them like this to get all of the instances
  // of the data node, regardless of the namespace 
  for cntr := Low(attrlist) to High(attrlist) do
  begin
    xnode := Doc.DocumentElement.ChildNodes.FindNode(attrlist[cntr].namespace+':data', attrlist[cntr].namespaceurl);
    // Do something here
  end;
end;

Delphi IXMLNode FindNode不使用命名空间

1 个答案: