首页 > 代码库 > 利用XE7的OmniXML完成XML文件的处理，支持跨平台
利用XE7的OmniXML完成XML文件的处理，支持跨平台
OmniXML是XE7提供的新DOM，传说比ADOM还要快，实际操作确实如此，这次我们来做几个文件操作，
首先在控件页上加上TXMLDocument控件，然后给控件命名为XMLDoc，
修改DOMVendor属性为OmniXML即可完成，操作与原来一样，
另外还有MSXML和ADOM，MSXML只能在windows里面用，不能跨平台，就是说你的程序在Android或者iOS下可能出问题，虽然ADOM能够跨平台，但它的效率目前比较慢，下面是几个操作代码：
几个参数说明：
AppPath //可以由TPath.GetHomePath取出的，TPath为跨平台的路径生成函数
TPath.DirectorySeparatorChar //路径分隔符，在windows是"\"，在Android是"/"
AppParamFileName //自己定义的放参数的文件名称
读取XML文件：
if TFile.Exists(AppPath+TPath.DirectorySeparatorChar+AppParamFileName) then
begin
//加载XML文件
XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLRoot := XMLDoc.DocumentElement;
if XMLRoot<>nil then
begin
XMLNode := XMLRoot.ChildNodes['LoginInfo'];
if XMLNode<>nil then
begin
RememberMe := XMLNode.AttributeNodes['RememberMe'].NodeValue;
end;
end;
end
else
begin
//没找到文件则创建
CreateAppParamFile;
RememberMe := 0;
end;创建XML文件：
//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文件：
XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLDoc.Active := True;
XMLRoot := XMLDoc.DocumentElement;
if XMLRoot<>nil then
begin
XMLNode := XMLRoot.ChildNodes['LoginInfo'];
if XMLNode<>nil then
begin
XMLNode.SetAttributeNS('RememberMe','',RememberMe);
end;
end;
XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
XMLDoc.Active := False;
利用XE7的OmniXML完成XML文件的处理，支持跨平台
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。