Delphi中的XML和库教程

前端之家收集整理的这篇文章主要介绍了Delphi中的XML和库教程前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我计划为应用程序添加XML支持,但我不熟悉Delphi中的XML编程。
基本上我需要创建基于XML节点的对象,并基于对象生成XML文件

我应该使用哪个XML组件库?有没有什么好的教程与XML与Delphi?

解决方法

您可以先看看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;

从那里拿走

原文链接:https://www.f2er.com/delphi/103483.html

猜你在找的Delphi相关文章