《--DELPHI基础教程--第二十章 开发Delphi对象式数据管理功能(五)》由会员分享，可在线阅读，更多相关《--DELPHI基础教程--第二十章 开发Delphi对象式数据管理功能(五)（47页珍藏版）》请在金锄头文库上搜索。
1、-DELPHI基础教程-第二十章 开发Delphi对象式数据管理功能(五) delphi基础教程 -DELPHI基础教程-其次十章开发Delphi对象式数据管理功能（五）后一页 前一页回名目回首页其次十章开发Delphi对象式数据管理功能（五）20.3.1.1写DFM文件的过程：WriteComponentResFie该过程带有两个参数FileName和Instance。FileName参数指定要写入的DFM文件名，Instance参数是TComponent类型的，它指定要写入的部件名，一般是TForm对象的子类。该过程将Instance部件和其拥有的全部部件写入DFM文件。这个过程的意义在于
2、，可以在程序运行过程中产生Delphi的窗体部件和在窗体中插入部件，并由该函数将窗体写入DFM文件，支持了动态DFM文件的重用性。该过程的程序是这样的：procedure WriteComponentResFile(const FileName: string; Instance:TComponent);varStream: TStream;beginStream := TFileStream.Create(FileName, fmCreate);tryStream.WriteComponentRes(Instance.ClassName, Instance);finallyStream.Fr
3、ee;end;end;函数中，用FileStream创建文件，用Stream对象的WriteComponetRes方法将Instance写入流中。20.3.1.2 读DFM文件的函数：ReadComponentResFileReadComponentResFile函数带有两个参数FileName和Instance。FileName参数指定要读DFM文件名，Instance参数指定从DFM文件中要读的部件。该函数从DFM文件中将Instance和它拥有的全部部件，并返回该部件。这个函数的意义在于，协作WriteComponentResFile过程的使用支持DFM文件的重用性。该函数的程序是这样的
4、：function ReadComponentResFile(const FileName: string; Instance:TComponent):TComponent;varStream: TStream;beginStream := TFileStream.Create(FileName, fmOpenRead);tryResult := Stream.ReadComponentRes(Instance);finallyStream.Free;end;end;程序中使用FileStream对象打开由FileName指定的DFM文件，然后用Stream对象的ReadComponentRe
5、s方法读出Instance，并将读的结果作为函数的返回值。20.3.1.3 读取Delphi应用程序资源中的部件函数InternalReadComponentRes可以读取Delphi应用程序资源中的部件。Delphi的DFM文件在程序经过编译链接后被嵌入应用程序的资源中，而且格式发生了转变，即少了资源文件头。在第一节中曾经介绍过TResourceStream对象，该对象是操作资源媒介上的数据的。函数InternalReadComponentRes用了TResourceStream。程序是这样的：function InternalReadComponentRes(const ResName:
6、string;var Instance: TComponent): Boolean;var delphi基础教程 HRsrc: THandle; begin 避开“EResNotFound”特别大事的消失 HRsrc := FindResource(HInstance, PChar(ResName), RT_RCDATA);Result := HRsrc 0;if not Result then Exit;FreeResource(HRsrc);with TResourceStream.Create(HInstance, ResName, RT_RCDATA) dotryInstance :=
7、 ReadComponent(Instance);finallyFree;end;Result := True;end;HInstance是一个DelphiVCL定义的全局变量，代表当前应用程序的句柄。函数用了资源访问API函数FindResource来测定是否存在ResName所描述资源。由于在TResourceStream的创建过程还有FindResource等操作，所以函数中调用了FreeResource。最终函数调用了Stream对象的ReadComponent方法读出部件。由于函数的Instance是var类型的参数，所以可以访问Instance，得到读出的部件。20.3.1.4 D
8、FM文件与标准文本文件(TXT文件)的相互转换在Delphi可视化设计环境中，允许程序员在代码编辑器中以文本的方式扫瞄和修改DFM文件内容。当用File/Open命令直接打开DFM文件或者选择窗体设计窗口的弹出式菜单上的ViewasText命令时，就会在编辑器中消失文本形式的信息。我们姑且将这种文本形式称之为窗体设计脚本。Delphi供应的这种脚本编辑功能是对Delphi可视化设计的一大补充。当然这个脚本编辑力量是有限制的，比方说不能在脚本任意地添加和删除部件，由于代码和DFM脚本是紧密相连的，任意添加和修改会导致不全都性。然而在动态生成的DFM文件中，就不存在这一限制，后面会介绍DFM动态生
9、成技术的应用。实际上，DFM文件内容是二进制数据，它的脚本是经过Delphi开发环境自动转化的，而且DelphiVCL中的Classes库单元中供应了在二进制流中的文件DFM和它的脚本之相互转化的过程。它们是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。ObjectBinaryToText过程将二进制流中存储的部件转化为基于文本的表现形式，这样就可以用文本处理函数进行处理，还可以用文本编辑器进行查找和替代操作，最终可以将文本再转化成二进制流中的部件。ObjectBinaryToText
10、过程的主程序是这样的：procedure ObjectBinaryToText(Input, Output: TStream);varNestingLevel: Integer;SaveSeparator: Char;Reader: TReader;Writer: TWriter;procedure WriteIndent;constBlanks: array0.1 of Char = ;varI: Integer;beginfor I := 1 to NestingLevel do Writer.Write(Blanks, SizeOf(Blanks);end;procedure Write
11、Str(const S: string);beginWriter.Write(S1, Len delphi基础教程 gth(S); end;procedure NewLine;beginWriteStr(#13#10);WriteIndent;end;procedure ConvertHeader;beginend;procedure ConvertBinary;beginend;procedure ConvertValue;beginend;procedure ConvertProperty;beginend;procedure ConvertObject;beginend;beginNes
12、tingLevel := 0;Reader := TReader.Create(Input, 4096);SaveSeparator := DecimalSeparator;DecimalSeparator := .;tryWriter := TWriter.Create(Output, 4096);tryReader.ReadSignature;ConvertObject;finallyWriter.Free;end;finallyDecimalSeparator := SaveSeparator;Reader.Free;end;end;过程中调用的ConvertObject过程是个递归过程
13、，用于将DFM文件中的每一个部件转化为文本形式。由于由于部件的拥有关系，所以部件成嵌套结构，采纳递归是最好的方式：procedure ConvertObject;beginConvertHeader;Inc(NestingLevel);while not Reader.EndOfList do ConvertProperty;Reader.ReadListEnd;while not Reader.EndOfList do ConvertObject;Reader.ReadListEnd;Dec(NestingLevel);WriteIndent;WriteStr(end#13#10);end;
14、NestStingLevel变量表示部件的嵌套层次。WriteIndent是写入每一行起始字符前的空格，ConvertHeader过程是处理部件的继承标志信息。转换成的头信息文本有两种形式。Inherited TestForm1: TTestForm2或者：Object TestForm1: TTestForm前者是ffInherited和ffChildPos置位，后面是都没置位。ConvertProperty过程用于转化属性。procedure ConvertProperty;beginWriteIndent;WriteStr(Reader.ReadStr);WriteStr( = );ConvertValue;WriteStr(#13#10);end;WriteIndent语句写入属性名前的空格，WriteStr(Reader.ReadStr)语句写入属性名ConvertValue过程依据属性的类型将属性值转化为字符串，然后写入流中。ObjectTextToBinary过程执行的功能与ObjectBinaryToText相反，将TXT文件转换为二进制流中的部件，而且只要TXT文件内容的书写符合DFM脚本语法，ObjectTextToBinary可将任何程序生成的TXT文件转换为部件，这一功能也为DFM文件的动态生成和编辑奠定了基础。ObjectText
