什么是回调函数，最好有例子！(49分)

M16 · 2002-12-23

顺便问一句，哪里有《英雄》的盗版卖？？？

withdraw · 2002-12-23

上网down type test=function(string str); procedure do_function(test test1); var String str1; begin str1:="asdad";    test1(str1); end 好像是这样

jsxjd · 2002-12-23

23. 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.

M16 · 2002-12-23

to jsxjd 你说的意思我大概明白了，但是向你这个dll中 函数完全可以直接调用，为什么非要用什么回调函 数呢，请进一步解释，谢谢！

wlmmlw · 2002-12-23

把函数A做为一个参数传递给一个被调用函数B 这样B就可以反过来调用A了。 比如B在列出一个目录下的所有子目录，如果它设置了一个回调用函数，这样它就可以在 找到每个子目录的时候调用一下回调用函数来通知你，你就可以在回调用函数做某些操作。

youou · 2002-12-23

回调函数是一种特殊的引出函数，是由WINDOWDS环境直接调用的函数。         不是被应用程序调用，而是被WIN 32 DLL或其他DLL调用。

vine · 2002-12-23

可以看看＜Delphi5 开发人员指南＞里面的部分 很多地方有这个的电子书呵　！

pcexplorer · 2002-12-23

回调函数很有用 比如你的线程在一个单独的单元里，线程的功能是不断刷新主窗口上的进度条，如果不用回调 函数那么你必须要做的是A(主单元)引用B，B引用A而且这样结构就很差，如果用了回调函数就 只要A引用B就可以了。 如: TMyProc = procedure (iMax, iPosition: Integer); //线程构造 //FProc: Pointer; constructor Create(AProc: Pointer); begin   inherited Create(False);   FProc := AProc; end; procedure CallMyProc; begin   TMyProc(FProc)(Max, Position); end; //OnExecute synchronize(CallMyProc); //这样主程序只要做一个函数来操纵本单元窗口上的东西就可以了 procedure MyProc(iMax, iPosition: Integer); begin   with Form1 do   begin     ProgressBar1.Max := iMax;      ProgressBar1.Position := iPosition;   end; end; //创建线程把函数地址传递到线程中，在线程中得到了地址就可以调用了， //这样线程单元就完全独立开来了，不引用主窗口的单元却操纵了主窗口的东西 with SomeThread.Create(@MyProc) do //我在我的程序里经常用回调函数很有用 //其实任何一个Windows程序都用到和回调函数在CreateWindow的时候就必须向Windows传递一个 //函数地址，你回发现您并没有调用，但实际程序确实工作了，Why？因为Windows调用了这个函数， //这个就是原理

pcexplorer · 2002-12-23

说了半天在给断代码吧 unit Unit3; interface uses   Classes, Windows, Forms; type   TMyCallBackProc = procedure (FMin, FMax, FPosition: integer);   TMyThread2 = class(TThread)   private     FProc: Pointer;     { Private declarations }     procedure SynchProcedure;   protected     procedure Execute; override;   public     constructor Create(const AProc: Pointer);   end; implementation { TMyThread2 } constructor TMyThread2.Create(const AProc: Pointer); begin   FProc := AProc;   inherited Create(false); end; procedure TMyThread2.Execute; begin   FreeOnTerminate := true;   Synchronize(SynchProcedure); end; procedure TMyThread2.SynchProcedure; const   cMin = 0;   cMax = 100; var   i: integer; begin   if FProc <> nil then     for i := cMin to cMax do     begin       TMyCallBackProc(FProc)(cMin, cMax, i);       Sleep(100);       Application.ProcessMessages;     end; end; end. //---------------------------------------- procedure MyCallBackProc(FMin, FMax, FPosition: integer); begin   with Form1.ProgressBar2 do   begin     Min := FMin;     Max := FMax;     Position := FPosition;   end; end; procedure TForm1.Button1Click(Sender: TObject); var   MyThread2: TMyThread2; begin   MyThread2 := TMyThread2.Create(@MyCallBackProc); end;

youou · 2002-12-23

呵~~ 不错。。还是上面两位说得清楚明白哦。。

人在昆明 · 2002-12-23

search 了一下硬盘，找到了一个算法的，以前写的 题目是那个著名的生小兔的问题，说一堆兔子三个月后会生一对小兔，然后每个月 生一对，小兔长到三个月后每个月又可以生一对，假设都不死，按照这个规律20个月 后多少只兔子。 分析过程： {     不知道大家发现了没有规律如下： 　　数学中有一个以他的名字命名的著名数列： 　　1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, ……     从第三个月每个月的兔子数目是前两个月的和     那么问题就变成了，求第 n 项得值,那么就是一个递归而已了 } 下面是我的递归算法： function TRabbit.RecursionRabbit(iNum: Integer): Integer; var   I: Integer; begin   if (iNum = 1) or (iNum = 2) then     Result := 1   else     Result := RecursionRabbit(iNum - 1) + RecursionRabbit(iNum - 2) end;

人在昆明 · 2002-12-23

不好意思，看错啦，回调去看看消息循环的那些东西吧，呵呵。

youou · 2002-12-23

我想给 pcexplorer 加分。。 谢谢你讲得这么明白~~ http://www.delphibbs.com/delphibbs/dispq.asp?lid=1531533 请来这领分。。。

M16 · 2003-01-17

接受答案了.

什么是回调函数，最好有例子！(49分)

M16

Unregistered / Unconfirmed

withdraw

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

M16

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

M16

Unregistered / Unconfirmed

Similar threads