在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); (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打开。
[系统软件]InstallShield Express for delphi制作安装程序定… [常用软件]InstallShield Express制作Delphi数据库安装程序 [Delphi程序]为什么选择Delphi.Net ? [Delphi程序]《关于VisiBroker For Delphi的使用》(4) [Delphi程序]Delphi 程序员代码编写标准指南 [Delphi程序]转贴:Conversion to Delphi 6: Missing unit Pro… [Delphi程序]Borland Delphi 9 的新特性 [Delphi程序]Delphi 键盘码表 [Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗? [Delphi程序]Delphi Access violations 问题的解决之道
|