20.1.6 TResourceStream对象　

　　TResourceStream对象是另一类MemoryStream对象，它提供对Windows 应用程序资源的访问，因此称它为资源流。TResourceSream也是从TCustomMemoryStream 继承的。因此在TCustomMemoryStream对象的基础上，定义了与指定资源模块或资源文件建立连接的构造方法，并且还覆盖了Write，以实现向资源文件中写数据。

下面介绍TResourceStream的实现

　　1. 私有域

　　TResourceStream没有定义新的属性，但它在private部分定义了两个数据域HResInfo和HGlobol和一个私有方法Initialize，它们的定义如下：

TResourceStream = class(TCustomMemoryStream)

private

HResInfo: HRSRC;

HGlobal: THandle;

procedure Initialize(Instance: THandle; Name, ResType: PChar);

…

end;

　　HRSRC是描述Windows资源信息的结构句柄。HGlobal变量代表资源所在模块的句柄。如果操作的是应用程序资源，HGlohal就代表EXE程序的句柄；如果是动态链接库（DLL），则HGlobal 代表动态链接库的句柄。TResourceStream对象使用这两上变量访问应用程序或动态链接库中的资源。

　　Initialize方法是TResourceStream对象内部使用的。它墓乖旆椒?/font>Create和CreateFromID都是调用Initialize方法完成对TResourceStream的初始化。它的实现如下：

procedure TResourceStream.Initialize(Instance: THandle; Name, ResType: PChar);

procedure Error;

begin

raise EResNotFound.Create(FmtLoadStr(SResNotFound, [Name]));

end;

begin

HResInfo := FindResource(Instance, Name, ResType);

if HResInfo = 0 then

开发Delphi对象式数据管理功能（一） 开发Delphi对象式数据管理功能（三）