delphi中的XML解析控件TXMLDocument的用法_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

delphi中的XML解析控件TXMLDocument的用法

作者：闵涛文章来源：闵涛的学习笔记点击数：1651 更新时间：2009/4/23 18:31:37

Delphi中TXMLDocument控件的用法

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

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

1<?xml version="1.0" encoding="gb2312"?>

2<XMLPackage>

3 <clinetinfo ip=”202.101.100.90” handler=”si” unit=”江苏网商软件”/>

4 <data>

5 <row id=”1” name="太阳" sex=”男” age="24" duty="软件工程师"/>

6 <row id=”2” name="月亮" sex=”女” age="25" duty="部门经理"/>

7

8 </data>

9 <memo length=”16” color=” $0034494B”>Hello! I am yaya! </memo> <!-- 这个元素中间包含的内容成为Text,而且也含有两个属性 length， color，当然也可以没有属性 -- >

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

11</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文本节点