Z
zhangweizw
Unregistered / Unconfirmed
GUEST, unregistred user!
我自己编了一个很简单的DLL,其中有一个求两个整数之和的函数。静态调用没有问题,可是
动态调用的时候,编译老是通不过,谁告诉我为什么?调用如下:
procedure TForm1.Button1Click(Sender: TObject);
var
alib:thandle;
funcrocedure;
all:integer;
begin
alib:=loadlibrary('dll');
if alib>=32 then
begin
func:=getprocaddress(alib,'add');
all:=func(strtoint(edit1.text),strtoint(strtoint(edit2));
label1.Caption :=inttostr(all);
freelibrary(alib);
end;
end;
动态调用的时候,编译老是通不过,谁告诉我为什么?调用如下:
procedure TForm1.Button1Click(Sender: TObject);
var
alib:thandle;
funcrocedure;
all:integer;
begin
alib:=loadlibrary('dll');
if alib>=32 then
begin
func:=getprocaddress(alib,'add');
all:=func(strtoint(edit1.text),strtoint(strtoint(edit2));
label1.Caption :=inttostr(all);
freelibrary(alib);
end;
end;