這次只是熟悉一下實現回調的整個過程。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type PFCALLBACK = function(Param1:integer;Param2:integer):integer;stdcall;
// 定義回調函數的類型
var
Form1: TForm1;
gCallBack:PFCALLBACK;
function CBFunc(Param1:integer;Param2:integer):integer;stdcall;
implementation
//回調函數需要定義爲全局
{$R *.dfm}
///實現回調函數的功能
function CBFunc(Param1:integer;Param2:integer):integer;
var i:integer;
begin
//messagebox(application.Handle,'回調函數','提示信息',mb_ok);
for i:=0 to 100 do
begin
sleep(100);
self.ListBox1.Items.Add('回調函數');
end;
end;
///
function MyThreadFunc(P:pointer):Longint;stdcall;
begin
gCallBack(0,1);//簡單傳個參數
end;
procedure testpro ;
var i:integer;
hThread:Thandle;//定義一個句柄
ThreadID:DWord;
begin
for i:=0 to 4 do
begin
messagebox(application.Handle,'123','提示信息',mb_ok);
if (i=2) then
begin
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);//利用這種線程怎麼說呢，肯定方便啦，但是
//肯定功能上受到好多限制，所以啊，自己寫，下次貼個上來
end;
end;
end;
///
function TestCallBack( Func:PFCALLBACK ):integer;
begin
gCallBack:=Func;
testpro;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//testpro;
TestCallBack(@CBFunc);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
self.ListBox1.Clear;
end;
end.
使用回調函數需要注意的地方：
type PFCALLBACK = function(Param1:integer;Param2:integer):integer;stdcall;
// 定義回調函數的類型
function CBFunc(Param1:integer;Param2:integer):integer;stdcall;
//全局函數定義，指向函數的函數，指針！！！名字可以隨便取，但參數之類的需要與定義
//的函數類型一致。
function CBFunc(Param1:integer;Param2:integer):integer;
//寫該函數體就沒什麼好說拉
function TestCallBack( Func:PFCALLBACK ):integer;
//傳遞迴調函數的入口地址，最重要啦！
------------------
什麼是回調函數？
簡而言之，回調函數就是一個通過函數指針調用的函數。如果你把函數的指針（地址）作爲參數傳遞給另一個函數，當這個指針被用爲調用它所指向的函數時，我們就說這是回調函數。
爲什麼要使用回調函數？
因爲可以把調用者與被調用者分開。調用者不關心誰是被調用者，所有它需知道的，只是存在一個具有某種特定原型、某些限制條件（如返回值爲int）的被調用函數。
如果想知道回調函數在實際中有什麼作用，先假設有這樣一種情況，我們要編寫一個庫，它提供了某些排序算法的實現，如冒泡排序、快速排序、shell排序、shake排序等等，但爲使庫更加通用，不想在函數中嵌入排序邏輯，而讓使用者來實現相應的邏輯；或者，想讓庫可用於多種數據類型（int、float、string），此時，該怎麼辦呢？可以使用函數指針，並進行回調。
回調可用於通知機制，例如，有時要在程序中設置一個計時器，每到一定時間，程序會得到相應的通知，但通知機制的實現者對我們的程序一無所知。而此時，就需有一個特定原型的函數指針，用這個指針來進行回調，來通知我們的程序事件已經發生。實際上，SetTimer() API使用了一個回調函數來通知計時器，而且，萬一沒有提供回調函數，它還會把一個消息發往程序的消息隊列。
另一個使用回調機制的API函數是EnumWindow()，它枚舉屏幕上所有的頂層窗口，爲每個窗口調用一個程序提供的函數，並傳遞窗口的處理程序。如果被調用者返回一個值，就繼續進行迭代，否則，退出。EnumWindow()並不關心被調用者在何處，也不關心被調用者用它傳遞的處理程序做了什麼，它只關心返回值，因爲基於返回值，它將繼續執行或退出。
不管怎麼說，回調函數是繼續自C語言的，因而，在C++中，應只在與C代碼建立接口，或與已有的回調接口打交道時，才使用回調函數。除了上述情況，在C++中應使用虛擬方法或函數符（functor），而不是回調函數。
一個簡單的回調函數實現
下面創建了一個sort.dll的動態鏈接庫，它導出了一個名爲CompareFunction的類型--typedef int (__stdcall *CompareFunction)(const byte*, const byte*)，它就是回調函數的類型。另外，它也導出了兩個方法：Bubblesort()和Quicksort()，這兩個方法原型相同，但實現了不同的排序算法。
|
void DLLDIR __stdcall Bubblesort(byte* array,int size,int elem_size,CompareFunction cmpFunc); |
這兩個函數接受以下參數：
·byte * array：指向元素數組的指針（任意類型）。
·int size：數組中元素的個數。
·int elem_size：數組中一個元素的大小，以字節爲單位。
·CompareFunction cmpFunc：帶有上述原型的指向回調函數的指針。
這兩個函數會對數組進行某種排序，但每次都需決定兩個元素哪個排在前面，而函數中有一個回調函數，其地址是作爲一個參數傳遞進來的。對編寫者來說，不必介意函數在何處實現，或它怎樣被實現的，所需在意的只是兩個用於比較的元素的地址，並返回以下的某個值（庫的編寫者和使用者都必須遵守這個約定）：
·-1：如果第一個元素較小，那它在已排序好的數組中，應該排在第二個元素前面。
·0：如果兩個元素相等，那麼它們的相對位置並不重要，在已排序好的數組中，誰在前面都無所謂。
·1：如果第一個元素較大，那在已排序好的數組中，它應該排第二個元素後面。
基於以上約定，函數Bubblesort()的實現如下，Quicksort()就稍微複雜一點：
|
void DLLDIR __stdcall Bubblesort(byte* array,int size,int elem_size,CompareFunction cmpFunc) |
注意：因爲實現中使用了memcpy()，所以函數在使用的數據類型方面，會有所侷限。
對使用者來說，必須有一個回調函數，其地址要傳遞給Bubblesort()函數。下面有二個簡單的示例，一個比較兩個整數，而另一個比較兩個字符串：
|
int __stdcall CompareInts(const byte* velem1, const byte* velem2) |
下面另有一個程序，用於測試以上所有的代碼，它傳遞了一個有5個元素的數組給Bubblesort()和Quicksort()，同時還傳遞了一個指向回調函數的指針。
|
int main(int argc, char* argv[]) |
如果想進行降序排序（大元素在先），就只需修改回調函數的代碼，或使用另一個回調函數，這樣編程起來靈活性就比較大了。
調用約定
上面的代碼中，可在函數原型中找到__stdcall，因爲它以雙下劃線打頭，所以它是一個特定於編譯器的擴展，說到底也就是微軟的實現。任何支持開發基於Win32的程序都必須支持這個擴展或其等價物。以__stdcall標識的函數使用了標準調用約定，爲什麼叫標準約定呢，因爲所有的Win32 API（除了個別接受可變參數的除外）都使用它。標準調用約定的函數在它們返回到調用者之前，都會從堆棧中移除掉參數，這也是Pascal的標準約定。但在C/C++中，調用約定是調用者負責清理堆棧，而不是被調用函數；爲強制函數使用C/C++調用約定，可使用__cdecl。另外，可變參數函數也使用C/C++調用約定。
Windows操作系統採用了標準調用約定（Pascal約定），因爲其可減小代碼的體積。這點對早期的Windows來說非常重要，因爲那時它運行在只有640KB內存的電腦上。
如果你不喜歡__stdcall，還可以使用CALLBACK宏，它定義在windef.h中：
|
#define CALLBACK __stdcallor |
作爲回調函數的C++方法
因爲平時很可能會使用到C++編寫代碼，也許會想到把回調函數寫成類中的一個方法，但先來看看以下的代碼：
|
class CCallbackTester |
如果使用微軟的編譯器，將會得到下面這個編譯錯誤：
|
error C2664: 'Bubblesort' : cannot convert parameter 4 from 'int (__stdcall CCallbackTester::*)(const unsigned char *,const unsigned char *)' to 'int (__stdcall *)(const unsigned char *,const unsigned char *)' There is no context in which this conversion is possible |
這是因爲非靜態成員函數有一個額外的參數：this指針，這將迫使你在成員函數前面加上static。當然，還有幾種方法可以解決這個問題，但限於篇幅，就不再論述了。
----------------
//**********************************************************
1 回調函數的概述
回調函數是這樣一種機制：調用者在初始化一個對象（這裏的對象是泛指，包括OOP中的對象、全局函數等）時，將一些參數傳遞給對象，同時將一個調用者可以訪問的函數地址傳遞給該對象。這個函數就是調用者和被調用者之間的一種通知約定，當約定的事件發生時，被調用者（一般會包含一個工作線程）就會按照回調函數地址調用該函數。
這種方式，調用者在一個線程，被調用者在另一個線程。
消息：
消息也可以看作是某種形式的回調，因爲消息也是在初始化時由調用者向被調用者傳遞一個句柄和一個消息編號，在約定的事件發生時被調用者向調用者發送消息。
這種方式，調用者在主線程中，被調用者在主線程或者工作線程中。
Delphi事件模型：
在Delphi的VCL中有很多可視化組件都是使用事件模型，例如TForm的OnCreate事件，其原理是：在設計時指定事件函數，在運行時事件觸發，則會調用在設計時指定的事件函數。
在機制上，Delphi事件模型與回調是一樣的。但具體形式有些區別，純的回調函數是全局函數的形式，而Delphi事件是對象方法的形式，即可以定義如下回調函數類型
type
TCallBackFunc = procedure (pData: Pointer) of object;
2 回調函數的使用說明
回調函數主要在兩個場合使用，第一個是某些windows的API要求用回調函數作爲其參數地址，另一種是用戶在某種特定的場合定義的某個函數需要使用回調函數作爲其參數地址，對於用戶的定義的函數來說，一般是當調用動態連接庫中的函數時使用。
對於使用一個回調函數主要有以下幾個步驟：
1、 定義一個回調函數類型，跟一般的函數過程的定義並沒有什麼區別，但其定義必須根據需要滿足回調函數的函數要求，唯一的區別在於在函數或過程的定義後面必須聲明其爲windows標準調用；
例：
type
THDFunction= function(I:integer;s:string):integer; stdcall;
對於過程的聲明：
type
THDProcedure=procedure(s:string); stdcall;
2、 然後根據此原形定義一個相應的函數或過程，對於這個函數或過程來說名字沒有什麼要求，對函數其參數的類型和返回值的類型必須和定義的回調函數類型完全一致，對於過程來說，只需要其參數類型一樣就可以了。
例：根據上面的函數和過程的原形定義一個相應的函數和一個相應的過程。
函數原形定義：
Function HdFunExample(k:integer,sExam:string):integer; stdcall;
過程定義：
procedure HdProExample(sExam:string);stdcall;
3、 在程序中實現此回調函數或着過程；
Function HdFunExample(k:integer,sExam:string):integer; stdcall;
Begin
End;
procedure HdProExample(sExam:string);stdcall;
begin
end;
4、 調用過程；
回調函數一般作爲系統的某個函數的入口地址；
根據調用函數的原形：
假設有如下調用函數：
function DyHdFunExample(HdFun:THDFunction;I:integer):boolean;
注：
在調用函數中通過對函數指針的處理可以直接調用回調函數（即調用函數中的那個是回調函數類型的參數，直接操作它），使回調函數履行一定的操作。即在調用函數中實現回調函數的功能。
調用：
var
I:integer;
begin
I:=DyHdFunExample(@HdFunExample,i);
//…….
End;
//***********************************************************
//把一個方法當作另一個方法的參數, 就是回調方法, 大家習慣稱作回調函數
type
TFunType = function(i: Integer): Integer; {聲明一個方法類型}
function MyFun(i: Integer): Integer; {建立類型兼容的函數}
begin
Result := i*2;
end;
{把函數當作參數, 再定義一個函數}
function MyTest(x: Integer; F: TFunType): Integer;
begin
Result := F(x);
end;
{測試}
procedure TForm1.Button1Click(Sender: TObject);
var
Fun: TFunType; {聲明一個 TFunType 的變量}
i: Integer;
begin
Fun := MyFun; {讓方法變量 Fun 指向和它類型兼容的一個方法}
{測試 Fun; Fun 是一個方法變量, 現在去執行那個方法, 它就可以當作那個方法來使用了}
i := Fun(4);
ShowMessage(IntToStr(i)); //8
{把 Fun 當作參數使用; 把函數當作參數使用, 這就是回調函數}
i := MyTest(4,Fun);
ShowMessage(IntToStr(i)); //8
end;