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

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

 

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

 

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

 

unit lrc; interface uses Windows, Messages, SysUtils, Variants, Classes; function LoadMyRc:TResourceStream;stdcall export; {$R myrc.res} implementation function LoadMyRc:TResourceStream;stdcall; var MyRc:TresourceStream; begin MyRc:=TResourceStream.Create(Hinstance, 'MyJPG', 'jpg'); result:=MyRc; end; end.

 

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

 

unit LoadRc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,jpeg, ExtCtrls; type