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

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;

IDC:2013 Q1 Android和iOS出货量占92% WP首超黑莓 传雅虎欲10亿美元收购轻博客网站Tumblr A Beautiful Mess:如何赚男人女人的钱 CSS、JavaScript开发者必备的10款最佳工具 IBM推出API管理平台 抢占API经济市场份额 2013中国云计算榜单之一:15云平台,谁主沉浮? 移动周报:百万壁纸、85后程序媛,我为梦想代言! 电信天翼开放平台:为App开发者免费提供云存储和云主机服务 Google新的Web UI库:Ploymer 研发周报:让开发者高效编程的10个新框架 拯救行将就木的PHP:谷歌为GAE添加PHP支持 PPT集萃(一):10位业内高管分享云计算技术理念与行业趋势 得益于苹果谷歌,未来可穿戴技术市场规模可达500亿美元 雅虎11亿美元押注Tumblr三大因素:用户、社交、内容 Perceptual:英特尔感知计算挑战赛 正式启动 吴义坚:创业去!我用深度神经网络,处理语音识别 浅谈用户体验的“反面模式 可穿戴设备又一站:增强现实眼镜CastAR 数字医疗投资将破纪录 投资人看好这些细分领域 Mayer又下一城:雅虎收购Tumblr推进移动化? 前端开发利器:代码预处理工具Prepros 一个轻量级的JavaScript库:Reactor.js [探讨] 用户体验设计师现在面临怎样的机遇和挑战? PPT集萃(二):淘宝、CloudStack等分享的架构经验与最佳实践 2013中国云计算榜单之二:64家云主机+云存储,错综复杂! 看Java技术基础的eBay如何评价他们的Node.js首次尝鲜 Jolla发布首款Sailfish系统手机 无缝兼容Android应用 NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 用vc生成曲面要用到那些类? 有關微軟的MCSE認証 请问如何用DELPHI实现拨号连接服务器? 有关界面的问题 如何实现Windows 2000 Server 远程拨号登录?请奉上你的经验和智慧!!! 莱鸟级的问题,你敢来挑战吗? TADODataSet 读磁盘文件是怎么用的? 我的毕业设计,一百分的送分题啊!!!!!!!!!!!!!!!!!1 请教这个函数的作用 //创建列的问题,谁帮我看一看缺什么,谢了 如何在本地访问远程数据库,用什么样的方法在速度、安全上都好一些 请大家指点下在深圳哪里可以办个边防证?谢谢 各位大侠,谁能介绍一下utf8,还有怎么把它转到gb2132编码呢? 我的毕业设计,一百分的送分题啊!!!!!!!!!!!!!!!!!1 窗体问题。。。 现有一个小项目: 怎样动态增加表格? 有人解决了jive的中文问题吗?? 报表就是查询结果吗?用VB很难做吗?为什么这么多人讨论,请问设计报表难点是什么? 请问我的VC地ClassView无法打开,有什么快速的方法可以打开 一个关于tomcat中servlet的棘手问题..... 谁可以帮我提供一个PHP的站内目录管理程序! 请问c++中,函数重载和虚函数有什么区别,在实现多态性方面有差别吗? 现有一个小项目: 如何对多个按钮的BN_ClICK进行映射 SQLserver备份与恢复 Delphi中怎样声明一个类?怎样实现多态?如果要在类库的一个类中添加一个方法又怎么做? 然后怎样封装它?是不是封装以后维护就非常简单? 可 计算机网络--〉清华大学出版社,作者:Andrew S Tanenbaum哪里有电子版下载 把播放F4的时间上《我们程序员都是活雷锋》 随便问问:VC能不能调用Access中的Form,Report 用ADO在线程中打不开数据库,请帮忙 如何在VB中动态的加载Dll,并使用其加载的函数??? 高手们看过来 Oracle初学,兄弟们多帮忙了! 怎么打开一个.txt文件,然后一行一行读取? 请问大家知道一个局域网里的IP在因特网上如何表示的呢。 请问各位,如何在我的程序中用代码生成Access数据库? 神啊,救救我吧,我想要含笑半步喋=== 请教NT4。0下的IE2。0怎样升级到IE6。0或IE5。0? 我要在程序中重载CBitmap类的一个函数,请问如何做 为什么我在bcb的new中找不到multitier(就是多层)选项页 请问如何知道数据库中有哪些表存在?在线等待 向各位大侠求救中 这是数据库的缺点吗? Choice.asp?VehicleType=a+&VehicleColor=Red + 传不到Choice.asp 如何获取文件扩展名关联信息 急!应选择什么样的服务器? 请问哪里有关于DOS和BIOS的系统功能调用的e书籍下载?谢谢指点 想用bcb的DirectX编一个显示器(第二个)的独占程序!希望专家指点!也欢迎大家来交流! 你碰到过这样的问题吗? What is meaning "$1 $2 " in perl? 宝宝淘气,水银体温计测体温时间太长,有没是方便使用的? 欧洲中世纪统治欧洲的是什么教 硬脂酸级别中有分橡胶级、食品级等等级别,那硬脂酸的各种型号,各对应什么级别啊?比如说1801硬脂酸级别中有分橡胶级、食品级还有什么级别的区分?硬脂酸1801、1840等等这些型号对应的又是 氢氧化钠碳酸钠和氢氧化钡三种无色溶液,用一种试剂把它们鉴别出来,并写出来反应的化学方程式和离子方程 什么叫PEG? 橡胶级硬脂酸是个什么概念?什么是橡胶级硬脂酸?有什么相应的标准?是不是就是作为橡胶添加剂的硬脂酸? 体温计里是水银吧.万一破了企不是很危险.有没有是煤油的体温计呀 生物学中缩写HLA 和 硬脂酸铈在橡胶中用作什么助剂? 氯化铜与氢氧化钡的离子方程式 氯化钙与碳酸钠的离子反应方程式 钠与水的离子反应方程式 有铜与硝酸的离子 高中生物的PEP和PEG都具体指什么,有什么不同? 那位师傅知道硬脂酸在再生橡胶中起什么作用啊? 碳酸钠与氯化钙的离子方程式 PEG是什么意思 水银是什么?吃了会怎么样呢? 硫酸 碳酸钠 氢氧化钡 氯化钙 四种溶液中,其中1种与其他3种溶液都能反应.则该溶液是______?写出该溶液与其他3种溶液反应的化学方程式 PEG是什么? 吃了一点水银会死吗 安全标志的分类及其安全色的含义?如题 酱油,糖水是导体还是绝缘体 股票的PEG是什么意思 主链上有四个碳原子的某种烷烃有两种同分异构体,含有相同碳原子数目且主链上也有4个碳原子的单烯烃的同分异构体有几种?将同分异构体画出, 欧洲中世纪城市特点欧洲中世纪城市的特点是什么?具体有哪几个方面?我说在城市建设方面的 从政治经济等不同角度的 不小心碰到水银怎么办今天我后桌的同学把温度计弄破了,里面有个小小的银色水银珠,几个男生用橡皮按破了,变成了很小很小的珠子,散在桌子上到处都是,然后他们就用书把水银往我这推,掉 我们公司是生产一次性使用手术电极的,刀头部分是用304不锈钢做的,药监局要求做生物相容性评价,是不是要找专门的检测机构进行测试!希望懂的高手可以给个回答 欧洲中世纪城市的特征、简况有哪些? 温度计的水银漏了怎么办?我弟不小心摸到了怎么办?该怎么收拾水银啊? 一次性PE手套生物相容性报告,生物相容性测试哪些项目?一次PE手套生物相容性测试周期多长呢? 欧洲中世纪某城市发展简介简单点 用聚乙二醇融合原生质体的依据是 唐朝政治制度的突出特点 铜的生物相容性 高分子合金的相容性是指什么啊 美国政治制度最突出的特点是什么?是”最突出的”特点是什么? 什么是安全色?安全色的含义和用途有哪些? 安全色有哪几种 如何鉴别硫酸 碳酸钠 氢氧化钠 如何认识欧洲中世纪的等级制度 安全色是? 新中国成立之初,是如何从制度上保证人民把政权掌握在自己手里的?概括新中国政治制度的突出特点求大神帮 生物相容性测试那里测试请教一下要做生物相容性测试可以在哪里做啊? 关于欧洲中世纪封建制度的一些问题呃,这些问题都是关于欧洲中世纪那时候的,说清楚点就OK,不用长篇大论撒.鞠躬.^_^(本人看到Social Study就头痛,) 1.城堡在中世纪(欧洲那边)扮演了什么 反应2NaOH+CO2=Na2CO3+H2O的离子方程式是什么? 如何评价欧洲森严的等级制度 国家标准(GB2893--82)中规定的四种安全色是( ) Na2CO3和CO2少量足量反应离子方程式 什么涂层材料具有生物相容性?什么涂层材料具有生物相容性 欧洲中世纪有哪些特点 2012年12月28日,武汉地铁2号线正式通车.已知相距4000 m的甲乙两站之间的线路为直线,在调试运行时,列车出站加速和进站减速的加速度大小均为1 m/s2,中途保持匀速运行.列车从甲站由静止出发到 北京西站的高铁和北京西站的火车是同一地方乘坐吗,听说有高铁了想乘高铁回广州. 关于欧洲中世纪服装有谁知道有什么书介绍欧洲中世纪服饰的书么,类似于乱世佳人里面的那种衣服~ 求助…两支水银体温计先后测体温…一支36.9度,一支37.0度!低的那支用时用力甩才能甩到35度以下,高的那支很容易甩就甩到35度以下,请问我该相信哪支? 武广高铁是武汉到广州的时间比原来快速列车缩短了8小时,武汉到广州为1068.6km,客运列车的速度是特快列车的3倍,那么客运的速度为多少 欧洲中世纪指的是哪段时间? 水银体温计打烂后应该怎么消毒?水银溅到了很多地方,应该怎么处理? 欧洲中世纪时占统治地位的思想与制度是什么 求几部欧洲中世纪电影求几部欧洲中世纪的电影,最好能是欧洲黑暗时代的,或者时间段是在公元500年至公元1000年间得到电影,什么题材的都可以,满足这两个时间段之一的给分,最好能给出影片 水银体温计打烂了打烂了,用纸巾清理地下,手或许会接触到些,但是立刻洗手了,还有就是一些进到地板的缝隙里了,听人说蒸发 会有毒?是这样么,请教教怎么处理,或者这根本没什么事? 欧洲中世纪占统治地位的思想是?A 神权统治 B 君主专制 C名主 D 神权统治和君主专制请给一个正确的答案,说明为什么? 欧洲中世纪指哪段历史?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘