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

前端之家收集整理的这篇文章主要介绍了利用XE7的OmniXML完成XML文件的处理,支持跨平台前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

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

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


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

几个参数说明:

  1. AppPath//可以由TPath.GetHomePath取出的,TPath为跨平台的路径生成函数
  1. TPath.DirectorySeparatorChar//路径分隔符,在windows是"\",在Android是"/"
  1. AppParamFileName//自己定义的放参数的文件名称

读取XML文件

  1. ifTFile.Exists(AppPath+TPath.DirectorySeparatorChar+AppParamFileName)then
  2. begin
  3. //加载XML文件
  4. XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
  5. XMLRoot:=XMLDoc.DocumentElement;
  6. ifXMLRoot<>nilthen
  7. begin
  8. XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
  9. ifXMLNode<>nilthen
  10. begin
  11. RememberMe:=XMLNode.AttributeNodes['RememberMe'].NodeValue;
  12. end;
  13. end;
  14. end
  15. else
  16. begin
  17. //没找到文件则创建
  18. CreateAppParamFile;
  19. RememberMe:=0;
  20. end;


创建XML文件

  1. //XML初始化
  2. XMLDoc.Active:=True;
  3. XMLDoc.Version:='1.0';
  4. XMLDoc.Encoding:='GB2312';
  5. //创建根节点
  6. XMLRoot:=XMLDoc.CreateNode('SoftPreferences');
  7. XMLDoc.DocumentElement:=XMLRoot;
  8. //创建节点
  9. XMLNode:=XMLDoc.CreateNode('LoginInfo');
  10. XMLDoc.DocumentElement.ChildNodes.Add(XMLNode);
  11. XMLNode.AttributeNodes.Add(XMLDoc.CreateNode('RememberMe',ntAttribute));
  12. XMLNode.SetAttributeNS('RememberMe','',0);
  13. ...
  14. XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
  15. XMLDoc.Active:=False;

保存XML文件

  1. XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
  2. XMLDoc.Active:=True;
  3. XMLRoot:=XMLDoc.DocumentElement;
  4. ifXMLRoot<>nilthen
  5. begin
  6. XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
  7. ifXMLNode<>nilthen
  8. begin
  9. XMLNode.SetAttributeNS('RememberMe',RememberMe);
  10. end;
  11. end;
  12. XMLDoc.SaveToFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
  13. XMLDoc.Active:=False;
原文链接:https://www.f2er.com/xml/293632.html

猜你在找的XML相关文章