DELPHI基础教程：开发Delphi对象式数据管理功能（五）[1]

~

　　 第二十章 开发Delphi对象式数据管理功能（五）

　　

　 　 写DFM文件的过程 WriteComponentResFie

　　该过程带有两个参数FileName和Instance FileName参数指定要写入的DFM文件名 Instance参数是TComponent类型的 它指定要写入的部件名 一般是TForm对象的子类 该过程将Instance部件和其拥有的所有部件写入DFM文件

　　这个过程的意义在于 可以在程序运行过程中产生Delphi的窗体部件和在窗体中插入部件 并由该函数将窗体写入DFM文件 支持了动态DFM文件的重用性

　　该过程的程序是这样的

　　procedure WriteComponentResFile（const FileName: string; Instance: TComponent）

　　var

　　Stream: TStream;

　　begin

　　Stream := TFileStream Create（FileName fmCreate）

　　try

　　Stream WriteComponentRes（Instance ClassName Instance）

　　finally

　　Stream Free;

　　end;

　　end;

　　函数中 用FileStream创建文件 用Stream对象的WriteComponetRes方法将Instance写入流中

　　 读DFM文件的函数 ReadComponentResFile

　　ReadComponentResFile函数带有两个参数FileName和Instance FileName参数指定要读DFM文件名 Instance参数指定从DFM文件中要读的部件 该函数从DFM文件中将Instance和它拥有的所有部件 并返回该部件

　　这个函数的意义在于 配合WriteComponentResFile过程的使用支持DFM文件的重用性

　　该函数的程序是这样的

　　function ReadComponentResFile（const FileName: string; Instance: TComponent）

　　TComponent;

　　var

　　Stream: TStream;

　　begin

　　Stream := TFileStream Create（FileName fmOpenRead）

　　try

　　Result := Stream ReadComponentRes（Instance）

　　finally

　　Stream Free;

　　end;

　　end;

　　程序中使用FileStream对象打开由FileName指定的DFM文件 然后用Stream对象的ReadComponentRes方法读出Instance 并将读的结果作为函数的返回值

　　 读取Delphi应用程序资源中的部件

　　函数InternalReadComponentRes可以读取Delphi应用程序资源中的部件 Delphi 的DFM文件在程序经过编译链接后被嵌入应用程序的资源中 而且格式发生了改变 即少了资源文件头

　　在第一节中曾经介绍过TResourceStream对象 该对象是操作资源媒介上的数据的 函数InternalReadComponentRes用了TResourceStream 程序是这样的

　　function InternalReadComponentRes（const ResName: string;

　　var Instance: TComponent） Boolean;

　　var

　　HRsrc: THandle;

　　begin { 避免 EResNotFound 异常事件的出现 }

　　HRsrc := FindResource（HInstance PChar（ResName） RT_RCDATA）

　　Result := HRsrc <> ;

　　if not Result then Exit;

　　FreeResource（HRsrc）

　　with TResourceStream Create（HInstance ResName RT_RCDATA） do

　　try

　　Instance := ReadComponent（Instance）

　　finally

　　Free;

　　end;

　　Result := True;

　　end;

　　HInstance是一个Delphi VCL定义的全局变量 代表当前应用程序的句柄 函数用了资源访问API函数FindResource来测定是否存在ResName所描述资源 因为在TResourceStream的创建过程还有FindResource等操作 所以函数中调用了FreeResource 最后函数调用了Stream对象的ReadComponent方法读出部件 因为函数的Instance是var类型的参数 所以可以访问Instance 得到读出的部件

　　 DFM文件与标准文本文件（TXT文件）的相互转换

　　在Delphi可视化设计环境中 允许程序员在代码编辑器中以文本的方式浏览和修改DFM文件内容 当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的View as Text命令时 就会在编辑器中出现文本形式的信息 我们姑且将这种文本形式称之为窗体设计脚本 Delphi提供的这种脚本编辑功能是对Delphi可视化设计的一大补充 当然这个脚本编辑能力是有限制的 比方说不能在脚本任意地添加和删除部件 因为代码和DFM脚本是紧密相连的 任意添加和修改会导致不一致性 然而在动态生成的DFM文件中 就不存在这一限制 后面会介绍DFM动态生成技术的应用

　　实际上 DFM文件内容是二进制数据 它的脚本是经过Delphi开发环境自动转化的 而且Delphi VCL中的Classes库单元中提供了在二进制流中的文件DFM和它的脚本之相互转化的过程 它们是ObjectBinaryToText和ObjectTextBinary ObjectResourceToText和ObjectTextToResource

　　ObjectBinaryToText过程将二进制流中存储的部件转化为基于文本的表现形式 这样就可以用文本处理函数进行处理 还可以用文本编辑器进行查找和替代操作 最后可以将文本再转化成二进制流中的部件

　　ObjectBinaryToText过程的主程序是这样的

　　procedure ObjectBinaryToText（Input Output: TStream）

　　var

　　NestingLevel: Integer;

　　SaveSeparator: Char;

　　Reader: TReader;

　　Writer: riter;

　　procedure WriteIndent;

　　const

　　Blanks: array[ ] of Char = ;

　　var

　　I: Integer;

　　begin

　　for I := to NestingLevel do Writer Write（Blanks SizeOf（Blanks））

　　end;

　　procedure WriteStr（const S: string）

　　begin

　　Writer Write（S[ ] Length（S））

　　end;

　　procedure NewLine;

　　begin

　　WriteStr（# # ）

　　WriteIndent;

　　end;

　　procedure ConvertHeader;

　　begin

　　…

　　end;

　　procedure ConvertBinary;

　　begin

　　…

　　end;

　　procedure ConvertValue;

　　begin

　　…

　　end;

　　procedure ConvertProperty;

　　begin

　　…

　　end;

　　procedure ConvertObject;

　　begin

　　…

　　end;

　　begin

　　NestingLevel := ;

　　Reader := TReader Create（Input ）

　　SaveSeparator := DecimalSeparator;

　　DecimalSeparator := ;

　　try

　　Writer := riter Create（Output ）

　　try

　　Reader ReadSignature;

　　ConvertObject;

　　finally

　　Writer Free;

　　end;

　　finally

　　DecimalSeparator := SaveSeparator;

　　Reader Free;

　　end;

　　end;

　　过程中调用的ConvertObject过程是个递归过程 用于将DFM文件中的每一个部件转化为文本形式 因为由于部件的拥有关系 所以部件成嵌套结构 采用递归是最好的方式

　　procedure ConvertObject;

　　begin

　　ConvertHeader;

　　Inc（NestingLevel）

　　while not Reader EndOfList do ConvertProperty;

　　Reader ReadListEnd;

　　while not Reader EndOfList do ConvertObject;

　　Reader ReadListEnd;

　　Dec（NestingLevel）

　　WriteIndent;

　　WriteStr（ end # # ）

　　end;

　　NestStingLevel变量表示部件的嵌套层次 WriteIndent是写入每一行起始字符前的空格 ConvertHeader过程是处理部件的继承标志信息 转换成的头信息文本有两种形式

　　Inherited TestForm : TTestForm[ ]

　　或者

　　Object TestForm : TTestForm

　　前者是ffInherited和ffChildPos置位 后面是都没置位

　　ConvertProperty过程用于转化属性

　　procedure ConvertProperty;

　　begin

　　WriteIndent;

　　WriteStr（Reader ReadStr）

　　WriteStr（ = ）

　　ConvertValue;

　　WriteStr（# # ）

　　end;

　　WriteIndent语句写入属性名前的空格 WriteStr（Reader ReadStr）语句写入属性名ConvertValue过程根据属性的类型将属性值转化为字符串 然后写入流中

lishixinzhi/Article/program/Delphi/201311/25088

---

大厂回族自治县19127654510： 请问谁有黑防的Delphi编程教程啊!!!？
严牵凯思： DELPHI基础教程 -------------------------------------------------------------------------------- 第一章 Delphi快速入门(一) 第一章 Delphi快速入门(二) 第一章 Delphi快速入门(三) 第一章 Delphi快速入门(四) 第一章 Delphi快速入门(五) 第二章 Delphi面...

大厂回族自治县19127654510： Delphi入门教程是什么? ？
严牵凯思： 按动ObjectInspector下端的“Events”页标签,使得Events页可见,这一定的事件后边的空白处,可以定义对象接受到相应事件时执行的动作

大厂回族自治县19127654510： 初学者如何学习DELPHI?对编程一点经验都没有 50分？
严牵凯思： 我的建议是直接从数据库编程开始 买一本书,找自己感兴趣的数据库编程,然后自己就照着做,这样在潜移默化中你将会学习到了基本基础知识 然后呢,你在慢慢学会变通吧:)

大厂回族自治县19127654510： Delphi7开发基础教程的介绍 - ？
严牵凯思： 《Delphi7开发基础教程》由牛汉民编著,科学出版社出版.本书共分7章,主要内容包括Delphi 7入门、Delphi语言基础、面向对象的程序设计技术、组件库体系结构及其使用、数据库应用系统开发基础、基于BDE的数据库应用程序开发和Delphi 7程序调试,可作为高等职业技术院校和相关认证课程教材,也可供从事Delphi 7应用开发的程序设计人员学习、参考.目录

大厂回族自治县19127654510： delphi应该怎么学?从何学起? - ？
严牵凯思： 建议按照下面步骤吧.... 先声明下 delphi 在WIN32应用方面 MIS数据库方面,C/S多层,,很强大,,,呵呵...... 1: 先学 Pascal , Object Pascal. 只要学习pascal的语法就行,比如变量声明,各种操作符,关键字等. 不管那种语言的语句基本上都...

大厂回族自治县19127654510： 怎么自学Delphi?？
严牵凯思： 先阅读 delphi入门与精通丛书 然后看视频课程和做demo练习 完事找个师傅做高端的开发 例如三层架构 工控等等 delphi盒子 delphi原地 等等 都是比较出色的网站 看看其他有经验人的交流

大厂回族自治县19127654510： Delphi语法基础? - ？
严牵凯思： Delphi语法基础2.1 保留字与标识符2.1.1 标识符 标识符是Object Pascal语言中各种成分 的名称,这些成分包括变量(Var)、常量(Const)、类型(Type)、过程(Procedure)、函数(Function)、方法(Method)、单元(Unit)等.标识符...

大厂回族自治县19127654510： 如何学习 delphi - ？
严牵凯思： 终于有人问这个问题了!我虽然现在编程这里得分最多,但是很少有人问我最喜欢回答的问题.就凭你要学DELPHI,不给分我也好好回答!我是个DELPHI的忠实FANS.大学刚毕业.初中生可以学这个,这是肯定的.学习DELPHI,其实就是...

大厂回族自治县19127654510： DELPHI数控加工技术教学这个毕业设计软件应该怎么去开发?？
严牵凯思： 下面从软件工程的角度介绍本程序的基本开发步骤.Delphi 应用程序一般包含以下三个基本部分: 应用程序运行的接口:负责系统整体环境的设置,运行状态的监视,应用程序的启动等.具体的内容可以参考一下 毕业设计( http://www.buy56.net/Product/Pro406.Html) 网站,他们那里关于这个题目的介绍比较详细,你去看一下肯定有好处的!

大厂回族自治县19127654510： delphi怎么入门啊？
严牵凯思： 1我认为进修次序应当是下面的步调: 实践是最重要的1、pascal说话,进修下根本的数据类型、语法构造(跟C差好远,愁闷); 2、搞个delphi7,进修桌面应用法度榜样的开辟,不消太难的,搞点小法度榜样就可以,比如写个寂骥什么的,关键是看delphi生成的代码是若何写的(感到跟VB一个样,事宜驱动); 3、进修delphi的面向对象编程,懂得面向对象编程的思惟,这点异常重要,要不就掉去了进修delphi的意义; 4、win32的编程,这部分是delphi的优势地点. 进修根本的语法===》IDE(熟悉组件) + RAD(快速开辟)=====》数据库(能让你认为有点成就)=====》windows ,收集,等等