500分求解（一经通过立即放分）--还是关于回调函数 (300分)

中原 · 2003-05-08

回调函数的贴子很多，可真正有用的没有几张。我现在要写一个回调函数，我需要的是通过 dll来调用Exe中的函数，然后返回结果 以下是完整的例子，但它只是通过EXE去调用DLL。这和一般的DLL调用没有多大的区别。 DLL 程序 library Project2; uses   SysUtils,   Classes;   function AddTwo(x,y:integer):integer;stdcall;   begin     Result:=x+y;   end;   function MultiTwo(x,y:integer):integer;stdcall;   begin     Result:=x*y;   end; {$R *.RES}   exports AddTwo,MultiTwo; begin end. 调用程序 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function AddTwo(x,y:integer):integer;stdcall;external 'project2.dll'; function MultiTwo(x,y:integer):integer;stdcall;external 'project2.dll'; type   TCallBackFun=function(x,y:integer):integer;stdcall; function Myfun(x,y:integer;f:TCallBackFun):integer; begin   result:=TCallBackFun(f)(x,y); end; procedure TForm1.Button1Click(Sender: TObject); begin   showmessage(inttostr(MyFun(10,20,@AddTwo)));   showmessage(inttostr(MyFun(10,20,@MultiTwo))); end; end. 我把上面的代码该写为： DLL部分 library Prdllsamp; uses   SysUtils,   Classes; {$R *.res} type   TCallBackFun=function(x,y:integer):integer;stdcall;   function Myfun(x,y:integer;f:TCallBackFun):integer;   begin       result:=TCallBackFun(f)(x,y);   end; exports     Myfun  index 1; begin end. 调用程序 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TCallBackFun=function(x,y:integer):integer;stdcall;   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation  function Myfun(x,y:integer;f:TCallBackFun):integer;stdcall;external 'prdllsamp.dll'; {$R *.dfm}  function AddTwo(x,y:integer):integer;stdcall;   begin     Result:=x+y;   end;   function MultiTwo(x,y:integer):integer;stdcall;   begin     Result:=x*y;     showmessage(inttostr(result));   end; procedure TForm1.Button1Click(Sender: TObject); begin   showmessage(inttostr(MyFun(10,20,@MultiTwo))); end; end. 功能好象是达到了，但不能用。我对回调函数不熟，请那位高人指点！

helloqiner · 2003-05-08

我觉得你应该将Exe中的公用函数也写成Dll，然后用Exe调用Dll，而以上问题也可转换为 Dll调用Dll了。

sunwill · 2003-05-08

远帆 · 2003-05-08

library Prdllsamp; uses   SysUtils,   Classes; type   TCallBackFun = function(x, y: integer): integer; stdcall; function Myfun(x, y: integer; f: TCallBackFun): Integer; stdcall; begin   Result := f(x, y); end; exports   Myfun; begin end. unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; function Myfun(x, y: integer; f: Pointer): integer; stdcall; external 'project2.dll'; implementation {$R *.dfm} function AddTwo(x, y: integer): Integer;stdcall; begin   Result := x + y; end; function MultiTwo(x, y: integer): Integer;stdcall; begin   Result := x * y; end; procedure TForm1.Button1Click(Sender: TObject); begin   Label1.Caption := inttostr(MyFun(10, 20, @MultiTwo)); end; end.

小小鹰 · 2003-05-08

不明白为什么要从DLL回调EXE [

][

]

sofox · 2003-05-08

把所有该死的stdcall全部去掉就可以啦

joken2000 · 2003-05-08

　　不能用是為什么？我試了一下，可行

中原 · 2003-05-12

To joken2000:     你用的可能是上我原来的调用的方法，我希望的方法回出错，而且根本就不能得出正确得结果。 To 小小鹰:     我需要的是回调函数，你可以参看有关回调函数的例子和说明。 To sofox:     谢谢，好像可以。可我现在要用的是用调用VC的动态库，我该怎样去做呢？ To 远帆:     你的答案我能在网上找到很多很多，而且你的这中说法没有实质性的结果.

远帆 · 2003-05-12

看到你的话我简直是想骂你一顿！！！ 什么叫我的答案能在网上找到很多很多？这是我在你的程序的基础上改的不是在网上抄的！ 我这种说法没有实质性的结果？这是什么话？你试试能不能得到结果再说话！

中原 · 2003-05-12

to 远帆:    呵呵，回的挺快。我试一下，你给的结果很好.现在放分！给个mail以后多联系。

中原 · 2003-05-12

多人接受答案了。

yinxianglong · 2003-05-12

你声明的回调函数可能有问题  TCallBackFun=function(x,y:integer):integer;stdcall;    如果在DLL中,所有的DLL程序共享一块内存区，所以不管[段地址] 是什么,只要[偏移地址]相同,都指向同一物理存储单元，如果在EXE 中,不同的段地址,同一个[偏移地址]指向的是不同的物里存储单元. 所以DLL->DLL没有问题,DLL->EXE会出现问题; 在C中有只要声明成 CallBack函数就成,CallBack函数肯定是 far 调用 所以你出问题在地方是函数声明上

yinxianglong · 2003-05-12

你这样试一下 TCallBackFun=function(x,y:integer):integer;stdcall;far;

500分求解（一经通过立即放分）--还是关于回调函数 (300分)

中原

Unregistered / Unconfirmed

helloqiner

Unregistered / Unconfirmed

sunwill

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

小小鹰

Unregistered / Unconfirmed

sofox

Unregistered / Unconfirmed

joken2000

Unregistered / Unconfirmed

中原

Unregistered / Unconfirmed

远帆

Unregistered / Unconfirmed

中原

Unregistered / Unconfirmed

中原

Unregistered / Unconfirmed

yinxianglong

Unregistered / Unconfirmed

yinxianglong

Unregistered / Unconfirmed

Similar threads