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单元中可以看到这两个地方的处理有细微的变化,
Published At
Categories with Web编程
Tagged with
comments powered by Disqus