说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

DELPHI中DFM文件与文本文件转换

HTML文档下载 WORD文档下载 PDF文档下载
DELPHI中DFM文件与文本文件转换

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

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;

将真彩色图像变为256色灰度(BIG5码):-VB资料 VB利用Image控件实现图形浏览程序 利用VB捕捉并保存屏幕图象 切割一个Container中的图片 -VB资料 VB如何改变桌面的图片? VB如何实现“百叶窗”的图形特效? VB如何实现霓虹灯效果 VB如何在VB中用API获得EXE文件图标并显示在Picture控件里 VB如何在VB中直接显示无格式256灰度级图像 VB如何在窗体中平铺图片? 三维字的实现 -VB资料 闪动窗口标题 -VB资料 闪烁的标题栏 -VB资料 实现画面的各种切换方法-VB资料 实现屏幕变暗的效果 -VB资料 实现图像切换效果 -VB资料 提取Win9x拷贝的动画-VB资料 一个图像滤光处理程序-VB资料 一个用VB5.0 实现的鼠标绘图程序 用VB6.0制作画图板 用VB6设计有趣的动画场景 用VB编程绘制网格图像 用VB绘制抛物线动画曲线 用VB绘制正弦动画曲线 用VB实现“百叶窗”的图形特效 用VB实现托盘动画图标 用Visual Basic 定制BMP文件 用Visual Basic的Move方法实现动画效果 用Visual Basic与MS-Draw开发通用作图软件 在VB中获取可执行文件及Windows 95快捷方式的图标 在VB中进行各种图形切换的方法 graphicspath.transform(matrix)是怎么变换的? 请问关于列表框中的滚动条 老婆的父母太....,请大家出注意呀 tomcat问题 胃病难受,各位有什么良药??? 两个简单的问题(perl) 两个小问题。 高分求TurboPower Apro4.0 for bcb5的注册码 急件:怎样动态加载或引用DLL文件 我的SERVLET为何不能响应? 在两个表连接查询时为什么总报错:“Table is read only”? *************小问题,在线等待************** 关于更改程序名字的问题! 关于计算机远程终端控制问题 关于onload ASP的参考手册是什么? 更新数据库的日期时间问题!!! 为什么用insert 语句插入数据,数据长度只有4k左右? exchange 出现的怪问题 入门 菜问题 连接服务器的问题 我这是怎么了? 非常着急,关于bean的问题 在单元格中插入html? 关于两个大表连接和索引的问题 灌水、抢分 echo命令的具体使用方法? 在BIOS密码之后,系统引导之前加密计算机的软件有哪些?请帮忙呀 请问 如何获得mysql的原码 关于onload VB中如何使用资源文件?急!急!急! 关于思路,高分求教!分数不够在添 不得不提问了: 怎样防止用户重复登陆!???? **请问Kylix3在红帽7上如何安装? TEST 求php的win98下开发环境,大家帮帮忙。 我想做一个类似于邮件系统中附件功能的程序,请问用的是什么协议,那里有源码? 为什么输出结果不正确呢??? 急救!用ADO在98下与2K下不能同时运行! 主板的认识! 如何删除相同的两条记录 有关Blob造型成oracle.sql.BLOB的问题。 急死我了!!!RS485通讯的奇怪问题,请高手帮忙! 怎样在delete记录时不往log文件中写东西? 签名支持JK10000行动,同意签名者,进来跟贴!到时候咱们的真名或ID会被复印在传单背面,抵制日货,保卫钓鱼岛!!!!!!!!!!!! 迷惑!!!!!高手指点,值得讨论,谢谢! char型怎么转换成String型?(答对结帖) 请问 哪位大侠有loadrunner的中文测试资料提供一下,非常感谢! JS和ASP的问题????? 高手指点 这样划分vlan可不可以???? 数据库超时 宁波赴台个人游15个窗口可就近申请宁波8名快递哥同伸援手接住两岁坠楼女李华任衢州市委常委 不再任常山县委书李锋任衢州市委常委(图)杭甬高铁开通在即 记者实地探访绍兴北李锋简历(图)宁杭甬高铁运行图出炉 4小时以内车程32家农贸市场拿到活禽交易通行证宁杭甬高铁精确运行时刻表公布浙江财经大学在浙新增5个一本招生专业杭城首批11家农贸市场昨起重启活禽交宁杭甬高铁运行时刻表全部出炉 高铁出浙江省11市4套班子一览表(附名单)这三个女生都是高考顶尖高手文科第一名施丹旖从小到大没参加过培训理科第一名周晨又在镇海中学富阳女生喻鹏阳文科725分 每天睡足杭州各界人士畅谈最美现象杭州市区公办小学昨天报名 没有出现排杭帮菜中小贝最爱叫化鸡 吃完一份再来宁海市民看望英雄快递哥 顺丰速运奖励阿里巴巴敲响开市钟求军援落空股指缩量反弹泰格·伍兹不打算聘请挥杆教练了浙江发布“新高考方案”凯里评选“十佳最美小区”置业海南 无需过多担心台风马铃薯淀粉、马铃薯胶……建筑公司被列入“不良记录”定安“实”字当头转作风金阳医院开设“记忆门诊”美军官员:六架俄罗斯战机闯入美防空识吴楠时隔两年获自由身加盟四川 体育局当阿里巴巴遭遇法式“神回复”:只知“阿里巴巴上市 外国人问:“淘宝上能买前奥运冠军见证阿里巴巴上市 劳丽诗纽日选手送韩球迷旭日旗礼物引争议 日网西安警察扮嫖客抓获4名“站街女” 口“铁老大”争当“快递哥”葛兰素史克中国公司被罚30亿元关怀更在细节中
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘