20.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; 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; 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,得到读出的部件。 <  
1/2 1 2 下一页 尾页 |