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

原创 2004年09月04日 18:31:00

DelphiTXMLDocument控件的用法<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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

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

1<?xml version="1.0" encoding="gb2312"?> <!--文档版本信息, 注释格式同HTML-->

2<XMLPackage>  

3  <clinetinfo ip=”202.101.<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />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<!--data中包含了元素 row的两个实例,通过属性id予以区分 -->

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控件,然后再为FileNameXML属性赋值,比如对象名仍然叫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;//16integer类型

虽然在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接口的几个方法,ClearDelete方法,其中前一个是全部清空,后一个是删除指定的子节点,这个方法是重载的,可以按名字也可以按顺序号,即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下的第2row 中的name属性。

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

                                                              时间:2004-9-3

                                                              作者:费亚

 

Delphi XMLDocument控件之XML实例

  • 2012年12月03日 11:48
  • 9KB
  • 下载

delphi控件使用

Standard页 1-      Tlistbox控件 重要属性items.* 举例,界面设计如下左,执行结果如下右:      代码为 procedure TF...
  • delphi308
  • delphi308
  • 2013年08月08日 21:07
  • 7769

delphi 控件大全(确实很全)

delphi 控件查询:http://www.torry.net/   http://www.jrsoftware.org Tb97 最有名的工具条(ToolBar)控件库,仿Off...
  • fishmai
  • fishmai
  • 2016年09月11日 08:15
  • 1541

常用的delphi第三方控件

本人正职非开发,仅仅为兴趣爱好而自学的,所以它是否没落对我影响不大,但是它的快速部署直接生成EXE的能力,大量的第三方控件辅助增强软件功能,可以说在C/S桌面应用上很少有软件做得到。     Alph...
  • wozengcong
  • wozengcong
  • 2013年12月04日 10:28
  • 2358

Delphi 第三方控件安装

1 只有一个DCU文件的组件。           DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出...
  • lailai186
  • lailai186
  • 2013年05月25日 15:57
  • 5765

我常用的delphi 第三方控件

有网友问我常用的控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。       Devexpress VCL 这个基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套...
  • chinajobs
  • chinajobs
  • 2016年06月28日 15:15
  • 2288

Delphi实现窗体控件自由移动

Delphi实现窗体控件自由移动 2008-04-25 16:22 在做Mis项目过程中,有时需要让用户自己来实现窗体控件的布局,比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能,必...
  • delphi308
  • delphi308
  • 2013年08月08日 21:10
  • 1435

delphi控件属性大全-详解-简介

button 组件: CAPTION 属性 :用于在按钮上显示文本内容 Cancel     属性:是否设置成默认的取消按钮,当设置为真的时候(true) 按ESC触发改按钮的事件...
  • u011096030
  • u011096030
  • 2014年01月23日 22:46
  • 2393

汇总Delphi第三方控件—报表、图表、界面、数据库

有网友问我常用的Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表: TeeChart Pro 在 delphi 的图形显示方面目前唯一的选择,虽然从de...
  • dyllove98
  • dyllove98
  • 2013年03月19日 16:19
  • 5635

使用Delphi调用条形码控件BarTender打印标签

1. 要实现的条形码功能 最近一个项目需要在扫描条码后按固定的格式打印。条形码打印控件客户习惯使用的是BarTender,使用Delphi调用BarTender来完成打印条码标签功能。此功能的重...
  • gjtao1130
  • gjtao1130
  • 2016年03月16日 10:39
  • 2566
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi中的XML解析控件TXMLDocument的用法
举报原因:
原因补充:

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