回调函数(200分)

NbBoy · 2006-07-22

请大家帮我解释一下回调函数,并给我一个演示源码.

weiliu · 2006-07-22

问题: 回调函数 ( 积分: 10 )   分类: Object Pascal   来自: kenmen, 时间: 2000-12-04 0:17:03, ID: 409657   请问啥是回调函数？ 怎用？ 来自: robertcool, 时间: 2000-12-04 11:40:35, ID: 409926   Callback 来自: Iknow, 时间: 2000-12-04 12:43:15, ID: 409974   回调函数就是不会主动被调用, 而什么时候被调用就不知道了. 一般来说, 回调函数是用在其他异步的线程/进程/DLL函数中的, 调用者不知道调用了谁的函数, 而被调用者不知道什么时候会被调用. 简单地说就象回call机一样的. 你不知道什么时候会被call(调用^_^) 来自: colx, 时间: 2000-12-05 23:26:04, ID: 410578   关注此题 来自: kenmen, 时间: 2000-12-05 23:54:30, ID: 410604   能说详细点吗？ 来自: iforever, 时间: 2000-12-10 19:34:04, ID: 414535   好象跟CALL机不太一样哎. CALL人的一般知道在CALL谁, 被CALL的往往也知道CALL它的人. 来自: Jams, 时间: 2000-12-10 20:12:50, ID: 414557   好像在Windows的创建过程中,也用到过回调函数. 当窗口建立后,系统就调用该函数,完成对窗口参数的设置,如窗口名,图标,窗口类型等! 其何时被调用,则是不确定的,就像以上诸位的比喻那样! 来自: iforever, 时间: 2000-12-11 9:00:25, ID: 414899   这种问题不是谁一两句话就能说清楚的. 还是找本书看看吧. 来自: kenmen, 时间: 2000-12-13 0:15:12, ID: 416737   我也有书看，但不大明。。。。 来自: wjiachun, 时间: 2000-12-27 14:44:14, ID: 426313   kenmen:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。 来自: BaKuBaKu, 时间: 2001-01-07 13:49:15, ID: 434473   kenmen 还没有明白，老猫就杀贴子了。 回调函数是一个普通的函数，写好以后，你可以把它的地址传给另外的函数或进程，交由 对方去调用。 比如窗口消息响应函数：WndProc ，这个函数写好以后，就在 WNDCLASS 结构中填入函数 地址，调用 RegisterClass 函数注册该窗口类，等于把函数的地址交给了操作系统。 当操作系统接收到发给这个窗口的消息的时候，就会调用你的 WndProc，这就是一个回调 函数的实质。 typedef struct _WNDCLASS {    // wc     UINT    style;   WNDPROC lpfnWndProc;   int     cbClsExtra;   int     cbWndExtra;   HANDLE  hInstance;   HICON   hIcon;   HCURSOR hCursor;   HBRUSH  hbrBackground;   LPCTSTR lpszMenuName;   LPCTSTR lpszClassName; } WNDCLASS; 来自: 莫大先生, 时间: 2003-07-16 21:52:00, ID: 2034894   那么其他的函数也可以把地址传给其他函数阿？两者有什么区别？ 得分大富翁: Iknow-5,Jams-5,

weiliu · 2006-07-22

问题: 请详解回调函数（新手） ( 积分: 100 )   分类: 非技术问题   来自: jwang, 时间: 2001-03-26 21:23:51, ID: 481283   请举个例子 来自: 热血, 时间: 2001-03-26 21:27:31, ID: 481288   unit MainFrm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TWindowInfo = class   WindowName,          // The window name   WindowClass: String; // The window's class name end; TMainForm = class(TForm)   lbWinInfo: TListBox;   btnGetWinInfo: TButton;   hdWinInfo: THeaderControl;   procedure btnGetWinInfoClick(Sender: TObject);   procedure FormDestroy(Sender: TObject);   procedure lbWinInfoDrawItem(Control: TWinControl; Index: Integer;     Rect: TRect; State: TOwnerDrawState);   procedure hdWinInfoSectionResize(HeaderControl: THeaderControl;     Section: THeaderSection); end; var MainForm: TMainForm; implementation {$R *.DFM} function EnumWindowsProc(Hw: HWnd; AMainForm: TMainForm): Boolean; stdcall; var WinName, CName: array[0..144] of char; WindowInfo: TWindowInfo; begin Result := True; GetWindowText(Hw, WinName, 144); // Obtain the current window text GetClassName(Hw, CName, 144);    // Obtain the class name of the window WindowInfo := TWindowInfo.Create; with WindowInfo do begin   SetLength(WindowName, strlen(WinName));   SetLength(WindowClass, StrLen(CName));   WindowName := StrPas(WinName);   WindowClass := StrPas(CName); end; MainForm.lbWinInfo.Items.AddObject('', WindowInfo); // Add to Objects array end; procedure TMainForm.btnGetWinInfoClick(Sender: TObject); begin EnumWindows(@EnumWindowsProc, 0); end; procedure TMainForm.FormDestroy(Sender: TObject); var i: integer; begin for i := 0 to lbWinInfo.Items.Count - 1 do   TWindowInfo(lbWinInfo.Items.Objects).Free end; procedure TMainForm.lbWinInfoDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin lbWinInfo.Canvas.FillRect(Rect); with TWindowInfo(lbWinInfo.Items.Objects[Index]) do begin   DrawText(lbWinInfo.Canvas.Handle, PChar(WindowName),     Length(WindowName), Rect,dt_Left or dt_VCenter);   Rect.Left := Rect.Left + hdWinInfo.Sections[0].Width;   DrawText(lbWinInfo.Canvas.Handle, PChar(WindowClass),     Length(WindowClass), Rect, dt_Left or dt_VCenter); end; end; procedure TMainForm.hdWinInfoSectionResize(HeaderControl:  THeaderControl; Section: THeaderSection); begin lbWinInfo.Invalidate; // Force ListBox1 to redraw itself. end; end. delphi开发人员指南的例子 来自: jwang, 时间: 2001-03-26 22:20:23, ID: 481311   这个例子我见过。徐新华的DELPHI5从书中有。 我要 回调函数的概念、特点、功能、用法和在什么时候需要用到回调函数？ 来自: 房客, 时间: 2001-03-26 22:24:20, ID: 481314   关注此题 来自: mikedeakins, 时间: 2001-03-26 22:34:34, ID: 481325   调用的函数（内部代码）需要使用你编写的一个函数（外部代码）。 用途：枚举。因为每局一般要遍历内部的链表结构，如果利用什么序号来访问就太慢了 （算法复杂度基于n*n），利用回调函数，复杂度基于 n 。 有的时候要使用数据类型无关，但是无法解决两个数据的一些关系，也需要调用回调函数。 这个函数返回常量确定关系。（参见 TList 的排序回调函数） 回调函数很有用，不过别用得太多，否则程序的一部分代码看起来像是宏定义。 来自: jwang, 时间: 2001-03-26 23:00:34, ID: 481352   我刚学HOOK，见到CALLBACK函数，不知其它哪些地方还要用到它？ 来自: jwang, 时间: 2001-03-26 23:02:05, ID: 481353   对不起，搞措大小了。 来自: jwang, 时间: 2001-03-26 23:04:44, ID: 481357   请坛主把我的那个大字体的帖子删除。 我重写一便“ 我刚学HOOK，见到CALLBACK函数，不知其它哪些地方还要用到它？” 来自: 热血, 时间: 2001-03-27 9:48:20, ID: 481657   callback都是api要求的 比如enumprocess和setwindowhookex都要求函数是回调函数 来自: g622, 时间: 2001-03-27 9:49:23, ID: 481661   看到那个兰色的"ID"了吗点一下自己改 来自: 55555, 时间: 2001-03-27 9:59:03, ID: 481675   关注此题 来自: jwang, 时间: 2001-03-27 16:23:42, ID: 482198   热血兄，可有详尽资料介绍： 回调函数的概念、特点、功能、用法和在什么时候需要用到回调函数？ EMAIL过来，我也该给分了！ 来自: 热血, 时间: 2001-03-28 9:09:21, ID: 482888   这些都可以查msdn 不同的函数使用方法都不同啊 来自: jwang, 时间: 2001-05-21 15:01:08, ID: 538135   多人接受答案了。 问题讨论没有结束 ...

weiliu · 2006-07-22

问题: 什么是回调函数，最好有例子！ ( 积分: 49 )   分类: Windows API   来自: M16, 时间: 2002-12-23 16:22:00, ID: 1530826   顺便问一句，哪里有《英雄》的盗版卖？？？ 来自: withdraw, 时间: 2002-12-23 16:27:00, ID: 1530844   上网down type test=function(string str); procedure do_function(test test1); var String str1; begin str1:="asdad";  test1(str1); end 好像是这样 来自: jsxjd, 时间: 2002-12-23 16:38:00, ID: 1530886   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 16:49:00, ID: 1530949   to jsxjd 你说的意思我大概明白了，但是向你这个dll中 函数完全可以直接调用，为什么非要用什么回调函 数呢，请进一步解释，谢谢！ 来自: wlmmlw, 时间: 2002-12-23 17:00:00, ID: 1531004   把函数A做为一个参数传递给一个被调用函数B 这样B就可以反过来调用A了。 比如B在列出一个目录下的所有子目录，如果它设置了一个回调用函数，这样它就可以在 找到每个子目录的时候调用一下回调用函数来通知你，你就可以在回调用函数做某些操作。 来自: youou, 时间: 2002-12-23 17:13:00, ID: 1531061   回调函数是一种特殊的引出函数，是由WINDOWDS环境直接调用的函数。       不是被应用程序调用，而是被WIN 32 DLL或其他DLL调用。 来自: vine, 时间: 2002-12-23 17:17:00, ID: 1531079   可以看看＜Delphi5 开发人员指南＞里面的部分 很多地方有这个的电子书呵　！ 来自: pcexplorer, 时间: 2002-12-23 17:27:00, ID: 1531121   回调函数很有用 比如你的线程在一个单独的单元里，线程的功能是不断刷新主窗口上的进度条，如果不用回调 函数那么你必须要做的是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 17:32:00, ID: 1531141   说了半天在给断代码吧 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 19:05:00, ID: 1531337   呵~~ 不错。。还是上面两位说得清楚明白哦。。 来自: 人在昆明, 时间: 2002-12-23 19:09:00, ID: 1531344   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 19:11:00, ID: 1531346   不好意思，看错啦，回调去看看消息循环的那些东西吧，呵呵。 来自: youou, 时间: 2002-12-23 20:30:00, ID: 1531539   我想给 pcexplorer 加分。。 谢谢你讲得这么明白~~ http://www.delphibbs.com/delphibbs/dispq.asp?lid=1531533 请来这领分。。。 来自: M16, 时间: 2003-01-17 11:45:00, ID: 1585907   接受答案了. 得分大富翁: pcexplorer

weiliu · 2006-07-22

问题: 谁能形象地举例说明何为回调函数？ ( 积分: 50 )   分类: 控件 - 开发   来自: ykjt, 时间: 2005-11-17 14:01:00, ID: 3268474   它是如何工作的？有何用途？ 来自: 41426277, 时间: 2005-11-17 14:05:22, ID: 3268476   你的函数在另一个函数里运行, 形象吧. 回调函常用在设备上,如声卡,视频卡等等 来自: ykjt, 时间: 2005-11-17 14:49:27, ID: 3268536   还不好理解 来自: 7030, 时间: 2005-11-17 15:03:23, ID: 3268570   use mmsystem function timeSetEvent(uDelay, uResolution: UINT; lpFunction: TFNTimeCallBack; dwUser: DWORD; uFlags: UINT): MMRESULT; stdcall; 这个一个定时器创建函数,lpfunction就指一个回调函数,在这个回调函数里可以通过代码说明定时器触发时该做什么事,这样理解行否? 来自: flamingo, 时间: 2005-11-17 18:19:09, ID: 3268870   “形象地举例说明”？？？？ 好吧，我来形象一番： 回调，好比是你是雌性的，一个公的来使用了，他就插进来，就算完成了一次回调。 物理意义上，这个被回调的函数就象是个雌性的函数，具有回调能力的函数就是公函数，雌函数就是按照公函数的要求开放了一个口子，公函数在需要的时候就可以顺着这个口子插进来了。回去复习一下生理卫生的课程对你会有很大帮助的！！！ 来自: ykjt, 时间: 2005-11-18 20:22:57, ID: 3269060   好象窗口函数是回调函数，它是如何工作的？ 来自: ykjt, 时间: 2005-11-18 20:40:18, ID: 3269068   找了一点资料，为同样想知道本问题答案的朋友共享 ================================================ 使用回调函数实际上就是在调用某个函数（通常是API函数）时，将自己的一个函数（这个函数为回调函数）的地址作为参数传递给那个函数。而那个函数在需要的时候，利用传递的地址调用回调函数，这时你可以利用这个机会在回调函数中处理消息或完成一定的操作。至于如何定义回调函数，跟具体使用的API函数有关，一般在帮助中有说明回调函数的参数和返回值等。C++中一般要求在回调函数前加CALLBACK，这主要是说明该函数的调用方式。DialogBox的回调函数实际上是个窗口过程，用来处理所有消息。其定义为：   BOOL CALLBACK DialogProc(        HWND hwndDlg, // handle of dialog box    UINT uMsg, // message    WPARAM wParam, // first message parameter    LPARAM lParam // second message parameter   &nbsp

;   在Win32 API中有详细说明。一般使用C++ Builder或MFC的往往没有使用SDK编程的经验，建议找一些SDK编程的书看一下，否则很难理解如何使用窗口过程。   至于钩子函数，只是回调函数的一个特例。习惯上把与SetWindowsHookEx函数一起使用的回调函数称为钩子函数。也有人把利用VirtualQueryEx安装的函数称为钩子函数，不过这种叫法不太流行。 ========================== frank的意见：   我对回调函数的理解虽然粗浅，但是我觉得会让人更容易理解：回调函数就相当于一个中断处理函数，由系统在符合你设定的条件时自动调用。为此，你需要做三件事：1，声明；2，定义；3，设置触发条件，就是在你的函数中把你的回调函数名称转化为地址作为一个参数，以便于系统调用。   声明和定义时应注意：回调函数由系统调用，所以可以认为它属于WINDOWS系统。不要把它当作你的某个类的成员函数。    ===================== ping的意见：   frank说：回调函数属于WINDOWS系统。我觉得不应该说回调函数是属于系统的。应该说是程序把这段代码的触发交由系统来做。而这种做法是WINDOWS提供的处理机制吧，因为消息是系统一手掌握着的，由系统来调用我们的程序对消息的处理部分，这样子会比较方便。不然我们又得花力气去读消息列表了。（不知道我说的对不对，接触系统还不深，请高手指教哦） ============================= 也即：回调函数只在约定的情况出现时才被系统调用，是这样吗？那么，是如何约定的呢？ 来自: ykjt, 时间: 2005-11-18 20:59:08, ID: 3269083   function EnumWindows ( lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall; type EnumWindowsProc = function (Hwnd: THandle;   Param: Pointer): Boolean; stdcall; function GetTitle (Hwnd: THandle; Param: Pointer): Boolean; stdcall; var Text: string; begin SetLength (Text, 100); GetWindowText (Hwnd, PChar (Text), 100); FormCallBack.ListBox1.Items.Add (   IntToStr (Hwnd) + ': ' + Text); Result := True; end; procedure TFormCallback.BtnTitlesClick(Sender: TObject); var EWProc: EnumWindowsProc; begin ListBox1.Items.Clear; EWProc := GetTitle; EnumWindows (@EWProc, 0); end; 调用getTitle时，参数是如何传递给它？ Hwnd: THandle; Param: Pointer 分别传入了什么参数？ 来自: lich, 时间: 2005-11-21 8:40:10, ID: 3270713   就是你给个函数地址,我来调用 来自: ykjt, 时间: 2005-11-21 9:28:43, ID: 3270787   有回调能力的一定是win api吗？自已能否编写具有回调能力的函数？谁有例子学习一下。 来自: lich, 时间: 2005-11-21 12:18:02, ID: 3271082   回调只是一种进行通知的方法 来自: 风林坡, 时间: 2005-11-21 13:29:16, ID: 3271190   回调函数就是将某种方法或者接口给对方，对方可以再需要的时候使用你提供的方法或者接口。 回调用到的地方非常多，绝不仅限于WinAPI，在Delphi中，事件其实就是利用的回调机制，不过是类方法而已。 举一个生活中的例子，电影中也能看到的，比如说某个组织的人要去办事情，在办事情的过程中可能要向组织报告工作或者请求指示等等，这个时候他需要某些方法能够联系到组织，组织就为他专门提供了一部手机和一部对讲机，手机用来报告工作进度，对讲机用来请求指示。这种情况，手机和对讲机就可以理解为是组织提供给他的回调函数：） 呵呵，不知道这个例子是否形象 来自: id_delphibbs, 时间: 2005-11-21 14:12:17, ID: 3271262   你的电话号码，你的家庭地址就是回调，用途就是告诉别人你如何找到我。但你不会打电话找自己三。 来自: jsxjd, 时间: 2005-11-21 14:12:47, ID: 3271263   参数不是普通的数据,而是函数 来自: 刘麻子, 时间: 2005-11-21 14:19:44, ID: 3271276   http://www.2ccc.com/article.asp?articleid=1923 , 看看"程序21-3"和"程序21-4" 来自: 刘麻子, 时间: 2005-11-21 14:24:23, ID: 3271283   http://www.delphibbs.com/delphibbs/dispq.asp?lid=3266111 来自: 340340, 时间: 2005-11-21 14:40:28, ID: 3271316   寒周老大flamingo的回复......同时感谢楼主找的资料 来自: ykjt, 时间: 2005-11-22 10:43:28, ID: 3272167   谢谢各位 来自: 刘麻子, 时间: 2005-12-16 18:11:12, ID: 3299592   flamingo <> aimingoo 得分大富翁: 41426277-6,7030-6,flamingo-6,id_delphibbs-6,jsxjd-6,lich-6,风林坡-7,刘麻子-7,

NbBoy · 2006-07-23

在家说的我还是不太满意,能常情况下我们都是主动调用Windows API函数,但是在某些情况下Windows API也会调用我们写的自定义函数这就称为回调函数,通常情况下我们只知道在什么事件下我们自定义函数会被调用.但是我不理解什么是函数占位符. 以及如何具体运用. 请大家继续关注本贴.

NbBoy · 2006-07-24

接受答案了.

回调函数(200分)

NbBoy

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

NbBoy

Unregistered / Unconfirmed

NbBoy

Unregistered / Unconfirmed

Similar threads