Delphi 6 XML文件编程

原创 2002年04月01日 09:26:00
Delphi 6 含有许多更新更强的XML支持功能。Delphi早期版本中提到的XML只在说明MIDAS数据格式和XMLBroker组件(在ClientDataSet和ADODataSet组件中也提到过)。 Delphi 6提供的XML功能增加了XML文件编程,XML数据绑定向导,XML映象和BizSnap(SOAP/XML Web服务)。本文是三篇论述Delphi 6中XML功能系列文章的第一篇,论述Delphi 6中的XML文件编程(XML Document Programming)。 XML文件 就在前几年XML刚刚问世的时候,它就被赋予电子商务的世界语的美称,尤其在B2B(business-2-business)领域内更是如此。原因就是XML是个非常简单的而又是结构化的ASCII文本语言,任何人和任何事都能读懂它。与作为当前网页标准格式的HTML语言不一样。两者之间的不同之处在于:HTML要用预先定义的语法集来解释;XML文件虽然要遵循通用的语法规则,但真正的关键词(标记)则是由作者决定的。其含义可由DTD(Document Type Definition)文件或者现在更为流行使用的纲(Schema)来选择定义。使用DTD或Schema的XML文件可以说是一个自我解释的文件,在数据集成化和出错调整时都很有用。 XML的结构化模式使得数据和信息可以在应用程序之间相互传递(包括在多层应用的中间层之间,例如Delphi提供的功能)。它提供一个标准格式,对所用的通讯协议是透明的。这就是XML在电子商务应用的电子数据交换(Electronic Data Interchange, EDI)和B2B中扮演重要角色的原因。通过DTD或者Schema来“定义”(或检查)XML文件理所当然地使得任何人都可以与任何其它人和事交谈,只要使用恰当的的XML/DTD/Schema组合。现在越来越经常要求集成现有的系统,XML可能成为系统之间相互交谈和理解的“语言”。 本文不讨论涉及EDI或B2B的XML。但它引出三篇论及XML文件编程和Delphi 6的XML新特性的文章。 XML文件编程 Delphi 6 支持DOM解析,因此我们可以读(和翻译!)以及编辑任何XML文件,甚至在缺少了DTD或Schema的情况下,一如本文所示。我在本文创建了一个包含我的网页内容的小小的XML文件: <?xml version="1.0" standalone="yes" ?> dbExpress and DataSnap2002/01/10WebBroker/InternetExpress and WebSnap2002/01/31WebSnap and Adapters2002/02/21BizSnap and WebServices2002/03/14WebSnap and BizSnap2002/04/04 这个XML文件将作为这组系列文章的例子(本文以及后面的XML数据绑定和XML映像等文章里都会用到)。 TXMLDocument组件 要进行XML文件编程就要用到TXMLDocument组件(在Delphi 6组件栏的Internet标签里)。可以从那里拖拽一个组件到窗体或数据模块上。TXMLDocument组件有些值得一提的属性。显然,Active属性可以用于打开XML文件,但我们这会儿还用不上。DOMVendor属性定义了XML文件的解析器。在我的机器上,被置为"MSXML"。可以自己插入其它类型的DOMVendor(实际就是任何能够执行IDOMImplementation的接口组件)。在使用自己的DOMVendor组件前,要对它先进行注册。DOMVendor是一个全局变量,含有一个DOMVendor注册值表。这样第三方的DOMVendor可以在注册后加入这个表,让用户可以自行选择TXMLDocument的DOMVendor属性值。 TXMLDocument的第三个属性是FileName,指向XML文件(本例为clinics.xml)。如果XML文件并不是直接存在,而是通过其它转换获得,也可以设置这个属性值[译者注:只要使用的解析器支持,甚至可以指向一个URL]。这是在EDI和B2B里的基本用法,这种场合下往往不必[有时也不可能 - 译者]存储真正的XML文件。 NodeIndentStr属性决定子节点的后移位置,缺省值为二个空格,最多可选到八个空格。这个属性只有在选项里设置了doNodeAutoIndent标识为真(True)后才有效,这个标识的缺省状态为非真(False)。组件选项里还有其它标识,如NodeAutoCreate, AttrNull, AutoPrefix, NamespaceDecl和AutoSave。AutoSave使得组件在关闭时能够将XML文件发生的变动自动存盘。我觉得这是个非常好的特性,所以在我的例子里,我把它设置为真(它的缺省状态是非真)。 除了常规选项之外,XMLDocument组件还有解析选项,如ResolveExternals, ValidateOnParse, PreserveWhiteSpace和AsyncLoad,这些标识的意义从名字上就可以看出。 XMLDocument组件的最后一个属性是XML,指向一条XML的字符串(点击属性旁边的省略号可以编辑XML)。正如我前面说过的,这在B2B多层应用中是非常有用的。这时中间层往往接收从其它应用中得到XML字符串,就要对这些XML数据进行处理或“编程”。 XML文件编程 只要稍作设置(设置FileName为clinics.xml和将doAutoSave置为真),就可以激活TXMLDocument组件。激活之后,就可以遍历节点,读取和编辑数据。 现在我们可以在XMLDocument里访问各个节点(IXMLNode),递归访问各节点的子节点。例如,可以用一个按钮来获取第一个节点的元素值并将结果写入Memo: procedure TForm1.Button1Click(Sender: TObject); var Clinic: IXMLNode; begin Clinic := XMLDocument1.DocumentElement.ChildNodes[0]; Memo1.Lines.Clear; Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text) end; 增加索引指针可以访问其它节点。下面的例子用"current"作索引,通过循环增加"current"的值来遍历节点。我用try-except来防止循环出界。 procedure TForm1.Button2Click(Sender: TObject); var Clinic: IXMLNode; begin Inc(current); try Clinic := XMLDocument1.DocumentElement.ChildNodes[current]; Memo1.Lines.Clear; Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text); except on E: Exception do Memo1.Lines.Add(E.Message) end end; 除了遍历节点之外,还可以修改子节点的值。下面的代码将第一个节点的标题值加上一个"HOT"前缀。 procedure TForm1.Button1Click(Sender: TObject); var Clinic: IXMLNode; begin current := 0; Clinic := XMLDocument1.DocumentElement.ChildNodes[current]; Memo1.Lines.Clear; Clinic.ChildNodes['Title'].Text := 'HOT: ' + Clinic.ChildNodes['Title'].Text; Memo1.Lines.Add(Clinic.ChildNodes['Title'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Date'].Text); Memo1.Lines.Add(Clinic.ChildNodes['Topics'].Text); end; 还可以增删节点。下面的代码增加一个子节点并赋予缺省值: procedure TForm1.Button1Click(Sender: TObject); var Clinic: IXMLNode; begin Clinic := XMLDocument1.DocumentElement.AddChild('Clinic'); Clinic.ChildNodes['Title'].Text := 'Title'; Clinic.ChildNodes['Date'].Text := 'Date'; Clinic.ChildNodes['Topics'].Text := 'Topics'; end; 记住,我们已经将AutoSave设置为真。所以在XMLDocument对象或应用关闭时,任何变化都将自动存盘。也可以调用XMLDocument1.SaveToFile方法显式存盘。 下一篇文章:XML数据绑定 XMLDocument让我们能够访问XML节点并编辑节点。但我们只能与无类型节点打交道,必须记住节点元素的名字。用上面的代码可以漂亮地处理小型的XML文件,但是,Delphi如果只能处理这样简单的问题就不成其为Delphi了。运用XML的内容相关结构可以做更高级的应用,这就是Delphi 6提供的XML数据绑定特性。我们将在下一篇文章中论述。

DELPHI读写xml文件

有时,只需要用XML作一些小的应用,比如只是简单地保存日志或者一些配置,这时我们只需要直接读写XML就好,效率第一。 Delphi盒子有一个直接读写XML文件 (例子和代码),其核心函数为下面两个函...
  • my98800
  • my98800
  • 2016年06月29日 09:45
  • 1175

delphi 操作 XML (二)

四、符号引用(Symbol Reference) 4.1.类(Classes) 4.1.1.TComponentAccess类   TComponentAccess = class(TCompo...
  • lailai186
  • lailai186
  • 2014年05月21日 10:40
  • 2922

利用XE7的OmniXML完成XML文件的处理,支持跨平台

利用XE7的OmniXML完成XML文件的处理,支持跨平台
  • TiggerKiller
  • TiggerKiller
  • 2014年11月25日 15:30
  • 2946

Delphi 串口通信(1)

利用 Delphi实现串口通信的常用的方法有 3种: 一是利用控件,如 MSCOMM控件和 SPCOMM控件; 二是使用 API函数; 三是调用其他串口通信程序。其中利用 API编写...
  • lailai186
  • lailai186
  • 2013年08月02日 10:16
  • 4678

Delphi 文件处理实例(6)

取得该快捷方式的指向EXE 关键词:快捷方式 LNK implementation uses activex,comobj,shlobj; {$R *.dfm} function Reso...
  • lailai186
  • lailai186
  • 2013年04月10日 10:18
  • 2897

MyBatis对应xml映射文件l配置例子

MyBatis对应xml映射文件l配置例子
  • u011768325
  • u011768325
  • 2015年11月10日 15:43
  • 1133

几种编程语言的优缺点

圣经记载:在远古的时候,人类都使用一种语言,全世界的人决定一起造一座通天的塔,就是巴别塔,后来被上帝知道了,上帝就让人们使用不同的语言,这个塔就没能造起来。 巴别塔不建自毁,与其说上帝的分化将人类的语...
  • dbyoung
  • dbyoung
  • 2017年01月22日 09:57
  • 1289

Delphi直接读取XmL

有时,只需要用XML作一些小的应用,比如只是简单地保存日志或者一些配置,这时我们只需要直接读写XML就好,效率第一。  Delphi盒子有一个直接读写XML文件 (例子和代码),其核心函数为下面两个...
  • my98800
  • my98800
  • 2017年03月07日 08:28
  • 115

Delphi Socket 实现编程(6)

TClientSocket和TServerSocket的数据通知使用了Windwos下的消息通知机制,造成它们只适合针对窗口的WinForm程序,因为可以得到窗口的Handle句柄,用来postmes...
  • lailai186
  • lailai186
  • 2013年04月11日 15:58
  • 2327

Delphi Thread 多线程编程(6)

3. 线程中常见的问题。       1) 回调函数引起的死锁。       A回调线程B中的函数,而在线程B中,再去对线程A进行操作(比如删除A)。发生的现象:程序死掉。       2)...
  • lailai186
  • lailai186
  • 2013年04月09日 09:41
  • 5758
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 6 XML文件编程
举报原因:
原因补充:

(最多只允许输入30个字)