delphi 调用dll中的资源的另类方法

      程序从dll中引用资源是很平常的事，这里要说的是另类的调用方式- 利用函数返回值返回资源流。

 

      常规的dll调用资源的方式是先加载dll，然后找资源句柄，再锁定资源，最后完成引用并释放。而delphi可以利用函数调用资源并返回其类型同样可以达到引用的目的，下面说说步骤：

 

      首先建立一个dll并在其中引入一个res资源，并在新单元里建立对应调用资源的函数，别忘记在dll主文件里定义函数的输出，代码如下：

 

unit lrc;interfaceusesWindows, Messages, SysUtils, Variants, Classes;function LoadMyRc:TResourceStream;stdcall export;{$R myrc.res}implementationfunction LoadMyRc:TResourceStream;stdcall;varMyRc:TresourceStream;beginMyRc:=TResourceStream.Create(Hinstance, 'MyJPG', 'jpg');result:=MyRc;end;end.

 

      然后在主程序中声明并调用此函数：

 

unit LoadRc;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,jpeg, ExtCtrls;type TForm4 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4; LoadMyRc:function:TResourceStream;stdcall;implementation{$R *.dfm}procedure TForm4.FormCreate(Sender: TObject);varMyRcHandle:THandle;MyJPG:TjpegImage;beginMyRcHandle:=LoadLibrary(Pchar(ExtractFilePath(Application.ExeName)+'MyRes.dll'));tryif MyRcHandle<>0 then begin @LoadMyRc:=GetProcAddress(MyRcHandle,'LoadMyRc'); MyJPG:=TjpegImage.Create(); MyJPG.LoadFromStream(LoadMyRc); image1.Picture.Assign(MyJPG); end else RaiseLastOSError;finally loadMyRc.free; FreeLibrary(MyRcHandle);end;end;end.

 

如果想调用时灵活一些就传两个参数进去指定调用的资源及类型即可。