Question

delphi动态调用dll出错，请指导

主程序：
unit Unit1;interfaceuses ShareMem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type plus=function(x,y:double):double; stdcall; TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);varpfunc:TFarProc;hd1:THandle;a,b:double;begina:= strtofloat(edit1.text);b:= strtofloat(edit2.text);hd1:=loadlibrary('Project2.dll');if hd1<>0 thenbeginpfunc:=getprocaddress(hd1,'Project2.dll');edit3.text:=floattostr(plus(pfunc)(a,b));end; freelibrary(hd1);end;end.

dll程序代码：

library Project2;uses SysUtils, Classes;{$R *.res}function plus(x,y:double):double; stdcall;beginplus:=x+y;end;exportsplus;beginend.

出错图片：

Answer 1

pfunc:=getprocaddress(hd1,'Project2.dll');
改为
pfunc:=getprocaddress(hd1,'plus');

追问

运行后这是什么意思啊。

追答

plus=function(x,y:double):double; stdcall;
后边的stdcall去掉试试，即改为
plus=function(x,y:double):double;

追问

一样的，并且仍然可以编译。。

追答

pfunc:TFarProc;

改为
pfunc:plus;

pfunc:=getprocaddress(hd1,'Project2.dll');即pfunc:=getprocaddress(hd1,'plus');
改为
@pfunc:=getprocaddress(hd1,'plus');

plus=function(x,y:double):double;
还原为
plus=function(x,y:double):double; stdcall;

再试试，如果还不行，你可以将你的示例工程源码都打包发出来我试试
另：你的Delphi版本是多少，操作系统是什么？