DFM文件与XML文件互转

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

dfm文件是Delphi中存储窗体控件信息的,有时为了对大批量的dfm文件操作(如:批量替换控件、作检查等),往往不是太方便。

XML对结构化的数据读写则很强,将文本类型的dfm转为xml后进行操作,再转回dfm存储大大方便了操作。

//DFM to XML

procedure Dfm2Xml(ADfmStrings: TStrings; AXml: IDsXmlDocument);

Var

i: integer;

mStr : string;

mParentNode, mNode : IDsXMLNode;

mObjName, mClass, mObjType: string;

mPropName, mPropValue: string;

mInItem: Boolean; //有Item的也会有End相对,所以要和Object end分开

begin

mInItem := False;

mParentNode := AXML;

for i:=0 to ADfmStrings.Count - 1 do

begin

mStr := trim(ADfmStrings.Strings[i]);

//对象开始

if (copy(mStr, 1, 6) = 'object') or (copy(mStr, 1, 9) = 'inherited') then

begin

//先写入属性 - 如果还有属性没有写

if mPropName '' then

begin

mNode := AXml.createElement(mPropName);

mNode.text := mPropValue;

mParentNode.appendChild(mNode);

mPropName := '';

end;

mObjType := CutToken(mStr, ' '); //Type: object or inherited

mObjName := CutToken(mStr, ': '); //ObjName: Ex. frmCmsI03

mClass := mStr; //ClassName: Ex. TButton

mNode := AXml.createElement(mObjName);

(mNode as IDsXmlElement).setAttribute('ObjType', mObjType);

(mNode as IDsXmlElement).setAttribute('Class', mClass);

mParentNode.appendChild(mNode);

mParentNode := mNode;

end

//对象结束

else if (mStr = 'end') and (not mInItem) then

begin

//先写入属性

if mPropName '' then

begin

mNode := AXml.createElement(mPropName);

mNode.text := mPropValue;

mParentNode.appendChild(mNode);

mPropName := '';

end;

mParentNode := mParentNode.parentNode;

end

//属性处理

else

begin

//有 = 说明是一个属性的新的开始

if (Pos(' = ', mStr) 0) and (not mInItem) then

begin

//先写入属性

if mPropName '' then

begin

mNode := AXml.createElement(mPropName);

mNode.text := mPropValue;

mParentNode.appendChild(mNode);

end;

mPropName := CutToken(mStr, ' = ');

mPropValue := CutToken(mStr, ' = ');

end

else //说明这个属性可能有多行

mPropValue := mPropValue + '#13#10' + mStr;

if mStr = 'item' then mInItem := True;

if mStr = 'end' then mInItem := False;

end;

end;

end;

//XML to DFM

procedure Xml2Dfm(AXml: IDsXmlDocument; ADfmStrings: TStrings);

procedure Node2Dfm(ANode: IDsXMLNode; oString: TStrings; IdentSpace: string);

Var

mObjName, mClass, mObjType: string;

mPropName, mPropValue: string;

mNode : IDsXMLNode;

i: integer;

mVar : Variant;

begin

mObjName := (ANode as IDsXmlElement).NodeName;

mClass := (ANode as IDsXmlElement).getAttribute('Class');

mObjType := (ANode as IDsXmlElement).getAttribute('ObjType');

//写入Object begin

oString.Add(Format('%s%s %s: %s', [IdentSpace, mObjType, mObjName, mClass]));

//写入属性

for i:= 0 to ANode.childNodes.length - 1 do

begin

mNode := ANode.childNodes.item[i];

//Has Child 说明是一个新的对象

mVar := (mNode as IDsXmlElement).getAttribute('ObjType');

if not varIsNull(mVar) then

Node2Dfm(mNode, oString, IdentSpace + ' ')

//是属性,写进去就好了.

else

begin

mPropName := mNode.nodeName;

mPropValue := mNode.text;

mPropValue := StringReplace(mPropValue, '#13#10', #13#10, [rfReplaceAll]);

//写入:缩进

oString.Add(Format('%s%s = %s', [IdentSpace+' ', mPropName, mPropValue]));

end;

end;

//写入End

oString.Add(Format('%send', [IdentSpace]));

end;

begin

Node2Dfm(AXml.Get_documentElement, ADfmStrings, '');

end;

用到的类型:

uses

MSXML2_TLB;

//类型自己重新定义过

type

IDsXmlDocument = IXMLDOMDocument2;

IDsXmlNode = IXMLDOMNode;

IDsXmlElement = IXMLDOMElement;

IDsXmlNodeList = IXMLDOMNodeList;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航