Delphi 中 TXMLDocument 控件的用法
Delphi 中对 XML 文件的解析做的很好，比直接使用 MS 的 MSXML2_TLB 中的接口要方便很多，现称述于下面。
在讲之前先给出一个 XML 实例，在讲某些部分是要结合实例比较容易理解。
1
2
1<xmlpackage>
2
33 <clinetinfo 100.90”="" handler="”si”" ip="”202.101." unit="”" ”="" 江苏网商软件=""></clinetinfo>
4
54 <data>
6
75 <row 1”="" age="24" duty=" 软件工程师 " id="”" name=" 太阳 " sex="”" ”="" 男=""></row>
8
96 <row 2”="" age="25" duty=" 部门经理 " id="”" name=" 月亮 " sex="”" ”="" 女=""></row>
10
117<!--data 中包含了元素 row 的两个实例，通过属性 id 予以区分 \-->
12
138 </data>
14
159 <memo $0034494b”="" 16”="" color="”" length="”">Hello! I am yaya! </memo> <!-- 这个元素中间包含的内容成为 Text, 而且也含有两个属性 length ， color ， 当然也可以没有属性 \-->
16
1710 <actions acition="”update/insert”/"> <!--— 该元素描述了一动作控制信息 \---->
18
1911 </actions></xmlpackage>
TXMLDocument 控件提供了我们两种常用做法：一、直接用这个类封装的属性和方法来读写 XML 文件，我把它称为自己解析法；二、用控件提供的 XML Data Binding Wizard 来创建一个适合用户自己的接口单元，然后按照这个接口单元提供的许多接口来实现对同类 XML 文件的读写，十分方便，但有局限性，我把它称为控件解析法。我重点讲第一种使用方法。
** 一、自己解析法： ** **
**
** ** 下面我将按创建、读取、修改、添加和删除这五个动作来分三类讲述。
** （ ** ** 1 ** ** ）创建和添加： ** **
**
首先要创建 XML 实例，可以这样动态创建：
TXMLDocument.Create(‘F:\Work\ 费亚的文件 \task\XML\lab_xml\country.xml’);
也可以这样动态创建：
Xml:= TXMLDocument.Create(nil);
Xml. LoadFromFile(‘F:\Work\ 费亚的文件 \task\XML\lab_xml\country.xml’);
当然也可以从 Internet 面板上拖放一个 TXMLDocument 控件，然后再为 FileName 或 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.CreateNode( 'XMLPacage' );
接着我们创建 memo 子节点：
Var node:IXMLNode;
node:=xml.CreateNode( 'memo' );
xml.DocumentElement.ChildNodes.Add(node);
这种创建儿子节点的方法比较好，当然还可以 :
xml.DocumentElement.AddChild( 'XMLPacage' );
来创建，建议使用第一种， CreateNode 方法的用法是很丰富的，主要看它的第二个参数，上面其实是用了默认参数，下面我再看看怎样创建这个子节点的文本的：
node.ChildNodes.Add(xml.CreateNode(' Hello! I am yaya! ',ntText));
注意 CreateNode 方法的第二个参数，我们继续看属性是怎么创建的：
node.AttributeNodes.Add(xml.CreateNode( 'length' ,ntAttribute));
node.SetAttribute( 'length' , 16 );
node.AttributeNodes.Add(xml.CreateNode( 'color' ,ntAttribute));
node.SetAttribute( 'color' , $0034494B );
最后别忘了保存哦：
xml.SaveToFile('F:\Work\ 费亚的文件 \task\XML\lab_xml\test.xml');
xml.Active:=false;
到此我们就结束了创建，至于添加，即插入节点，要插在指定节点后将上面的 add(const Node: IXMLNode) 方法换成 Insert(Index: Integer; const Node: IXMLNode), 其它用法也就一目了然，不再详述了。
** （ 2 ）读取和修改
**
读取比较简单，主要是读取子节点的文本和属性值，方法是比较简单，关键就是要利用 IXMLNodeList 接口来提供的一些属性和方法来循环搜索到指定节点就 OK 了。文本和属性值的读取方法在 delphi 中提供的方法有很多，我就讲一种： NodeValue 属性，它是 IXMLNode 接口的一个属性，它的值是 OleVariant 类型，意味着我们在 XML 文件里虽然都是存的字符串，但 delphi 会帮我们来转换数据格式，比如有个属性节点叫 node ：
Node.NodeValue:=16;//16 是 integer 类型
虽然在 XML 文件中保存的是 ASCII 格式的 16 ，但当我们要读取的时候 delphi 还会帮我们换回来的，只要这样就可以了：
Var len:integer;
Len:=node.NodeValue;
当然我们要注意的就是，用这种方法读取的时候最好先查看同一节点的 NodeType 属性，因为有几种类型的节点避免发生异常，对照如下：
NodeType
|
NodeValue
---|---
ntAttribute 属性节点
|
属性的值
ntElement 元素节点
|
如果这个节点没有子节点，就返回它的 TEXT ，否则有异常
ntText 文本节点
|
TEXT 的内容
上面讲的都是读和写节点的值，有时候也要读和写节点名，就要访问 NodeName 属性，使用方法大概相同，也要结合 NodeValue 来使用：
NodeType
|
NodeName
---|---
ntAttribute 属性节点
|
属性的名字
ntElement 元素节点
|
节点的名字
ntText 文本节点
|
‘ #text ’
读取就完了，当然我们上面是通过接口的属性来做的，接口也有方法来完成，就不说了，对上面的几个属性都是可读可写的，所以修改也基本清楚了。
** （ 3 ）删除 **
删除主要给出了删除指定节点，主要是看 IXMLNodeList 接口的几个方法， Clear 和 Delete 方法，其中前一个是全部清空，后一个是删除指定的子节点，这个方法是重载的，可以按名字也可以按顺序号，即 Count 属性，非常方便！
** 二、控件解析法： **
为控件的 FileName 属性选择一个 XML 样板文件，然后由击控件选择 XML Data Binding Wizard… ，在这个向导中间会创建一个 xdb 文件。在弹出的向导中， 第一页中， 可以看到 Delphi 已经帮你把 XML 文件中的各个节点对应到了接口，这里你可以展开每个节点，编辑每个节点的属性数据类型。单击 Next 到下一个配置页面，这里你可以看到 Delphi 生成了各个节点接口的框架代码。 单击 Finsh 完成向导， 这样 Delphi 将生成一个 xdb 文件和与该 XML 文档结构对应的 XML 接口单元。再以后访问该类 XML 文件时，只需要参照生成的 XML 接口单元里的方法和属性就能很方便的读取节点：
var xml :IXMLXMLPackageType; // 通过向导生成的根接口
begin
xml := LoadXMLPacage ( ' 'F:\Work\ 费亚的文件 \task\XML\lab_xml\test.xml ' ); // 这个方法也是生成的接口单元中的。
xml.Data.Row[1].name; // 比如我要取得 data 下的第 2 个 row 中的 name 属性。
很方便的，完全可以只要一个这样的接口单元就可以了，其它的什么都可以不要。接口单元中除了 LoadXMLPacage 方法还有 NewXMLPacage 方法和 GetXMLPacage 方法，这三个方法是可以用于获得刚开始的 XML 实例对象的，同时这个单元中所有新的接口也是继承 IXMLNode 接口的，所以你不必担心方法不够用。当然只能访问类似结构的 XML 实例，其它格式的要再重新创建一个对应的 XML 接口单元才可以。
时间： 2004-9-3
作者：费亚