使用Delphi解析XML 文档

在 Delphi 中解析 XML 文档，开发者通常会利用 DOM（文档对象模型）API，其中 `IXMLDocument` 是 Delphi 提供的一个核心接口，用于处理 XML 数据。本篇将详细介绍如何使用 `IXMLDocument` 解析 XML 文档，并提供相关的示例代码。 XML 解析分为两种主要方式：DOM 和 SAX。DOM 是将整个 XML 文档加载到内存中，形成一棵完整的对象树，方便开发者遍历和操作；SAX 则是事件驱动的解析方式，逐行读取 XML 文件，触发相应的事件回调。在 Delphi 中，DOM 方式的解析更常见，因为它提供了更直观的数据访问方式。 `IXMLDocument` 接口提供了以下关键属性和方法： 1. **Version**：表示 XML 文档的版本号，类型为 WideString。 2. **DocumentElement**：表示 XML 文档的根节点，类型为 `IXMLNode`。通过它，可以访问整个文档结构。 3. **ChildNodes**：表示当前节点的子节点集合，类型为 `IXMLNodeList`。这允许你遍历和访问子节点。 4. **Node[index 或 nodeName]**：通过索引或名称获取特定的子节点，类型为 `IXMLNode`。你可以通过这个属性获取节点的文本、属性等信息。 5. **Attributes**：返回一个 `IXMLNodeList`，包含了当前节点的所有属性。通过这个属性，可以轻松访问节点的属性值。 以下是一个使用 `IXMLDocument` 解析 XML 的示例代码： ```delphi var XMLDocument: IXMLDocument; XMLNode: IXMLNode; begin XMLDocument := TXMLDocument.Create('d:\test.xml'); XMLDocument.Active := True; // 访问根节点 XMLNode := XMLDocument.DocumentElement; // 输出根节点的名称和子节点数量 Memo1.Lines.Add('根节点的名字为: ' + XMLNode.Name); Memo1.Lines.Add('根节点下的子节点数目为: ' + IntToStr(XMLNode.ChildNodes.Count)); // 遍历子节点 XMLNode := XMLNode.ChildNodes.Node[2]; // 访问第三个子节点 Memo1.Lines.Add('根节点下的第三个子节点的名字: ' + XMLNode.Name); // 检查并输出属性 if XMLNode.HasAttribute('color') then Memo1.Lines.Add('该节点的属性 color: ' + XMLNode.Attribute['color']) else Memo1.Lines.Add('该节点没有属性 color, 或者大小写不正确!'); // 检查节点是否有文本内容 if XMLNode.IsTextElement then Memo1.Lines.Add('该节点包含有内容 Text: ' + XMLNode.Text) else Memo1.Lines.Add('该节点为非叶子节点, 不能包含内容 Text!'); // 清理资源 XMLNode := nil; XMLDocument.Free; XMLDocument := nil; end; ``` 此外，还可以通过 `IXMLNode` 的 `AttributeNodes` 属性来获取节点的所有属性。`AttributeNodes` 是一个 `IXMLNodeList`，包含了节点的所有属性节点。通过遍历这个列表，可以获取每个属性的名称和值： ```delphi var i: Integer; sltAttributeName, sltAttributeValue: TStringList; begin sltAttributeName := TStringList.Create; sltAttributeValue := TStringList.Create; for i := 0 to XMLNode.AttributeNodes.Count - 1 do begin sltAttributeName.Add(XMLNode.AttributeNodes.Nodes[i].NodeName); sltAttributeValue.Add(XMLNode.AttributeNodes.Nodes[i].NodeValue); end; // 处理属性名和值 // ... sltAttributeName.Free; sltAttributeValue.Free; end; ``` 对于格式固定的 XML 文档，可以设计更复杂的遍历逻辑来提取所需信息。例如，如果 XML 文档结构固定且具有特定的层级关系，可以递归地访问节点来提取数据。 Delphi 中的 `IXMLDocument` 提供了一种简洁且直观的方式来解析 XML 文档。通过理解并熟练掌握 `DocumentElement`、`ChildNodes`、`Node[index]` 和 `Attributes` 等属性，开发者可以高效地处理 XML 数据，满足各种应用需求。