简析Delphi中的XML编程

转载 2012年01月13日 17:04:08

======================================================
注:本文源代码点此下载
======================================================

简析delphi中的xml编程 2007-05-30 20:41

分类:delphi 字号: 大大  中中  小小 xml(extensible markup language可扩展标志语言)在近几年的信息类杂志、网站上可谓是最抢眼的一词。大大小小的信息产品都争相和它搭上关系,唯恐赶不及这辆快车。有着良好口碑的宝蓝 (borland)系列开发平台也不例外,从6.0版开始就集成了xml组件包,因其使用msxmldom解析器,相比于此前广泛应用的xmlparser解析器,msxmldom更显规范、中文兼容性更好(元素名、属性名均支持中文),很受开发者青睐。为帮助初学者快速掌握delphi中的xml编程,笔者特写此文,以供交流。

笔者通过一个读写xml文件的实例来说明xml编程的各个步骤,只需读者有结点、元素、属性的基本概念就能容易的理解本文。笔者所要读入的xml文件结构如下所示,命名为input.xml。

李华

14

6287555

张三

16

8273425

input.xml文件的第一行是xml的版本说明,属性encoding宣告使用何种字符集建立,默认以unicode 编码(utf-8 或utf-16),这里用中文gb2312码。第二行““是根元素。下面定义了两个学生元素,学生下面嵌套了三个子元素,是对学生的进一步说明。与之相对应的,我们在delphi中定义如下的学生数据结构,"//"后面的文字是对变量或语句的说明,下同。

tstudent = class {学生}

sex : string; //学生性别

name : string; //学生姓名

age : integer; //学生年龄

phone: string; //电话号码

end;

为了读写,我们需要放置两个txmldocument控件,在delphi vcl面板的internet标签页里那个标有xml字样的控件就是,当然此控件也可以动态创建,但需要包含必要的文件,这里为简单起见,我们直接放置在窗体上,分别命名为inxmldoc和outxmldoc,inxmldoc用于调入input.xml文件,outxmldoc用于暂存输出到output.xml的文档。

在窗体上放个按钮,我们把测试代码直接放置在按钮的单击事件里。先定义几个变量,用来保存临时信息,如下所示:

root : ixmlnode; //指向xml根结点

parent_node: ixmlnode; //指向学生结点

child_node : ixmlnode; //指向学生的子结点

student : tstudent; //存单个学生信息

list : tlist; //存学生列表

i : integer; //循环变量

我们先来读入xml文件,代码如下:

list := tlist.create; //初始化列表

inxmldoc.loadfromfile('input.xml'); //调入input.xml文件

root := inxmldoc.documentelement; //取xml文件的根结点,即“”

parent_node := root.childnodes.first; //使parent_node指向学生结点

while (parent_nodenil) do //循环取学生的各个子各点

begin

if (child_node.nodename = '姓名') then //判断是否为姓名结点

student.name := child_node.text //取姓名结点的值,取于name字段中

else if (child_node.nodename = '年龄') then //此行起后四行与前两行类似

student.age := strtoint(child_node.text)

else if (child_node.nodename = '电话') then

student.phone := child_node.text;

child_node := child_node.nextsibling; //顺序取下一个学生的子结点信息

end;

list.add(student); //把一个学生信息加入列表

end;

parent_node := parent_node.nextsibling; //顺序取下一个学生信息

end; 

到这儿,所有的学生信息都已存到list列表里面了,读者可以跟踪代码测试。

下面我们把list里的临时学生信息存到output.xml文件里,代码如下:

outxmldoc.active := true; //激活outxmldoc,自动初始化空的xml文档

outxmldoc.encoding := 'gb2312'; //设置字符集

root := outxmldoc.addchild('学生花名册'); //建根结点

for i := 0 to list.count - 1 do //循环取各个学生信息

begin

student := list.items[i]; //顺序取一个学生信息

if (student <> nil) then

begin

parent_node := root.addchild('学生'); //根结点后添加一个学生结点

parent_node.attributes['性别'] := student.sex; //给学生结点设置性别属性

child_node := parent_node.addchild('姓名'); //学生结点后添加一个姓名结点

child_node.text := student.name; //设置姓名的文本值

child_node := parent_node.addchild('年龄'); //此行起后四行与前两行类似

child_node.text := inttostr(student.age);

child_node := parent_node.addchild('电话');

child_node.text := student.phone;

end;

end;

outxmldoc.savetofile('output.xml'); //把组织好的xml文档存于output.xml文件中

outxmldoc.active := false; //钝化(关闭)outxmldoc

list.free; //最后释放保存临时学生信息的列表

好了,看看input.xml和output.xml内容是不是一样。是不是很简单呢?其实在c++ builder也有相同的组件,只需将pascal语法转换成c++语法,上面的代码就完全可以用了。

technorati: c#, xml

technorati 标签: xml


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/

相关文章推荐

Pygame游戏编程入门笔记

目录 1. Python游戏编程入门2. 建立开发环境3. 简单示例4. 绘制不同形状5. 事件监听举例6. 用pygame打印文本7. 键盘事件8. 鼠标事件9. 轮询键盘10. 轮询鼠标...

Delphi 读写XML文件方式

unit UCreateXML;//delphi 写xml文件方式 interface uses Windows, Messages, SysUtils, Variants, Classes,...

简析JAVA的XML编程

  • 2009年07月31日 15:54
  • 50KB
  • 下载

C++与Java混合编程简析

  • 2012年03月05日 13:44
  • 515KB
  • 下载

简析静态xml布局如何通过动态代码实现

先看一下xml代码:

GUI编程实例简析

  • 2013年06月28日 06:35
  • 317KB
  • 下载

Android XML文档简析

转载:http://www.cnblogs.com/huhx/p/AndroidXmlParse.html Pull解析的用法: START_DOCUMENT 文档开始的标签 文档开始时,...

简析XML和HTML的区别

总的而言,可以概括为: XML 被设计用来传输和存储数据。跨平台、跨应用程序。即使不兼容的系统,也可以访问XML文件,因为XML中是文本信息。...

Linux C编程学习--main()函数简析

提到C语言的函数,有太多内容要讲,今天我们要看的是main()函数。 main()函数时程序的入口点,任何程序都要有main()函数,一般大家都怎么写main()函数啊? main(); void m...

python网络编程及socket模块简析

socket模块中用于创建套接字的函数是socket(),语法是 socket(socket_family,socket_type,protocol=0) socket_family可以是...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:简析Delphi中的XML编程
举报原因:
原因补充:

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