vb中写的dll,在delphi中怎么调用的, 那个帮我修改一下...(50分)

  • 主题发起人 主题发起人 土土
  • 开始时间 开始时间

土土

Unregistered / Unconfirmed
GUEST, unregistred user!
vb中的函数
Public Function AddI(la As Integer, lb As Integer)
AddI = la + lb
End Function
delphi中调用

implementation
function AddI(var la:Integer;lb: Integer): Integer
stdcall;external 'ADDL.dll';

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
lresult : Integer;
i,j : Integer;
begin
i:= 1;
j:= 3;
lresult := AddI(i,j);
end;
 
后退
顶部