利用XE7的OmniXML完成XML文件的处理，支持跨平台

发布时间：2020-12-16 01:53:48 所属栏目：百科来源：网络整理

导读：OmniXML是XE7提供的新DOM，传说比ADOM还要快，实际操作确实如此，这次我们来做几个文件操作，首先在控件页上加上TXMLDocument控件，然后给控件命名为XMLDoc，修改DOMVendor属性为OmniXML即可完成，操作与原来一样，另外还有MSXML和ADOM，MSXML只能在windo

OmniXML是XE7提供的新DOM，传说比ADOM还要快，实际操作确实如此，这次我们来做几个文件操作，

首先在控件页上加上TXMLDocument控件，然后给控件命名为XMLDoc，

修改DOMVendor属性为OmniXML即可完成，操作与原来一样，

另外还有MSXML和ADOM，MSXML只能在windows里面用，不能跨平台，就是说你的程序在Android或者iOS下可能出问题，虽然ADOM能够跨平台，但它的效率目前比较慢，下面是几个操作代码：

几个参数说明：

[delphi] view plain copy

AppPath//可以由TPath.GetHomePath取出的，TPath为跨平台的路径生成函数

[delphi] view plain copy

TPath.DirectorySeparatorChar//路径分隔符，在windows是""，在Android是"/"

[delphi] view plain copy

AppParamFileName//自己定义的放参数的文件名称

读取XML文件：

[delphi] view plain copy

ifTFile.Exists(AppPath+TPath.DirectorySeparatorChar+AppParamFileName)then
begin
//加载XML文件
XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLRoot:=XMLDoc.DocumentElement;
ifXMLRoot<>nilthen
begin
XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
ifXMLNode<>nilthen
begin
RememberMe:=XMLNode.AttributeNodes['RememberMe'].NodeValue;
end;
end;
end
else
begin
//没找到文件则创建
CreateAppParamFile;
RememberMe:=0;
end;

创建XML文件：

[delphi] view plain copy

//XML初始化
XMLDoc.Active:=True;
XMLDoc.Version:='1.0';
XMLDoc.Encoding:='GB2312';
//创建根节点
XMLRoot:=XMLDoc.CreateNode('SoftPreferences');
XMLDoc.DocumentElement:=XMLRoot;
//创建节点
XMLNode:=XMLDoc.CreateNode('LoginInfo');
XMLDoc.DocumentElement.ChildNodes.Add(XMLNode);
XMLNode.AttributeNodes.Add(XMLDoc.CreateNode('RememberMe',ntAttribute));
XMLNode.SetAttributeNS('RememberMe','',0);
...
XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLDoc.Active:=False;

保存XML文件：

[delphi] view plain copy

XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLDoc.Active:=True;
XMLRoot:=XMLDoc.DocumentElement;
ifXMLRoot<>nilthen
begin
XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
ifXMLNode<>nilthen
begin
XMLNode.SetAttributeNS('RememberMe',RememberMe);
end;
end;
XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLDoc.Active:=False;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!