回调函数

最新推荐文章于 2025-04-01 16:23:19 发布

转载最新推荐文章于 2025-04-01 16:23:19 发布 · 2.4k 阅读

文章标签：

#winapi #delphi #dll #integer #buffer #编程

Windows 专栏收录该内容

33 篇文章

订阅专栏

本文介绍回调函数的概念及其在VC和Delphi混合编程中的应用。详细解释了如何声明回调函数类型、函数原型，以及如何实现跨模块调用。通过具体实例展示了回调函数在异步任务中的高效使用。

回调函数来自 yifanff's Blog

原文链接：http://post.blog.hexun.com/yifanff/trackback.aspx?articleid=1123727&key=632643134864300000

回调函数是一个很有用，也很重要的概念。当发生某种事件时，系统或其他函数将会自动调用你定义的一段函数。回调函数在 windows 编程使用的场合很多，比如 Hook 回调函数： MouseProc,GetMsgProc 以及 EnumWindows,DrawState 的回调函数等等，还有很多系统级的回调过程。本文不准备介绍这些函数和过程，而是谈谈实现自己的回调函数的一些经验。

之所以产生使用回调函数这个想法，是因为现在使用 VC 和 Delphi 混合编程，用 VC 写的一个 DLL 程序进行一些时间比较长的异步工作，工作完成之后，需要通知使用 DLL 的应用程序：某些事件已经完成 , 请处理事件的后续部分。开始想过使用同步对象，文件影射，消息等实现 DLL 函数到应用程序的通知，后来突然想到可不可以在应用程序端先写一个函数，等需要处理后续事宜的时候，在 DLL 里直接调用这个函数即可。

于是就动手，写了个回调函数的原形。在 VC 和 Delphi 里都进行了测试

一：声明回调函数类型。

vc 版

typedef int (WINAPI *PFCALLBACK)(int Param1,int Param2) ;

Delph 版

PFCALLBACK=function(Param1:integer;Param2:integer):integer;stdcall;

实际上是声明了一个返回值为 int, 传入参数为两个 int 的指向函数的指针。

由于C++和PASCAL编译器对参数入栈和函数返回的处理有可能不一致，把函数类型用WINAPI(WINAPI宏展开就是__stdcall)或stdcall统一修饰。

二：声明回调函数原形

声明函数原形

vc 版

int WINAPI CBFunc(int Param1,int Param2) ；

Delphi 版

function CBFunc(Param1,Param2:integer):integer;stdcall;

以上函数为全局函数，如果要使用一个类里的函数作为回调函数原形，把该类函数声明为静态函数即可。

三：回调函数调用调用者

调用回调函数的函数我把它放到了 DLL 里，这是一个很简单的 VC 生成的 WIN32 DLL. 并使用 DEF 文件输出其函数名 TestCallBack 。实现如下：

PFCALLBACK gCallBack=0;
void WINAPI TestCallBack(PFCALLBACK Func)

{

if(Func==NULL)return;

gCallBack=Func;

DWORD ThreadID=0;

HANDLE hThread = CreateThread(

NULL,

Thread1,

LPVOID(0),

&ThreadID

);

return;

}

此函数的工作把传入的 PFCALLBACK Func 参数保存起来等待使用，并且启动一个线程。声明了一个函数指针 PFCALLBACK gCallBack 保存传入的函数地址。

四：回调函数如何被使用：

TestCallBack 函数被调用后，启动了一个线程，作为演示，线程人为的进行了延时处理，并且把线程运行的过程打印在屏幕上 .

本段线程的代码也在 DLL 工程里实现

ULONG WINAPI Thread1(LPVOID Param)

{

TCHAR Buffer[256];

HDC hDC = GetDC(HWND_DESKTOP);

int Step=1;

MSG Msg;

DWORD StartTick;

// 一个延时循环

for(;Step<200;Step++)

{

StartTick = GetTickCount();

/* 这一段为线程交出部分运行时间以让系统处理其他事务*/

for(;GetTickCount()-StartTick<10;)

{

if(PeekMessage(&Msg,NULL,0,0,PM_NOREMOVE) )

{

TranslateMessage(&Msg);

DispatchMessage(&Msg);

}

/* 把运行情况打印到桌面，这是 vcbear 调试程序时最喜欢干的事情 */

sprintf(Buffer,"Running %04d",Step);

if(hDC!=NULL)

TextOut(hDC,30,50,Buffer,strlen(Buffer));

}

/* 延时一段时间后调用回调函数 */

(*gCallback)(Step,1);

/* 结束*/

::ReleaseDC (HWND_DESKTOP,hDC);

return 0;

}

五：万事具备

使用vc和Delphi各建立了一个工程，编写回调函数的实现部分

VC 版

int WINAPI CBFunc(int Param1,int Param2)

{

int res= Param1+Param2;

TCHAR Buffer[256]="";

sprintf(Buffer,"callback result = %d",res);

MessageBox(NULL,Buffer,"Testing",MB_OK); // 演示回调函数被调用

return res;

}

Delphi 版

function CBFunc(Param1,Param2:integer):integer;

begin

result:= Param1+Param2;

TForm1.Edit1.Text:=inttostr(result); / / 演示回调函数被调用
end;

使用静态连接的方法连接DLL里的出口函数 TestCallBack,在工程里添加 Button( 对于Delphi的工程，还需要在Form1上放一个Edit控件，默认名为Edit1)。

响应ButtonClick事件调用 TestCallBack
TestCallBack(CBFunc) //函数的参数CBFunc为回调函数的地址

函数调用创建线程后立刻返回，应用程序可以同时干别的事情去了。现在可以看到屏幕上不停的显示字符串，表示dll里创建的线程运行正常。一会之后，线程延时部分结束结束，vc的应用程序弹出MessageBox,表示回调函数被调用并显示根据Param1，Param2运算的结果，Delphi的程序edit控件里的文本则被改写成Param1，Param2 的运算结果。

可见使用回调函数的编程模式，可以根据不同的需求传递不同的回调函数地址，或者定义各种回调函数的原形（同时也需要改变使用回调函数的参数和返回值约定），实现多种回调事件处理，可以使程序的控制灵活多变，也是一种高效率的，清晰的程序模块之间的耦合方式。在一些异步或复杂的程序系统里尤其有用 -- 你可以在一个模块（如 DLL ）里专心实现模块核心的业务流程和技术功能，外围的扩展的功能只给出一个回调函数的接口，通过调用其他模块传递过来的回调函数地址的方式，将后续处理无缝地交给另一个模块，随它按自定义的方式处理。

本文的例子使用了在 DLL 里的多线程延时后调用回调函数的方式，只是为了突出一下回调函数的效果，其实只要是在本进程之内，都可以随你高兴可以把函数地址传递来传递去，当成回调函数使用。

这样的编程模式原理非常简单单一：就是把函数也看成一个指针一个地址来调用，没有什么别的复杂的东西，仅仅是编程里的一个小技巧。至于回调函数模式究竟能为你带来多少好处，就看你是否使用，如何使用这种编程模式了。