Utilisation de TxMldocument, Contrôle d'analyse XML à Delphi

Delphi 中 txmldocument 控件的用法

Delphi 中对 XML 文件的解析做的很好 ， 比直接使用 MS 的 MSXML2_TLB 中的接口要方便很多 ， 现称述于下面。

在讲之前先给出一个 XML 实例 ， 在讲某些部分是要结合实例比较容易理解。

1 <? Xml version = "1.0" Encoding = "gb2312"?> <! - 文档版本信息, 注释格式同 html ->

2 <xmlpackage>

3 <Clinetinfo IP = ”202.101. 100,90 ” handler = ”si” Unit = ”江苏网商软件” />

4 <Don>

5 <ID de ligne = ” 1 " name = "太阳" sexe = "男" age = "24" duty = "软件工程师" />

6 <Row Id = ” 2 ” name = "月亮" sexe = "女" age = "25" duty = "部门经理" />

7 <! - Données 中包含了元素 Row 的两个实例 ， 通过属性 id 予以区分 ->

8 </ data>

9 <Memo Longueur = ” 16 ” color = ”$ 0034494b”> Bonjour! Je suis yaya! </emo> <! - 这个元素中间包含的内容成为 Texte, 而且也含有两个属性 longueur ， couleur ， 当然也可以没有属性 ->

10 <Actions acition = ”Update / insert” /> <! - 该元素描述了一动作控制信息 ->

11 </ xmlpackage>

Txmldocument 控件提供了我们两种常用做法: 一、直接用这个类封装的属性和方法来读写 一、直接用这个类封装的属性和方法来读写 XML 文件 ， 我把它称为自己解析法；二、用控件提供的 Assistant de liaison des données XML 来创建一个适合用户自己的接口单元 ， 然后按照这个接口单元提供的许多接口来实现对同类 XML 文件的读写 ， 十分方便 ， 但有局限性 ， 我把它称为控件解析法。我重点讲第一种使用方法。

：

  下面我将按创建、读取、修改、添加和删除这五个动作来分三类讲述。

（ 1 ） 创建和添加 ：

首先要创建 XML 实例 ， 可以这样动态创建:

TxmlDocument.create ('f: / work / 费亚的文件 /task/xml/lab_xml/country.xml');

：

Xml: = txmlDocument.Create (nil);

Xml. Chargefromfile ('f: / work / 费亚的文件 /task/xml/lab_xml/country.xml');

当然也可以从 Internet 面板上拖放一个 TxMLDocument 控件 ， 然后再为 Nom de fichier 或 XML 属性赋值 ， 比如对象名仍然叫 XML （下都不说明都这样默认 ：:

Xml.filename: = f: / work / 费亚的文件 /task/xml/lab_xml/country.xml;

至于它的另一个属性 XML 是用来直接赋 XML 语言 ， 这个用法对我们暂不重要。创建完 XML 实例后要注意打开 ACTIVE 属性:

Xml.active: = true;

这样下面对文件的读写操作才有效。如果没有 XML 文件可以用来创建 XML 的实例 ， 即要建立 XML 文件 ， 可以选择在上面一句之后 ， 对 XML 实例操作 ， ：:

Xml.savetofile ('f: / work / 费亚的文件 /task/xml/lab_xml/country.xml');

下面就是创建节点了 ， 需要结合上面的 XML 文件实例来讲述。首先一个 XML 文件只能有一个根节点 ， 比如文件实例中 2 行的 XMLPACKAGE ：:

Var rootNode: xmlNode;

RootNode: = xml.createNode ('xmlpackage');

Xml. DocumentElement: = rootNode;

接着我们创建不同类型的子节点 ， 前面的实例中的第 9 行的节点比较有代表性 ， 它是一个带有文本的子节点 ， 同时又带有两个属性节点 ， 我们来看看它是怎么被创建的 ， ： ：

xml.active: = true;

xml.DocumentElement: = xml.Creenode ('xmlpacage');

接着我们创建 Mémo 子节点 ：

Var nœud: ixmlNode;

Node: = xml.createNode («Memo»);

xml.DocumentElement.ChildNodes.add (nœud);

这种创建儿子节点的方法比较好 ， 当然还可以:

xml.DocumentElement.addchild ('xmlpacage');

来创建 ， 建议使用第一种 ， Creenode 方法的用法是很丰富的 ， 主要看它的第二个参数 ， 上面其实是用了默认参数 ， ： ：

node.childnodes.add (xml.creenode ('Bonjour! Je suis yaya!', ntText));

注意 Creenode 方法的第二个参数 ， 我们继续看属性是怎么创建的:

node.attributeNodes.add (xml.creenode ('longueur', nttribute));

node.setAttribute («longueur», 16);

Node.AttributeNodes.Add (xml.Creenode ('Color', nttribute));

Node.SetAttribute ('Color', 0034494b);

：

xml.savetofile ('f: / work / 费亚的文件 /task/xml/lab_xml/test.xml');

xml.active: = false;

到此我们就结束了创建 ， 至于添加 ， °一目了然 ， 不再详述了。

（2） 读取和修改

读取比较简单 ， 主要是读取子节点的文本和属性值 ， 方法是比较简单 ， 关键就是要利用 ixmlNodelist 接口来提供的一些属性和方法来循环搜索到指定节点就 Ok 了。文本和属性值的读取方法在 Delphi 中提供的方法有很多 ， 我就讲一种: nodevalue 属性 ， 它是 ixmlnode 接口的一个属性 ， 它的值是 olevariant 类型 ， 意味着我们在 xml 文件里虽然都是存的字符串， 但 Delphi 会帮我们来转换数据格式 ， 比如有个属性节点叫 nœud:

Node.Nodevalue: = 16; // 16 是 entier 类型

虽然在 XML 文件中保存的是 ASCII 格式的 16 ， 但当我们要读取的时候 Delphi 还会帮我们换回来的 ， ： ：

Var len: entier;

Len: = node.Nodevalue;

当然我们要注意的就是 ， 用这种方法读取的时候最好先查看同一节点的 NODETYPE 属性 ， 因为有几种类型的节点避免发生异常 ， 对照如下 ：

上面讲的都是读和写节点的值 ， 有时候也要读和写节点名 ， 就要访问 Nodename 属性 ， 使用方法大概相同 ， 也要结合 nodevalue ： ：

读取就完了 ， 当然我们上面是通过接口的属性来做的 ， 接口也有方法来完成 ， 就不说了 ， 对上面的几个属性都是可读可写的 ， 所以修改也基本清楚了。

（3） 删除

删除主要给出了删除指定节点 ， 主要是看 ixmlNodelist 接口的几个方法 ， clairement 和 supprimer 方法 ， 其中前一个是全部清空 ， 后一个是删除指定的子节点 ， 这个方法是重载的 ， 可以按名字也可以按顺序号 ， 即 Count 属性 ， 非常方便！

：

为控件的 Nom de fichier 属性选择一个 XML 样板文件 ， 然后由击控件选择 Assistant de liaison des données XML… ， 在这个向导中间会创建一个 XDB 文件。在弹出的向导中 ， 第一页中 ， 可以看到 Delphi 已经帮你把 XML 文件中的各个节点对应到了接口 ， 这里你可以展开每个节点 ， 编辑每个节点的属性数据类型。单击 Suivant 到下一个配置页面 ， 这里你可以看到 Delphi 生成了各个节点接口的框架代码。 单击 Finsh 完成向导 ， 这样 Delphi 将生成一个 XDB 文件和与该 XML 文档结构对应的 XML 接口单元。再以后访问该类 XML 文件时 ， 只需要参照生成的 XML 接口单元里的方法和属性就：

var xml: ixmlxmlpackageType; // 通过向导生成的根接口

commencer

xml: = loadxmlpacage ('' f: / work / 费亚的文件 /task/xml/lab_xml/test.xml '); // 这个方法也是生成的接口单元中的。

xml.data.row [1] .name; // 比如我要取得 Données 下的第 2 个 Row 中的 Nom 属性。

很方便的 ， 完全可以只要一个这样的接口单元就可以了 ， 其它的什么都可以不要。接口单元中除了 chargexmlpacage 方法还有 newxmlpacage 方法和 getxmlpacage 方法 ， 这三个方法是可以用于获得刚开始的 xml实例对象的 ， 同时这个单元中所有新的接口也是继承 ixmlnode 接口的 ， 所以你不必担心方法不够用。当然只能访问类似结构的 XML 实例 ， 其它格式的要再重新创建一个对应的 XML 接口单元才可以。

： 2004-9-3

作者 ： 费亚