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

第二十章-开发Delphi对象式数据管理功能（五）（1）2007-05-0720.3.1.1写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;

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

20.3.1.2 读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;

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

20.3.1.3 读取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 <> 0;

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，得到读出的部件。