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