XML简单操作(delphi)

最新推荐文章于 2021-08-10 10:02:39 发布

kevin

最新推荐文章于 2021-08-10 10:02:39 发布

阅读量670

点赞数

分类专栏：网络原理及应用文章标签： xml delphi string encoding internet

本文链接：https://blog.csdn.net/dreamtww/article/details/4382249

版权

网络原理及应用专栏收录该内容

3 篇文章 0 订阅

订阅专栏

<?xml version="1.0" encoding="GB2312"?> <XMLPackage> <ClientInfo IP="192.168.1.111" Handler="kevin" Unit="shenzhen kevin Home "/> <data> <row userId="1" userName="kevin" Age="25" duty="软件工程师"/> </data> </XMLPackage>

创建一个简单xml文件：

1、可以使用Internet控件面板上的TXMLDocumnet控件

2、写xml文件如下：

var
strFileName: string;
rootNode, ANode: IxmlNode;
begin
//创建XML文件
strFileName:= ExtractFilePath(Application.ExeName) + '/'+ XMLFILENAME;
XMLDoc.Active := true;
xmlDoc.Version := '1.0';
xmlDoc.Encoding := 'GB2312';

//创建根节点，定义根节点
rootNode := XMLDoc.CreateNode('XMLPackage');
XMLDoc.DocumentElement := rootNode;

ANode := rootNode.AddChild('ClientInfo');
ANode.SetAttribute('IP', '192.168.1.111');
ANode.SetAttribute('Handler', 'kevin');
ANode.SetAttribute('Unit', 'shenzhen kevin Home ');

ANode := rootNode.AddChild('data');
ANode := ANode.AddChild('row');
Anode.SetAttribute('userId', Edit1.Text);
Anode.SetAttribute('userName',Edit2.text);
Anode.SetAttribute('Age', Edit3.text);
Anode.SetAttribute('duty', Edit4.text);

XMLDoc.SaveToFile(strFileName);
XMLDoc.Active := false;
end;

3、读取xml 文件

var
strFileName: string
rootNode: IxmlNode;
begin
strFileName:= ExtractFilePath(Application.ExeName) + '/'+ XMLFILENAME;
XMLDoc.LoadFromFile(strFileName);
XMLDoc.Active := true;
rootNode := XMLDoc.DocumentElement;
//showmessage(IntToStr(rootNode.ChildNodes.Count));
showmessage(rootNode.ChildNodes.Nodes['ClientInfo'].GetAttribute('IP')) ;

memo.Clear;
memo.Lines.Add('[client Info] IP:'+ rootNode.ChildNodes.Nodes['ClientInfo'].GetAttribute('IP')
+' Handler:'+rootNode.ChildNodes.Nodes['ClientInfo'].GetAttribute('Handler')
+' Unit:'+rootNode.ChildNodes.Nodes['ClientInfo'].GetAttribute('Unit') );
end;

小结：

xml的操作其实比较简单清晰，重要的是节点区分大小写，如果节点名字

写的时候 1、active 2、版本 3、定义根节点 4、定义子节点 5、save

读的时候 1、Load 2、active 3、找到根节点