使用回调函数(VC & Delphi)

核心提示：五：万事具备使用vc和Delphi各建立了一个工程，编写回调函数的实现部分VC版int WINAPI CBFunc(int Param1,int Param2){int res=Param1+Param2;TCHAR Buffer[256]="";sprintf(Buffer,"callb

五：万事具备

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

VC版

int WINAPI CBFunc(int Param1,int Param2)
{
　int res=Param1+Param2;
　TCHAR Buffer[256]="";
　sprintf(Buffer,"callbackresult=%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里的多线程延时后调用回调函数的方式，只是为了突出一下回调函数的效果，其实只要是在本进程之内，都可以随你高兴可以把函数地址传递来传递去，当成回调函数使用。

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