Delphi - XML - 子节点 - 获取属性

Question

我正在尝试从 Twitteratom/xml 提要中获取正确的数据。 我在 txmldocument 中有 twitter 数据，并试图从中获取一些特定信息。

以下是数据的截断示例：

<entry>
  <link type="text/html" rel="alternate" href="http://twitter.com/blub/statuses/1501068" /> 
  <title>title of twitter post goes here</title> 
  <link type="image/png" rel="image" href="http://s3.amazonaws.com/twitter_production/profile_images/234870532/normal.jpg" /> 
</entry>

我遇到的问题是我正在尝试获取个人资料图像 url（第二个链接标记的 href 属性）。

如果我使用这样的代码：

i:=xmldocument1.DocumentElement.ChildNodes['entry'];
text:=(i.ChildNodes['link'].GetAttributeNS('href',''));

我得到的是第一个链接标记的 href 值，但我想要第二个链接标记，但我不知道具体该怎么做。 有人有什么想法吗？

谢谢。

Answer 1

您可以这样做：

i := xmldocument1.DocumentElement.ChildNodes['entry'];
text := (i.ChildNodes[2].GetAttributeNS('href','')); // notice the [2] index

因为 ChildNodes 是一个 IXMLNodeList 对象。 确保检查节点“2”是否存在以及它是否具有 type="image/png" 属性 - 始终验证您的数据。

这是Delphi文档的一部分，

property Nodes[const IndexOrName: OleVariant]: IXMLNode; default;

描述

Read Nodes 访问指定节点
在列表中。

IndexOrName 标识所需的
节点。 可以是

• 节点的索引，其中0是第一个节点的索引，1是第一个节点的索引
  第二个节点的索引，依此类推。
  Count 属性提供了一个上限
  绑定到您可以指定的索引。
• 列表中节点的 LocalName 属性。

如果 IndexOrName 未标识
列表中的节点，并且如果文档
包含此节点列表的父节点
在其中包含 doNodeAutoCreate
选项属性，然后是节点列表
尝试创建一个新节点
由 IndexOrName 指定的名称。 如果
节点列表无法创建新节点，
它引发了一个异常。

Answer 2

尼克的解决方案有效，但假设图像元素始终是第三个子节点。 如果由于某种原因不是这样，那么您将再次遇到问题。 更好的解决方案是循环遍历子节点并检查属性 type="image/png" 的节点。

EntryNode := xmldocument1.DocumentElement.ChildNodes['entry'];
for i := 0 to EntryNode.ChildNodes.Count do 
  if EntryNode.ChildNodes[i].HasAttribute('type') 
    and EntryNode.ChildNodes[i].Attribute['type'] = 'image/png' then 
    begin
      text := EntryNode.ChildNodes[i].Attribute['href'];
      Break;
    end;

Answer 3

*添加节点名称

EntryNode := xmldocument1.DocumentElement.ChildNodes['entry'];
for i := 0 to EntryNode.ChildNodes.Count do 
  if  EntryNode.ChildNodes[i].NodeName='link' 
    and EntryNode.ChildNodes[i].HasAttribute('type') 
    and EntryNode.ChildNodes[i].Attribute['type'] = 'image/png' then 
    begin
      text := EntryNode.ChildNodes[i].Attribute['href'];
      Break;
    end;