Delphi中的XML库和教程

Question

Delphi中的XML库和教程

Har*_*riv 19 xml delphi

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

我应该使用哪个XML组件库？有没有关于Delphi的XML的好教程？

Answer 1

小智 17

您可以从查看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');

Run Code Online (Sandbox Code Playgroud)

您需要将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;

Run Code Online (Sandbox Code Playgroud)

从那里拿走它.