• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

DFM文件与标准文本文件转换_Delphi

Delphi 搞代码 3年前 (2018-08-09) 176次浏览 已收录 0个评论

    在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编程资料作详细说明:

http://www.gaodaima.com/65719.htmlDFM文件与标准文本文件转换_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;

欢迎大家阅读《DFM文件与标准文本文件转换_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址