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方法的例子。