简析Delphi中的XML编程

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

简析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^)/