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

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

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

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

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

几个参数说明：

[delphi] view plain copy

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

[delphi] view plain copy

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

[delphi] view plain copy

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

读取XML文件：

[delphi] view plain copy

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

创建XML文件：

[delphi] view plain copy

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

保存XML文件：

[delphi] view plain copy

1. XMLDoc.LoadFromFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
2. XMLDoc.Active:=True;
3. XMLRoot:=XMLDoc.DocumentElement;
5. ifXMLRoot<>nilthen
6. begin
8. XMLNode:=XMLRoot.ChildNodes['LoginInfo'];
10. ifXMLNode<>nilthen
11. begin
13. XMLNode.SetAttributeNS('RememberMe',RememberMe);
15. end;
17. end;
19. XMLDoc.SavetoFile(AppPath+TPath.DirectorySeparatorChar+AppParamFileName);
20. XMLDoc.Active:=False;

原文地址：https://www.jb51.cc/xml/293632.html