DFM文件与标准文本文件换

在Delphi可视化设计环境中，允许程序员在代码编辑器中以文本的方式浏览和修改DFM文件内容。当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的View as Text命令时，就会在编辑器中出现文本形式的信息。在一些资料中将这种文本形式称之为窗体设计脚本。Delphi提供的这种脚本编辑功能是对Delphi可视化设计的一大补充。当然这个脚本编辑能力是有限制的，比方说不能在脚本任意地添加和删除部件，因为代码和DFM脚本是紧密相连的，任意添加和修改会导致不一致性。但在动态生成的DFM文件中，就不存在这一限制。
源代码网推荐
源代码网推荐 　　实际上，DFM文件内容是二进制数据，它的脚本是经过Delphi开发环境自动转化的，而且Delphi VCL中的Classes库单元提供了在二进制流中的文件DFM和它的脚本之相互转化的过程。它们是ObjectBinaryToText和ObjectTextToBinary、ObjectResourceToText和ObjectTextToResource。
源代码网推荐
源代码网推荐 　　ObjectBinaryToText过程将二进制流中存储的部件转化为基于文本的表现形式，这样就可以用文本处理函数进行处理，还可以用文本编辑器进行查找和替代操作，最后可以将文本再转化成二进制流中的部件。
源代码网推荐
源代码网推荐 　　ObjectTextToBinary过程执行的功能与ObjectBinaryToText相反，将TXT文件转换为二进制流中的部件，而且只要TXT文件内容的书写符合DFM脚本语法，ObjectTextToBinary可将任何程序生成的TXT文件转换为部件，这一功能也为DFM文件的动态生成和编辑奠定了基础。
源代码网推荐
源代码网推荐 　　DFM文件与DFM脚本语言之间相互转换的任务由ObjectResourceToText和ObjectTextToResource两个过程完成。下面以我所拥有的Delphi编程资料作详细说明：
源代码网推荐
源代码网推荐 　　ObjectResourseToText过程比较简单，如下：
源代码网推荐
源代码网推荐 　　 procedure ObjectResourceToText(Input,Output:TStream);
源代码网推荐 　　 begin
源代码网推荐 　　 Input.ReadResHeader；
源代码网推荐 　　 ObjectBinaryToText(Input,Output);
源代码网推荐 　　 end；
源代码网推荐
源代码网推荐 　　ObjectTextToResource过程就比较复杂，因为DFM文件资源头中要包含继承标志信息，因此在调用ObjectTextToBinary后，就读取标志信息，然后写入资源头。
源代码网推荐 　　 procedure ObjectTextToResource(Input,Output:TStream)；
源代码网推荐 　　 var
源代码网推荐 　　 Len:Byte;
源代码网推荐 　　 Tmp:Longint;
源代码网推荐 　　 MemoryStream:TMemoryStream;
源代码网推荐 　　 MemorySize:Longint;
源代码网推荐 　　 Header:array[0.79] of Char;
源代码网推荐 　　 begin
源代码网推荐 　　 MomoryStream:=TMemoryStream.Create;
源代码网推荐 　 try
源代码网推荐 　　 ObjectTextToBinary(Input,MemoryStream);
源代码网推荐 　　 MemorySize:=MemoryStream.Size;
源代码网推荐 　　 FillChar(Header,SizeOF(Header),0);
源代码网推荐 　　MemoryStream.Position:=SizeOf(Longint);{Skip header}
源代码网推荐 　　 MemoryStream.Read(Len,1);
源代码网推荐 　　 if Len and ＄F0=＄F0 then
源代码网推荐 　　 begin
源代码网推荐 　　 if ffChildPos in TFilerFlags(Len and ＄F0) then
源代码网推荐 　　 begin
源代码网推荐 　　 MemoryStream.Read(Len,1);
源代码网推荐 　　 case TValueType(Len) of
源代码网推荐 　　 vaInt8:Len:=1;
源代码网推荐 　　 vaInt16:Len=2;
源代码网推荐 　　 vaInt32:Len=4;
源代码网推荐 　　 end;
源代码网推荐 　　 MemoryStream.Read(Tmp,Len);
源代码网推荐 　　 end;
源代码网推荐
源代码网推荐 　　 MemoryStream.Read(Len,1);
源代码网推荐 　end;
源代码网推荐 　　 MemoryStream.Read(Header[3],Len);
源代码网推荐 　　StrUpper(@Header[3]);
源代码网推荐 　　 Byte((@Header[0])^):=＄FF;
源代码网推荐 　　Word((@Header[1])^):=10;
源代码网推荐 　　 Word((@Header[Len＋4])^):=＄1030;
源代码网推荐 　　Longint((@Header[Len＋6])^):=MemorySize;
源代码网推荐 　　 Output.Write(Header,Len＋10);
源代码网推荐 　　Output.Write(MemoryStream.Memory^,MemorySize);
源代码网推荐 finally
源代码网推荐 　　MemoryStream.Free;
源代码网推荐 　 end;