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;