回調(diào)函數(shù)與Delphi的事件模型

 

回調(diào)函數(shù)：

回調(diào)函數(shù)是這樣一種機(jī)制：調(diào)用者在初始化一個(gè)對(duì)象（這里的對(duì)象是泛指，包括OOP中的對(duì)象、全局函數(shù)等）時(shí)，將一些參數(shù)傳遞給對(duì)象，同時(shí)將一個(gè)調(diào)用者可以訪問(wèn)的函數(shù)地址傳遞給該對(duì)象。這個(gè)函數(shù)就是調(diào)用者和被調(diào)用者之間的一種通知約定，當(dāng)約定的事件發(fā)生時(shí)，被調(diào)用者（一般會(huì)包含一個(gè)工作線程）就會(huì)按照回調(diào)函數(shù)地址調(diào)用該函數(shù)。

這種方式，調(diào)用者在一個(gè)線程，被調(diào)用者在另一個(gè)線程。

在Windows API中有一些函數(shù)使用回調(diào)函數(shù)，例如CreateThread、SetWindowLong等。對(duì)應(yīng)的回調(diào)函數(shù)定義為如下形式：

function CallBackFunc(Wnd: HWND; Msg, WParam, LParam: Longint): Longint;stdcall;

PRocedure ThreadFunction(Ptr: Pointer);stdcall;

 

消息：

消息也可以看作是某種形式的回調(diào)，因?yàn)橄⒁彩窃诔跏蓟瘯r(shí)由調(diào)用者向被調(diào)用者傳遞一個(gè)句柄和一個(gè)消息編號(hào)，在約定的事件發(fā)生時(shí)被調(diào)用者向調(diào)用者發(fā)送消息。

這種方式，調(diào)用者在主線程中，被調(diào)用者在主線程或者工作線程中。

 

Delphi事件模型：

在Delphi的VCL中有很多可視化組件都是使用事件模型，例如TForm的OnCreate事件，其原理是：在設(shè)計(jì)時(shí)指定事件函數(shù)，在運(yùn)行時(shí)事件觸發(fā)，則會(huì)調(diào)用在設(shè)計(jì)時(shí)指定的事件函數(shù)。

在機(jī)制上，Delphi事件模型與回調(diào)是一樣的。但具體形式有些區(qū)別，純的回調(diào)函數(shù)是全局函數(shù)的形式，而Delphi事件是對(duì)象方法的形式，即可以定義如下回調(diào)函數(shù)類型

type

TCallBackFunc = procedure (pData: Pointer) of object;

這就使得Delphi事件只能在Delphi內(nèi)部使用，而回調(diào)函數(shù)是可以跨語(yǔ)言的。

 

另外還要注意，回調(diào)函數(shù)一般（在Delphi的組件是在主線程中）是在回調(diào)體中創(chuàng)建的線程，因此要有臨界區(qū)保護(hù)。