Delphi的“动态窗体”技术实际应用.doc

Delphi的“动态窗体”技术实际应用 2008-05-27 17:07 [文章来源] ???????? 引用 [文章内容] Delphi的“动态窗体”技术实际应用 在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文件？zswang(伴水)　(2001-11-21 9:52:59) 得0分function ComponentToString(Component: TComponent): string;varBinStream: TMemoryStream;StrStream: TStringStream;s: string;beginBinStream := TMemoryStream.Create;tryStrStream := TStringStream.Create(s);tryBinStream.WriteComponent(Component);BinStream.Seek(0, soFromBeginning);ObjectBinaryToText(BinStream, StrStream);StrStream.Seek(0, soFromBeginning);Result := StrStream.DataString;finallyStrStream.Free;end;finallyBinStream.Freeend;end; { ComponentToString }function StringToComponent(Value: string; Instance: TComponent): TComponent;varStrStream: TStringStream;BinStream: TMemoryStream;beginStrStream := TStringStream.Create(Value);tryBinStream := TMemoryStream.Create;tryObjectTextToBinary(StrStream, BinStream);BinStream.Seek(0, soFromBeginning);Result := BinStream.ReadComponent(Instance);finallyBinStream.Free;end;finallyStrStream.Free;end;end; { StringToComponent }　回复人：　zswang(伴水)　(2001-11-21 9:54:28) 得0分procedure TForm1.Button1Click(Sender: TObject);beginMemo1.Text := ComponentToString(Self);end;　回复人：　zswang(伴水)　(2001-11-21 9:58:13) 得0分procedure TForm1.Button2Click(Sender: TObject