本帖最后由 群发软件 于 2017-8-6 23:07 编辑
Delphi程序如何操作XML文档终于有一个好的门路
Delphi7 支持对XML文档的操作，可以通过TXMLDocument类来实现对XML文档的读写。可以利用TXMLDocument把XML文档读到内存中，从而可以进行编辑、保存操作。TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的。对于DOM接口的实现有多种方式，Delphi支持的方式有：1)微软的MSXML SDK，这种方式是通过COM对象来实现；2) Apache 的Xerces的实现方式；3)另外一种是开源OpenXML实现方式。对于不同的接口实现方式可以通过设定TXMLDocument的DOMVender来进行控制。
支持XML的Delphi单元主要存在与…BorlandDelphi7SourceXml目录下，主要包括：XMLIntf，XMLDoc，xmldom，msxmldom，xercesxmldom，xdom，oxmldom等单元。
l XMLIntf――包括了Borland自己定义的XML文档的接口；
l XMLDoc――是对XMLIntf中所定义接口的Borland实现；
l Xmldom――定义了DOM（文档对象模型）接口，这里对DOM接口进行了Borland的实现；
l Msxmldom――实现微软对Xmldom中定义的接口的实现，主要调用微软的COM对象来实现，对Xmldom中定义接口的封装；
l Xercesxmldom――Borland通过Xerces XML DOM方式来实现对Xmldom中定义接口的封装；
l Oxmldom――Borland通过使用OpenXML来实现对Xmldom中定义接口的封装；
TXMLDocument类的属性，请参考Borland的帮助文件；
读写XML文档
l 读取XML文档
通常情况下不通过直接使用TXMLDocument对象来进行XML文件的读取，而是使用XMLDoc单元中提供的几个有用的函数来读取XML文档，这些函数包括：
function LoadXMLDocument(const FileName: DOMString): IXMLDocument;
function LoadXMLData(const XMLData: DOMString): IXMLDocument; overload;
function LoadXMLData(const XMLData: string): IXMLDocument; overload;
function NewXMLDocument(Version: DOMString = '1.0'): IXMLDocument;
可以看出这些函数全部返回的是IXMLDocument接口，得到了IXMLDocument接口在进行文档的操作；
这些函数都是通过创建TXMLDocument对象来实现对XML文档的读取的；其中NewXMLDocument仅仅创建一个IXMLDocument接口。
可以这样利用NewXMLDocument来读取XML文档：
XMLDoc := NewXMLDocument;
XMLDoc.LoadFromFile(FileName);
l 保存XML文档
可以通过下面的方式来保存XML文档：
XMLDoc := NewXMLDocument;
iRoot := IXMLDoc.CreateNode(‘TestXMLDocument’);
XMLDoc.DocumentElement := iRoot;
…
XMLDoc.SaveToFile(FileName);
可以看出通过接口来操作XML文档是非常方便的；
选用不同类型的XML解析方式
上面已经提到有三种方式实现DOM，也就是可以应用Borland提供的３种不同的XML解析器来对XML文档进行解析；
三种解析器
１、微软的解析器（MSXML SDK）
微软解析器主要应用在Windows中，在安装MSXML SDK的时候会安装解析器，同时IE浏览器也提供了解析器，这个解析器是一个COM。
２、Apache的Xerces解析器
Borland自己实现了一个Xerces解析器，这个可以通过调用xercesxmldom.dll模块来实现；如果使用这个解析器可能需要同应用程序一起进行分发xercesxmldom.dll，XercesLib.dll，CC3260MT.DLL三个DLL文件
３、OpenXML解析器
这个解析器的源代码存在于xdom.pas单元中，这个可以通过http://www.philo.de/xml/进行跟新下载，这个是一个德国人写的XML解析器；
使用不同解析器的比较
对于三种方式的解析器比较如下：
１、微软的解析器
微软的解析器当然好了，但是也不能排除存在的意外情况，在我个人的经验中，至少我们公司对于XML解析的方式，只有在IE6.0以上的版本才能够正常的工作；
至于，Borland同样是通过引入MSXML.DLL的接口来实现的，所以可以推理出，同样存在同样的问题；这个通过研究TMSDOMImplementation(msxmldom单元中)的实现方式可以得到证明，实现的过程中通过调用CoCreateInstance函数接口来实现解析的；
在发布解析XML的代码的时候可能就会存在由于IE的本版的不同，需要把IE6.0一同发布，比较麻烦；
２、Borland的Xerces解析器
这种方式的解析器是通过 LoadLibrary(PChar(LibName));函数，LibName的内容是xercesxmldom.dll（Windows平台），libxercesxmldom.so.1（Linux平台）。那么就需要随同应用程序一起发布的Dll,就包括了xercesxmldom.dll，XercesLib.dll，CC3260MT.DLL；
这个发布相对于发布不同版本的IE6.0来说要相对简单一些；
３、OpenXML解析器
由于存在xdom.pas单元，这个单元中包含了完全的XML解析的源代码，那么应用这种方式，可以避免软件发布的种种问题，这是由于解析的代码被静态编译在应用程序内部。唯一不好的地方就是应用程序的体积可能要大一些；
l 如何使用不同的解析器
我们可以写一个函数来使用不同的解析器；
function NewDiffXmlDocument(DOMVender: string;
Version: DOMString = '1.0'): IXMLDocument;
var
XMLDoc : TXMLDocument;
begin
XMLDoc := TXMLDocument.Create(nil);
XMLDoc.DOMVendor := GetDOMVendor(DOMVender);
Result := XMLDoc;
Result.Active := True;
if Version <> '' then
Result.Version := Version;
end;
其中DOMVender如果用Borland提供的三种方式进行解析的话，分别取值是：
Microsoft――存在于msxmldom.pas单元中的SMSXML常量；
Xerces――存在于xercesxmldom .pas单元中的SXercesXML常量；
OpenXML――存在于oxmldom.pas单元中的SOpenXML常量；
这个是由于在msxmldom，xercesxmldom，oxmldom三个单元的initailization部分，都通过调用RegisterDOMVendor函数，注册了不同的解析器接口；
当然，Borland同样提供了一种可以灵活进行扩展的机制来扩展用户自己的解析器，这个需要继承，TDOMVendor类(存在于xmldom单元中)。实际上，Borland自己就是通过这种方式来实现不同方式解析器的；具体的实现过程可以通过参考oxmldom单元中对xdom的封装；
有关许多接口，会需要通过xml进行数据交换，弄个例子，方便参考
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,XMLDoc,XMLIntf, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Xml: TXMLDocument;
Rootnode,node : IXMLNode;
begin
Xml := TXMLDocument.Create(nil);
// Xml.LoadFromFile('aaa.xml');
try
//加入版本信息 ‘<?xml version="1.0" encoding="GB2312" ?> ’
Xml.Active := True;
Xml.Version := '1.0';
Xml.Encoding :='GB2312';
Rootnode := Xml.CreateNode('CIF_INFO');
Xml.DocumentElement := Rootnode;
node := Xml.CreateNode('TXNCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '420001';
node := Xml.CreateNode('RESPCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '0000';
node := Xml.CreateNode('CIFID');
Rootnode.ChildNodes.Add(node);
node.Text := '0030209728';
node := Xml.CreateNode('RESCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '0000';
node := Xml.CreateNode('RESMSG');
Rootnode.ChildNodes.Add(node);
node.Text := '';
Xml.SaveToFile('aaa.xml');
xml.Active := False;
showmessage('创建成功！');
finally
Xml.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Xml: TXMLDocument;
Rootnode,node : IXMLNode;
nodelist:IXMLNodeList;
b,c,str :string;
i:Integer;
begin
Xml := TXMLDocument.Create(Application);
try
Xml.LoadFromFile('aaa.xml');
Xml.Active := True;
Rootnode := Xml.DocumentElement;
nodeList :=Rootnode.ChildNodes;
for i:=0 to nodelist.Count-1 do
begin
if Rootnode.ChildNodes.NodeValue = null then
begin
c:='空';
end
else
begin
c:= Rootnode.ChildNodes.NodeValue;
end;
str:=str+c+#13#10;
end;
//b := Rootnode.ChildNodes[ 'CIFID'].NodeValue;
Memo1.Lines.Add(str);
xml.Active := False;
finally
Xml.Free;
end;
end;
end.
创建XML文档，以及节点
------------------------------------------}
procedure TForm1.CreateXMLClick(Sender: TObject);
var
pNode,cNode: IXMLNode; {定义两个节点: 父节点、子节点}
begin
xmldcmnt1.XML.Clear;
xmldcmnt1.Active := True; {必须先激活}
xmldcmnt1.Version := '1.0'; {设置版本}
xmldcmnt1.Encoding := 'GB2312'; {设置语言}
pNode := xmldcmnt1.AddChild('科室名单'); {添加的第一个节点是根节点, 现在的 pNode 是根节点}
pNode.SetAttribute('备注', '测试'); {为根节点设置属性}
pNode := pNode.AddChild('人员'); {为根节点添加子节点, 现在的 pNode 是 "人员" 节点}
pNode.SetAttribute('职务', '科长'); {设置属性}
pNode.SetAttribute('备注', '正局级');
cNode := pNode.AddChild('姓名'); {为 pNode 添加子节点, 返回值 cNode 指向了新添加的节点}
cNode.Text := '张三';
cNode := pNode.AddChild('性别');
cNode.Text := '男';
cNode := pNode.AddChild('年龄');
cNode.Text := '34';
end;
<?xml version="1.0" encoding="GB2312"?>
<科室名单 备注="测试">
<人员 职务="科长" 备注="正局级">
<姓名>张三</姓名>
<性别>男</性别>
<年龄>34</年龄>
</人员>
</科室名单>
{-----------------------------------------
添加XML节点
------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
var
newNode, newNodeAdd: IXMLNode;
begin
newNode := xmldcmnt1.DocumentElement.AddChild('人员');
newNode.Attributes['职务'] := '秘书';
newNodeAdd := newNode.AddChild('姓名');
newNodeAdd.Text := '小翠';
newNodeAdd := newNode.AddChild('性别');
newNodeAdd.Text := '女';
Memo1.Lines := xmldcmnt1.XML; {查看}
{会在尾部增加:
<人员 职务="秘书"><姓名>小翠</姓名><性别>女</性别></人员>
}
end;
<?xml version="1.0" encoding="GB2312"?>
<科室名单 备注="测试">
<人员 职务="科长" 备注="正局级">
<姓名>张三</姓名>
<性别>男</性别>
<年龄>34</年龄>
</人员>
<人员 职务="秘书">
<姓名>小翠</姓名>
<性别>女</性别>
</人员>
</科室名单>
{-----------------------------------------
判断节点的类型
------------------------------------------}
//判断是否是支节点
procedure TForm1.Button1Click(Sender: TObject);
var
node: IXMLNode;
begin
node := xmldcmnt1.DocumentElement.ChildNodes[0]; {这是"人员"节点}
if node.HasChildNodes and not node.IsTextElement then
ShowMessage('是支节点'); {是支节点}
end;
//判断是否是叶节点
procedure TForm1.Button2Click(Sender: TObject);
var
node: IXMLNode;
begin
node := xmldcmnt1.DocumentElement.ChildNodes[0].ChildNodes[0]; {这是"姓名"节点}
if node.IsTextElement then
ShowMessage('是叶节点'); {是叶节点}
end;
//判断是否是文本节点
procedure TForm1.Button3Click(Sender: TObject);
var
node: IXMLNode;
begin
node := xmldcmnt1.DocumentElement.ChildNodes[0].ChildNodes[0].ChildNodes[0];
{这是"张三"那个文本节点}
if node.NodeName='#text' then
ShowMessage('是文本节点'); {是文本节点}
end;
//判断是否是空节点
procedure TForm1.Button4Click(Sender: TObject);
var
node: IXMLNode;
begin
node := xmldcmnt1.DocumentElement.ChildNodes[4];
{这是根节点下的第五个节点: "辅助人员", xml 中设为空}
if not node.HasChildNodes then
ShowMessage('是空节点'); {是空节点}
end;
{-----------------------------------------
NodeValue 和NodeName的区别
------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
var
node: IXMLNode;
begin
node := xmldcmnt1.DocumentElement;
node := node.ChildNodes[0]; {现在的 node 指向了第一个人员节点}
//属性值: NodeValue 是可读写的
ShowMessage(node.AttributeNodes[0].NodeValue); {科长}
node.AttributeNodes[0].NodeValue := '正科长';
ShowMessage(node.AttributeNodes[0].NodeValue); {正科长}
//属性名: NodeName 是只读的
ShowMessage(node.AttributeNodes[0].NodeName); {职务}
//node.AttributeNodes[0].NodeName := 'xxx'; {如果企图给属性名赋值会出错}
node := node.ChildNodes[0]; {现在的 node 指向了第一个人员"张三"的姓名节点}
//节点值: NodeValue 是可读写的
ShowMessage(node.NodeValue); {张三}
node.NodeValue := '张老三';
ShowMessage(node.NodeValue); {张老三}
//节点名: NodeName 是只读的
ShowMessage(node.NodeName); {姓名}
//node.NodeName := 'xxx'; {如果企图给节点名赋值会出错}
end;
{-----------------------------------------
某节点的上一个节点、下一个节点、父节点
------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
var
node,nodeX: IXMLNode;
begin
node := XMLDocument1.DocumentElement;
node := node.ChildNodes[1];
node := node.ChildNodes[1];
{现在的节点 node 指向了我们的例子中的第二个人员"李四"}
ShowMessage(node.ChildNodes[0].NodeValue); {女}
//获取该节点的上一个节点, 它上一个节点应该是李四的姓名
nodeX := node.PreviousSibling; {PreviousSibling}
ShowMessage(nodeX.NodeValue); {李四}
//获取该节点的下一个节点, 它下一个节点应该是李四的年龄
nodeX := node.NextSibling; {NextSibling}
ShowMessage(nodeX.NodeValue); {43}
//获取该节点的父节点
nodeX := node.ParentNode; {ParentNode}
ShowMessage(nodeX.NodeName); {人员}
end;
{-----------------------------------------
对象的 XML 属性
------------------------------------------}
//XMLDocument1 对象的 XML 属性
procedure TForm1.Button1Click(Sender: TObject);
begin
{前面我们经常用这句话, 因为这里的 Lines 与 XML 同属于 TStrings}
Memo1.Lines := XMLDocument1.XML;
{如果不怕麻烦, 这样写也可以:}
Memo1.Lines.Text := XMLDocument1.XML.Text;
{如果知道了这一点, 那 XML 属性的功能可就多了, 并且这里的 XML 属性是可写的}
{不过这里要谈的是节点的 XML 属性}
end;
//根节点的 XML 属性
procedure TForm1.Button2Click(Sender: TObject);
var
node: IXMLNode;
begin
{先看根节点: XMLDocument1.DocumentElement}
node := XMLDocument1.DocumentElement;
//Memo1.Lines := node.XML; {这一句会出错}
{因为节点的 XML 属性是 WideString 类型的, 应该这样:}
Memo1.Lines.Text := node.XML; {将会读出根节点与根节点包含的所有内容}
{还有一个更大的区别: 节点的 XML 是只读的!}
end;
//子节点的 XML 属性
procedure TForm1.Button3Click(Sender: TObject);
var
node: IXMLNode;
begin
node := XMLDocument1.DocumentElement;
node := node.ChildNodes[0];
Memo1.Lines.Text := node.XML; {会显示一个子节点的全部}
end;
//属性的 XML 属性
procedure TForm1.Button4Click(Sender: TObject);
var
node: IXMLNode;
begin
node := XMLDocument1.DocumentElement;
node := node.AttributeNodes[0]; {属性也是 IXMLNode 类型的}
ShowMessage(node.NodeName); {备注}
ShowMessage(node.NodeValue); {测试}
{用 XML 属性一次把他们都读出来:}
ShowMessage(node.XML); {备注="测试"}
end;
//叶节点的 XML 属性
procedure TForm1.Button5Click(Sender: TObject);
var
node: IXMLNode;
begin
node := XMLDocument1.DocumentElement;
node := node.ChildNodes[0];
node := node.ChildNodes[0];
node := node.ChildNodes[0]; {这就是叶节点了}
ShowMessage(node.XML); {张三}
{这时的 XML 属性和 Text 属性一样了}
ShowMessage(node.Text); {张三}
end;
1 四川茂县山体塌方 新闻 视频 图片 13775
四川茂县山体塌方 初步估计7000方左右
【四川茂县山体塌方 初步估计7000方左右】中新网8月6日电 据四川阿坝州公路局消息:今日15时45分,国道213线K769+700(茂县石大关旧关楼)发生山体高位坍方7000余...
2 女子狂撕咬宠物狗 新闻 视频 图片 3586
女子狂撕咬宠物狗将狗毛吐到地上 坐立不安状似嗑过药
一名女子抱着小狗骂骂咧咧,连咬小狗好几口,还把满嘴的狗毛吐到地上。小狗几次试图挣脱她的怀抱,都被拽了回来。视频发布者表示女子坐立不安,看起来像是磕了药。...
3 吉林千人同吃拌饭 新闻 视频 图片 60714
吉林千人同吃拌饭 原材料重达百斤盛放在巨型木锅中
导读:原标题:吉林千人同吃拌饭 原材料重达百斤盛放在巨型木锅中, 2017年08月6日,吉林省延吉市,“2017食运会美食嘉年华”正式启动,在食运会美食嘉年华活动现场...
4 郑州现最萌街道 新闻 视频 图片 39225
5 王毅会见朝鲜外相 新闻 视频 图片 17132
6 女学生网吧住一月 新闻 视频 图片 85235
7 泸州蚊子被热死 新闻 视频 图片 100623
8 游客行纳粹礼被捕 新闻 视频 图片 253641
9 日文游戏全网禁售 新闻 视频 图片 45054
10 藏快递车混入清华 新闻 视频 图片 87606
11 马蓉移民澳洲 新闻 视频 图片 63899
|( 京ICP备09078825号 )
发表于 2017-8-6 23:02:58
收藏
