利用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;


阅读更多
个人分类: Delphi
上一篇国内首发,好不容易找到的李大师Delphi XE7的视频
下一篇XE7 Datasnap使用dbExpress连接MySQL数据库
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭