Delphi 对象流式管理---窗体文件（*.dfm）的转换

•     在Delphi5和Delphi6中，对窗体文件（*.dfm）的保存格式不一样，如果要想在Delphi5中打开Delphi6写的Project，则必须对窗体文件进行转换，这要了解Delphi中的对象流式管理。
    
      
      
      
    
    
      
      
        
          
            
  
          
        
        
      
    
    
      
      
      
    
  流在Delphi中有重要的作用，今天我是利用TStringStream和TMemoryStream将Delphi6的窗体文件转换成delphi5能识别的格式。TStringStream主要是用流的形式表示字符串，从而在流中对字符串进行操作。

  在主窗体上放上两个memo控件，一个opendialog控件，一个button控件，memo1用于读取delphi6的窗体文件（*.dfm），memo2用于显示转换后的窗体文件。

  procedure TForm1.Button1click(sender:TObject);

  var

    aFormString:string;

    lsrc,ldest:TStringStream;

    lbin:TMemoryStream;

  begin

    Memo1.lines.clear;

    ldest:=TStringStream.Create('');

    lbin:=TMemoryStream.Create;

    if opendialog1.Execute then

      memo1.Lines.LoadFromFile(OpenDialog1.FileName);

      aFormString:=memo1.lines.Text;

    lsrc:=TStringStream.Create(aFormstring);

    lsrc.Seek(0,soFromBeginning);

    ObjectTexttoBinary(lsrc,lbin);

    lbin.Seek(0,soFromBeginning);

    ObjectBinarytoTextEx(lbin,ldest);

  //  Classes.ObjectBinaryToText(lbin,ldest);

    Memo2.Lines.Text:=ldest.DataString;

    Memo2.Lines.SaveToFile(opendialog1.FileName);

    showmessage('转换成功！');

    lsrc.Free;

    ldest.Free;

    lbin.Free;

  end;

  ObjectTexttoBinary，此过程是直接调用classes.pas单元，不用做任何修改。

  ObjectBinarytoTextEx，此过程95%与classes.pas单元的ObjectBinarytoText相同，只是在convertvalue过程中要做两点改动：

  1．在vaWString后要加上vaUTF8String，在classes.pas单元中只有对vawstring的转换而没有vautf8string的转换。

  2．将vaWString和vaUTF8String的转换过程换成跟vaString, vaLString:的一样就可以了，大家从classes.pas单元中可以看到这两个地方的处理有细微的变化，正是这点变化造成了delphi6和delphi5窗体文件格式不兼容。其它的都不用作修改，笔者调试通过，原来在delphi5下打不开的project经过转换后均能用delphi5打开。

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi 对象流式管理---窗体文件（*.dfm）的转换 相关文章：
• ·Delphi 对象流式管理---窗体文件（*.dfm）的转换
• Delphi 对象流式管理---窗体文件（*.dfm）的转换 相关软件

上一篇:Delphi 对象与组件帮助文档

下一篇:Delphi 程序员代码编写标准指南

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐