开发Delphi对象式数据管理功能（二）,开发Delphi对象式数据管理功能（二）
【 tulaoshi.com - Delphi 】
20.1.6 TResourceStream对象
TResourceStream对象是另一类MemoryStream对象，它提供对Windows 应用程序资源的访问，因此称它为资源流。TResourceSream也是从TCustomMemoryStream 继承的。因此在TCustomMemoryStream对象的基础上，定义了与指定资源模块或资源文件建立连接的构造方法，并且还覆盖了Write，以实现向资源文件中写数据。
下面介绍TResourceStream的实现
1. 私有域
TResourceStream没有定义新的属性，但它在private部分定义了两个数据域HResInfo和HGlobol和一个私有方法Initialize，它们的定义如下：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/delphi/）
TResourceStream = class(TCustomMemoryStream)
private
HResInfo: HRSRC;
HGlobal: THandle;
procedure Initialize(Instance: THandle; Name, ResType: PChar);
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/delphi/）…
end;
HRSRC是描述Windows资源信息的结构句柄。HGlobal变量代表资源所在模块的句柄。如果操作的是应用程序资源，HGlohal就代表EXE程序的句柄；如果是动态链接库（DLL），则HGlobal 代表动态链接库的句柄。TResourceStream对象使用这两上变量访问应用程序或动态链接库中的资源。
Initialize方法是TResourceStream对象内部使用的。它墓乖旆椒?/fontCreate和CreateFromID都是调用Initialize方法完成对TResourceStream的初始化。它的实现如下：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/delphi/）
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
来源:http://www.tulaoshi.com/n/20160129/1493248.html
看过《开发Delphi对象式数据管理功能（二）》的人还看了以下文章 更多>>
