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

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;

用DELPHI制作应用软件 用Dephi 程 序 维 护Paradox 数 据 表 的 索 引-Delphi资料 用Dephi程序维护Paradox数据表的索引-Delphi资料 用InstallShield制作数据库应用系统的安装程序-Delphi资料 在BDE中使用ASCII-Delphi资料 在DBMemo中查找文字-Delphi资料 在Delphi 程序中维护DBF 数据库 在Delphi 中 利 用 Tbatch 组 件 完 成 数 据 批 处 理 在Delphi 中使用计算出的字段 在Delphi3 程 序 中自 动 检 测、 建 立 数 据 库 别 名 和 表 格 在Delphi3程序中自动检测、建立数据库别名和表格 在Delphi4 BDE中配置Access数据库 在Delphi5 中修改了Delphi自带的VCL Source文件后怎样重建Delphi的库文 在DELPHI程序中动态设置ODBC数据源 在DELPHI程序中使用ADO对象存取ODBC数据库 在DELPHI程序中自动设置ODBC数据源 在Delphi的DBGrid中插入其他可视组件 在Delphi的Socket编程中如何从服务器向指定的客户机发送信息? 在Delphi动态生成定义数据库 在Delphi中处理数据库日期型字段的显示与输入 在Delphi中简单实现多重查询 在Delphi中建立和使用别名 在DELPHI中使用ADO对象存取ODBC数据库 在Delphi中使用DBF数据 在Delphi中随意控制DBGrid 每一行的颜色 在Delphi中自动检测、建立数据库别名和表格 在存储过程中使用use database-Delphi资料 在一个Dbgrid中显示多数据库-Delphi资料 在运行期创建表-Delphi资料 怎样把可以使用的表名输出到一个选择框?-Delphi资料 怎样发布基于Microsoft SQL Server的程序-Delphi资料 新手的问题! dll调问题???VB调用VC++的DLL需要返回值时,DLL如何定义?VB调用函数如何定义??? 各位大虾 谁能提供视频采集卡的原代码,必须要CB的,300分 在堆(heap)上与在栈(stack)上建立的对象有什么区别? 一个问题,在做元件时怎样建立TdateTimePicker 给大家看看我弟弟给我的信 求助,标题栏为“The police are investigating the robbery-"的是什么程序? 谁能将.CPP文件的代码翻译成DELPHI语言?? 有关于FLASH5.0的问题!!!请各位大吓指点! 一个问题,怎样在PC:PageControl上增加TabSheet1,TabSheet1,TabSheet1…. 标题栏为“The police are investigating the robbery-"的是什么程序? 一个弱弱的问题 一个问题,建立的 FB: TBevel没显示,好象根本没建立一样。 如何在 MDI CLIENT 中添加快捷方式??谢谢!! 55分,如何映射控件中子控件的消息? 如何选择书 关于文献数据库的一个问题-如何把一个字段和一个文件关联起来? 所有喜欢到水园来逛逛,但是从不回帖子或很少回帖子的人进来签到~~~~ 谁来救救我呀,我好惨呀。。。。 如何通过VC编程,随时关闭网络端口 诚寻对嵌入式linux感兴趣的网友 今天临走前,再灌一桶酒! 急!!!哪里可以下载到制作工具栏时用到的位图呀? 太原的在哪能买到程序员杂志 我的qq:10120129 谁找我??? xml 高手帮帮我,为什么我下面的文件,在IE5.0中什么也没有?? 请问高手:在uml类图中如何用关系表示一个实体类和一个接口间的关系。 Cathy进来~~ 请问高手们一个Delphi的一个应该是比较底层的东西。 mimi大酒店正式開業﹗先進來的有分啊﹗ 哪个高手完整地讲讲OpenWith菜单项的调用方法和函数等 关于非模态对话框中使用UpdateData(FALSE)函数的问题,朋友,帮个忙好吗? “记事本”小问题,大逻辑.大虾们,照顾照顾小弟呗. Linux下配置ISDN--期待所有的Linux高手到来?? 我是女生,哈哈 急,怎么样在打印表格时使较长的字段分两行显示,并字体变小。 在VB里做的用户控件为什么在VC不能调用啊! 不服不行(真没辙了)[不够可在加200分] 我的代理怎么了? 寻找能显示CAD图纸的delphi控件 偶要给lastlove(☆☆☆☆☆robin★★★★★)放高利贷了! 哪位做过读取网卡地址的动态链接库? c++builder与sql server 2000的sql语言兼容性问题 为什么TWaitThread的帮助在help里找不到? 有关WIN2K策略的设置? TREEVIEW中如何打印结构树? 急急急!opensheet(w_child,w_main,2,Original!)不好使了?为啥? 100分求教,存储过程的两个问题! 哪位大侠有MPEG数据帧格式的资料,望告之,谢了。 大家出个主意,怎么使这个查询速度最快??? 一个如图所示的不规则形铁片,其缺口边界是口宽4分米,深2分米(顶点至两端点A,B所在直线的距离)的抛物线的一部分,先要将其缺口边界裁剪为等腰梯形.(1)若保持其缺口宽度不变,求裁剪 如图,已知正方形ABCD边长为1cm,点E在对角线BD上,BE=BC,P是CE上一动点,PF⊥BD,PG⊥BC,PF+PG的值为 解不等式组x-3(x-2)大于等于4 5分之2x-1小于2分之x-1 求解啊 数学大神速度来 这是怎么解出来v的 我写出来的始终是分数形式 i e或者l都约不了 解不等式 (3分之x-2)-(2分之3x+5)大于等于x-(3分之2-x) 数学第15,16题. 数学大神求救格式与方法 3-x分之1+3x小于等于2解不等式 16题, (1-3分之1)乘(1-4分之1)乘(1-5分之1)乘……乘(1-2009分之1)乘2009找规律,巧计算,求算式 同问 不等式组5大于2(1-x)和-三分之一x小于等于三分之二-x的整数解的和是 第15,16题 1/1乘3+1/3乘5+1/5乘7+.1/2007乘2009 求不等式组x小于3(x+1) (2-x/3)+1大于等于x 的整数解 16题 24分之3乘以20等于多少 不等式组9x-a大于等于0 8x-b小于等于o X的整数解是1,2,3.适合的整数a,b的有序数对是(a,b) A17个 B64个 C72个 D81个 数学习题,必好评,15,16 816乘以3约等于多少 解不等式:x+1分之x-3小于或等于3 1加1在什么时后会等于3大神们帮帮忙 第15,16两题, 22度16分乘以5等于多少 一加一可以不等于二,一加一可以等于三吗? 15、16两题 几乘以几等于28 求大神解这两道题,原谅我数学不好…详细请看图 15和16两题 5/6乘以20/15再加上106/100等于几 寻极度无聊IQ题必须系搞笑的!例如铁甲无敌奖门人之类嘎 10个以上才要!多1个+给1分 15和16两题谢谢 已知7分之1等于0.142857循环,问:最少从小数点后面第几位开始,到第几位上的数字之和等于2000? 大神救我QAQ[请原谅我这捉鸡的智商,诶我居然没有把图放上去.. 求15,16两题, 已知7分之1=0.142857循环,问:最小从小数点后第几位开始,到第几位上的数字和等于2000 极度无聊IQ题:有一日,小明去饮酒,饮到好夜,于是就在沙发睡觉.第二日小明妈妈就报警,这是为什么? 考研数学课本重要还是习题册重要 已知七分之一等于0.142857,问小数点后面第100位上的数字是几?小数点后面前100位上的数学之和是多少 求 的一道超级难题 智商高的来做一做 阅读短文 回答问题(18分)松树与紫藤松树与紫藤同在山坡下生长,一天,紫藤以鄙视的口气说:“小松鼠,你怎么长成这个样子,像一根木桩,孤零零的,多 关于2009年数学一考研真题第17题求助,数一17题第二问说求体积,那个就是用锥体的体积减去椭球体的一部分,这部分的求法很多,我是想用二重积分曲顶柱体的体积算法,即把x解出来,然后做积分, 已知7分之1=0.142857,142857的循环.问小数点后面第100位上的数字是几?小数点后面前100位上的数字之和是多少? 2.06千米为什么等于2千米60米?为什么2.06千米等于2千米60米? 如图,第一步,和第二步的依据是什么啊?好像没有相应的定理吧? 已知七分之一=0.142857(循环结0.142857的循环),问小数点后面第100位上的数字是几?小数点后面前100位上的数字之和是多少? 1+1为啥等于2? 10----16题怎么写? 0.3循环什三分之一吗?那0.3循环乘以3是1还是0.9循环? 1+1会等于2吗?求大神帮助 判断题:1.如果甲数的三分之二大于乙数的四分之三(甲乙都不等于0),那么甲数小于乙数.(为什么错?)2.体积相等的两个长方体,他们的表面一定相等.为什么错?1.a是一个大于0,而不大于1的数, 6.8小时等于几小时几分? 观察下列算式:2的一次方=2,2的2次方=4,2的三次方=8...用你所发现的规律写出2的2012次方的个位数字是多少? ..数学14、15、16题求讲解 4.8小时等于几小时几分? 用适当的方法做, 过程完整点 一次数学小测验中,有一道这样的填空题:0.3= ————%.小丽在横线上填了30%,而老师却判小丽填错了,小丽不服,去找老师问个究竟.请聪明的你评评小丽答对了吗,为什么? 7+8等于几 设公差不为0的等差数列an的首项为1,且a6=a2^2,求数列an的通项公式,若bn满足bn=nan+5n,求{1/bn}的前n项和Tn 这题怎么写、、求数学大神 四个9怎么加等于1万
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn