-->怎样调用BPL包中的过程？？？

Question

在DLL中可以用exports导出过程，再用GetProcAddress获得过程地址，可在包中不能使用exports，怎么办？？？

Answer 1

BPL好像不行吧！！！ 关注ing

Answer 2

在BPL中和DLL中一样的
除了BPL加载不是用loadlibrary,而是用LoadPackage（），再用GetProcAddress获得过程地址

Answer 3

好！我来试试：一、在包中新建一个窗体单元，提供输出的函数，过程。
unit frmDemo;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TDemoForm = class(TForm)
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
{声明函数和过程}
procedure SayHello;stdcall;
function  Add(a1,a2:Integer):Integer;stdcall;{导出函数和过程}
exports
  SayHello,
  Add;
var
  DemoForm: TDemoForm;implementation{$R *.dfm}
procedure SayHello;
begin
   ShowMessage('你好！');
end;function Add(a1,a2:Integer):Integer;
begin
   Result:=a1+a2;
end;procedure TDemoForm.Button1Click(Sender: TObject);
begin
   Self.close;
end;initialization
   RegisterClass(TDemoForm);
finalization
   UnRegisterClass(TDemoForm);
end.

Answer 4

接上，
二、在主程序中调用包中的对象以及函数过程
具体见代码如下：
unit Main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB,ADODB;type
  TMainForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    { Private declarations }
    PackageModule: HModule;
  public
    { Public declarations }
  end;
  {声明函数和过程}
  TAddFunc = function(a1,a2:Integer):Integer;stdcall;
  TSayHelloProc = procedure;stdcall;
var
  MainForm: TMainForm;implementation
uses
  DemoClassInt;
{$R *.dfm}procedure TMainForm.FormCreate(Sender: TObject);
begin
   try
      PackageModule:=LoadPackage('DemoPackage.bpl')
   except
      On E:Exception do
      begin
        MessageBeep(Word(-1));
        ShowMessage(E.Message);
        Application.Terminate;
      end;
   end;
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
   if PackageModule <> 0 then
      UnloadPackage(PackageModule);
end;{Package中函数的调用}
procedure TMainForm.Button1Click(Sender: TObject);
var
   AddFunc:TAddfunc;
   value:Integer;
   a1,a2:Integer;
begin
   @AddFunc:=GetProcAddress(PackageModule,PChar('Add'));
   if @AddFunc <> nil then
   begin
      Value:=AddFunc(2,2);
      showMessage('结果是:'+IntToStr(Value));
   end;
end;
{Package中过程的调用}
procedure TMainForm.Button2Click(Sender: TObject);
var
   SayHelloProc:TSayHelloProc;
begin
   @SayHelloProc:=GetProcAddress(PackageModule,PChar('SayHello'));
   if @SayHelloProc<>nil then
      SayHelloProc;
end;
end.