Delphi 在使用exports中的方法 带参数的用法

最近项目中，需要在一个bpl中调用另一个bpl中的单元的方法， 方法如下：

 

在被调用的单元中定义：

procedure Inner_Ex(VoucherType: TVoucherType);

exports Inner_Ex;

 

实现：

procedure Inner_Ex(VoucherType: TVoucherType);
var
  frm: tfrmaaa;
begin
  frm := tfrmaaa.Create(Application);
  try
    frm.VoucherType := VoucherType;
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

 

 

在那个bpl中调用

首先：定义一个过程变量

TMyProcedure1 = procedure(x: TVoucherType);   //20130927 zzf 添加

 

实现：

procedure Inner_Stuff;
var
  Handle: THandle;
  MyProcedure: TMyProcedure1;
Begin
  //声明
  MyProcedure := nil;

  if Handle = 0 then
    Handle := LoadPackage('Ple.bpl');
  if Handle <> 0 then
    @MyProcedure := GetProcAddress(Handle, 'Inner_Ex');
  if Assigned(MyProcedure) then

  ///调用
   MyProcedure(sNC);
end;

 

上面的例子就是把带参数，调用bpl方法的例子。