Delphi 对象流式管理---窗体文件(*.dfm)的转换
日期:2007年5月2日 作者: 查看:[大字体 中字体 小字体]-
在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打开。
- [1] [2] 下一页
-
- Delphi 对象流式管理---窗体文件(*.dfm)的转换 相关文章:
- ·Delphi 对象流式管理---窗体文件(*.dfm)的转换
- Delphi 对象流式管理---窗体文件(*.dfm)的转换 相关软件
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
上一篇:Delphi 对象与组件帮助文档
精品推荐
热点TOP10
- ·Delphi下的ADO使用方法!
- ·在Delphi中实现数据分析模块的动态报表
- ·在Delphi中控制扫描仪
- ·用拼音首字符来实现检索功能
- ·让Delphi的DBGrid支持鼠标轮
- ·自 动 隐 藏 的 声 象 按 钮
- ·OpenGL简介
- ·用Delphi制作动态有声标签
- ·从 实 例 看 Delphi 4 中 的 动 态
- ·Delphi中为DBGrid控件添加色彩
- ·常用的BCB & Delphi 函数
- ·产生不重复随机数的简便算法
- ·陈经韬2002原创资料
- ·Delphi2005试用版安装指南
- ·Delphi中ListBox控件的六种特效
- ·第三方控件使用方法
- ·关于SMTP和POP3使用及关于客户-服务端的自动连线问题
- ·关于MP3中的ID3V2格式探讨及我写的ID3V2读取源码
- ·监视打印机部分线程内容
- ·获取其他进程中ListView的文本
