Delphi回調函數及其使用

Delphi回調函數及其使用 
1 回調函數的概述

  回調函數是這樣一種機制：調用者在初始化一個對象（這裏的對象是泛指，包括OOP中的對象、全局函數等）時，將一些參數傳遞給對象，同時將一個調用者能夠訪問的函數地址傳遞給該對象。這個函數就是調用者和被調用者之間的一種通知約定，當約定的事件發生時，被調用者（通常會包含一個工做線程）就會按照回調函數地址調用該函數。
  這種方式，調用者在一個線程，被調用者在另外一個線程。

  消息：

　　消息也能夠看做是某種形式的回調，由於消息也是在初始化時由調用者向被調用者傳遞一個句柄和一個消息編號，在約定的事件發生時被調用者向調用者發送消息。
　　這種方式，調用者在主線程中，被調用者在主線程或者工做線程中。

  Delphi事件模型：

　　　在Delphi的VCL中有不少可視化組件都是使用事件模型，例如TForm的OnCreate事件，其原理是：在設計時指定事件函數，在運行時事件觸發，則會調用在設計時指定的事件函數。

　　在機制上，Delphi事件模型與回調是同樣的。但具體形式有些區別，純的回調函數是全局函數的形式，而Delphi事件是對象方法的形式，便可以定義以下回調函數類型
　　type

　　　　TCallBackFunc = procedure (pData: Pointer) of object;

  2 回調函數的使用說明

  回調函數主要在兩個場合使用，第一個是某些Windows的API要求用回調函數做爲其參數地址，另外一種是用戶在某種特定的場合定義的某個函數須要使用回調函數做爲其參數地址，對於用戶的定義的函數來講，通常是當調用動態鏈接庫中的函數時使用。

  對於使用一個回調函數主要有如下幾個步驟：

  一、定義一個回調函數類型，跟通常的函數過程的定義並無什麼區別，但其定義必須根據須要知足回調函數的函數要求，惟一的區別在於在函數或過程的定義後面必須聲明其爲windows標準調用；

  例：

  type

  THDFunction= function(I:integer;s:string):integer; stdcall;

對於過程的聲明：

  type

  THDProcedure=procedure(s:string); stdcall;

  二、 而後根據此原形定義一個相應的函數或過程，對於這個函數或過程來講名字沒有什麼要求，對函數其參數的類型和返回值的類型必須和定義的回調函數類型徹底一致，對於過程來講，只須要其參數類型同樣就能夠了。

  例：根據上面的函數和過程的原形定義一個相應的函數和一個相應的過程。

  函數原形定義：

  Function HdFunExample(k:integer,sExam:string):integer; stdcall;

  過程定義：

  procedure HdProExample(sExam:string);stdcall;

  三、 在程序中實現此回調函數或着過程；

  Function HdFunExample(k:integer,sExam:string):integer; stdcall;

  Begin

  End;

  procedure HdProExample(sExam:string);stdcall;
 
  begin

  end;

  四、 調用過程；

  回調函數通常做爲系統的某個函數的入口地址；

  根據調用函數的原形：

假設有以下調用函數：

  function DyHdFunExample(HdFun:THDFunction;I:integer):boolean;

  注：

  在調用函數中經過對函數指針的處理能夠直接調用回調函數（即調用函數中的那個是回調函數類型的參數，直接操做它），使回調函數履行必定的操做。即在調用函數中實現回調函數的功能。

  調用：

  var

  I:integer;

  begin

  I:=DyHdFunExample(@HdFunExample,i);

  //…….

  End;

  3 舉例說明

  示例程序在H:/ 回調函數示例/ 目錄下面。

  回調函數的使用主要在於Windows原有的API函數，但對於用戶的自定義的調用函數通常在於動態鏈接庫中。常規的同一個工程下面通常不須要使用回調函數。(我的認爲).。

 

功能大致描述：Form1中有一個Edit和一個Button,當點擊BUTTON時彈出FORM2，FORM2中也有一個EDIT和一個BUTTON，當點擊FORM2中的BUTTON時，將FORM2中的EDIT的TEXT屬性賦值給FORM1中的EDIT的TEXT。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls;

type
  TForm1 = class(TForm)
    {主窗體中放一個Edit和一個Button}
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    {定義一個用於回調的過程}
    procedure test(str:string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{引用unit2}
uses unit2;
{$R *.dfm}
{回調過程的實現部分}
procedure TForm1.test(str: string);
begin
  {將str值副給Edit1}
  Edit1.Text:=str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    {調用Unit2的接口方法}
    CallUnit2(test);
end;

end.
 

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  {定義一個回調函數類型}
  TFuncCallBack=procedure(str:string) of object;
  TForm2 = class(TForm)
    {Form2中也有一個Edit和一個Button}
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    {定義一個回調函數類型的變量}
    aFuncCallBack:TFuncCallBack;
  public
    { Public declarations }
  end;
  {提供給Unit1調用的接口方法,注意裏面的參數的類型}
  procedure CallUnit2(FuncCallBack:TFuncCallBack);

var
  Form2: TForm2;

implementation

{$R *.dfm}
{接口方法的實現部分}
procedure CallUnit2(FuncCallBack:TFuncCallBack);
begin
  Application.CreateForm(TForm2,Form2);
  {將參數賦值給FuncCallBack}
  Form2.aFuncCallBack:=FuncCallBack;

  Form2.ShowModal;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
  {當點擊Form2的按鈕時將Form2中的Edit的值傳遞給了Form1中的Edit}
  {是否是很神奇？我並無uses Unit1,但卻改變了Form1中Edit的Text屬性}
  aFuncCallBack(Edit1.Text);
  ModalResult:=mrOk;
end;

end.

http://blog.csdn.net/tercel99/article/details/4624686

http://blog.csdn.net/tercel99/article/details/4622207