admin 管理员组文章数量: 1086019
2024年4月20日发(作者：java代码打包成apk)
Delphi 6 XML文件编程
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文件：2002/01/10 2002/01/31 2002/02/21
2002/03/14 2002/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文件(本例
为)。如果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为和将doAutoSave置为真)，就可
以激活TXMLDocument组件。激活之后，就可以遍历节点，读取和编辑数据。现在我们可
以在XMLDocument里访问各个节点(IXMLNode)，递归访问各节点的子节点。例如，可以
用一个按钮来获取第一个节点的元素值并将结果写入Memo：
procedure 1Click(Sender: TObject);
var Clinic: IXMLNode;
begin
Clinic := odes[0];
;
(odes['Title'].Text);
(odes['Date'].Text);
(odes['Topics'].Text)
end;
增加索引指针可以访问其它节点。下面的例子用"current"作索引，通过循环增加"current"的
值来遍历节点。我用try-except来防止循环出界。
procedure 2Click(Sender: TObject);
var Clinic: IXMLNode;
begin
Inc(current);
try
Clinic := odes[current];
;
(odes['Title'].Text);
(odes['Date'].Text);
(odes['Topics'].Text);
except on E: Exception do
(e)
end
end;
除了遍历节点之外，还可以修改子节点的值。下面的代码将第一个节点的标题值加上一个
"HOT"前缀。
procedure 1Click(Sender: TObject);
var Clinic: IXMLNode;
begin
current := 0;
Clinic := odes[current];
;
odes['Title'].Text := 'HOT:'+odes['Title'].Text;
(odes['Title'].Text);
(odes['Date'].Text);
(odes['Topics'].Text);
end;
还可以增删节点。下面的代码增加一个子节点并赋予缺省值：
procedure 1Click(Sender: TObject);
var Clinic: IXMLNode;
begin
Clinic := ld('Clinic');
odes['Title'].Text := 'Title';
odes['Date'].Text := 'Date';
odes['Topics'].Text := 'Topics';
end;
记住，我们已经将AutoSave设置为真。所以在XMLDocument对象或应用关闭时，任何变
化都将自动存盘。也可以调用File方法显式存盘。下一篇文章：
XML数据绑定 XMLDocument让我们能够访问XML节点并编辑节点。但我们只能与无类
型节点打交道，必须记住节点元素的名字。用上面的代码可以漂亮地处理小型的XML文件，
但是，Delphi如果只能处理这样简单的问题就不成其为Delphi了。运用XML的内容相关结
构可以做更高级的应用，这就是Delphi 6提供的XML数据绑定特性。我们将在下一篇文章
中论述。
版权声明：本文标题：Delphi 6 XML 文件编程 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1713574205a641453.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论