xml - Delphi 中 XML 的库和教程

Question

我打算为应用程序添加 XML 支持，但我不熟悉 Delphi 中的 XML 编程。基本上我需要创建基于 XML 节点的对象并生成基于对象的 XML 文件。

我应该使用哪个 XML 组件库？是否有使用 Delphi 的 XML 的好的教程？

Answer 1

您可以从查看 Delphi 的 TXMLDocument 组件开始。这将为您提供使用 XML/DOM 的基础知识。它很简单，可以通过将其拖放到您的表单上来添加。它具有 LoadFromFile 和 SaveToFile 方法，并且易于导航。

但是，在某些时候您会用尽 TXMLDocument 的功能，尤其是当您想要使用 XPath 之类的东西时。

我建议您查看 IXMLDOMDocument2，它是 MSXML2_TLB 的一部分，例如

  XML := CreateOleObject('MSXML2.DOMDocument.3.0') as IXMLDOMDocument2;
  XML.async := false;
  XML.SetProperty('SelectionLanguage','XPath');

您需要将 msxmldom、xmldom、XMLIntf、XMLDoc 和 MSXML2_TLB 添加到您的使用部分。

那里有一些组件库，但我建议编写您自己的辅助类或函数。这是我们编写和使用的示例:

function XMLCreateRoot(var xml: IXMLDOMDocument2; RootName: string; xsl: string = ''; encoding: string = 'ISO-8859-1'; language: string = 'XPath'): IXMLDOMNode;
var
  NewPI:   IXMLDOMProcessingInstruction;
begin

  if language<>'' then
     xml.SetProperty('SelectionLanguage','XPath');

  if encoding<>'' then begin
     NewPI:=xml.createProcessingInstruction('xml', 'version="1.0" encoding="'+encoding+'"');
     xml.appendChild(NewPI);
  end;

  if xsl<>'' then begin
     NewPI:=xml.createProcessingInstruction('xml-stylesheet','type="text/xsl" href="'+xsl+'"');
     xml.appendChild(NewPI)
  end;

  xml.async := false;
  xml.documentElement:=xml.createElement(RootName);
  Result:=xml.documentElement;
end;

从那里拿走它。