Delphi7 从资源文件中载入GDI+对象
GDI+的Image及派生类中涉及到IStream流，在Delphi和C++Builder中广泛使用的TStream不能直接作为参数进行传递，VCL提供了一个TStreamAdapter类，用于把VCL流TStream转换为IStream。TStreamAdapter的构造过程原型如下：
constructor Create(Stream: TStream; Ownership: TStreamOwnership = soReference);
其中的TStreamOwnership枚举类型有2个值：soReference和，如果是soOwned，TStream对象由TStreamAdapter释放，否则由用户自己处理。请看下面的用流建立Image的Delphi代码：
var
Stream: TMemoryStream;
Adapter: TStreamAdapter;
Image: TGpImage;
begin
Stream := TMemoryStream.Create;
Stream.LoadFromFile('Test.jpg');
Adapter := TStreamAdapter.Create(Stream, soOwned);
Image := TGpImage.Create(Adapter);
try
.....
finally
Image.Free;
end;
end;
代码中，首先建立一个内存流，并从磁盘中装入一个图像文件，然后用TStreamAdapter将这个流封装起来，转换为IStream，供建立TGpImage使用。注意，我在建立TStreamAdapter对象时使用了soOwned，这样，由Adapter负责释放Stream，否则，必须在Image.Free后面Stream.Free。但是TStreamAdapter对象Adapter为什么没有释放代码呢？因为TStreamAdapter是个接口实现类，作为IStream传递给TGpImage.Create后，由系统自动跟踪释放，如果我们将它Free，会引起错误，如果非要显式释放它，必须用var I: IStream; I := Adapter; I := nil;的方法释放，而且必须在Image.Free之前，因为在Image.Free的同时，Adapter也随着IStream一起被释放掉了。
上面的代码在Delphi7 调试状态下会出现错误,在网上找了个C的代码,现在改为Pascal的,在个人机子上调试稳定:
function LoadGPImageFormRes(aHMoudle: DWORD; ResName, ResType: string):
TGPImage;
var
HRes: HRSRC;
sResName: string;
sResType: string;
Len: DWORD;
lpRsrc: PByte;
m_hMem: HGLOBAL;
pMem: PByte;
pstm: IStream;
begin
Result := nil;
sResName := ResName;
sResType := ResType;
HRes := FindResource(HInstance, PChar(sResName), PChar(sResType));
if HRes <> 0 then
begin
Len := SizeofResource(HInstance, HRes);
lpRsrc := PByte(LoadResource(HInstance, HRes));
try
if lpRsrc <> nil then
begin
m_hMem := GlobalAlloc(GMEM_FIXED, Len);
pMem := Pbyte(GlobalLock(m_hMem));
CopyMemory(pMem, lpRsrc, Len);
CreateStreamOnHGlobal(m_hMem, False, pstm);
Result := TGPImage.Create(pstm);
GlobalUnlock(m_hMem);
pstm := nil;
FreeResource(Dword(lpRsrc));
end;
except
if Assigned(Result) then
begin
FreeAndNil(Result);
end;
end;
end;
end;