相信用过Borland delphi或者C++ builder的朋友都应该对VCL组件中的事件回调机制有深刻印象，VCL组件大量的使用了事件属性来简化类之间的交互，提高了VCL组件开发程序的效率。同时，也可以在自己编写的的类中增加事件属性，使与VCL组件或者其他自定义类的交互变得简单、直观。

       VCL的事件机制其实就是函数指针回调的一种形式，通过在一个类A中保存其类B实例方法指针，类A就可以在其内部直接调用类B的实例方法。只是borland从开发语言层面上把其包装得易于理解和易用。如下面的例子：

       //声明一种事件类型，相当于c++中的函数指针类型，只是“of object”限定了此类型针对的是类方法。

       TErrorNotifyEvent = procedure (ErrCode:integer; ErrMsg:string) of object;

       TSourceClass=class(TObject)      //假设TSourceClass需要把其内部运行的错误通知给其他类的实例

        private

              //我们可以声明一个TErrorNotifyEvent类型的成员变量，用于保存回调函数指针

              FOnError:TErrorNotifyEvent;

        protected

              procedure DoErrorNotify(ErrCode:integer,ErrMsg:string);

        public

              //声明事件属性，并通过FOnError成员变量存取

              property OnError:TErrorNotifyEvent read FOnError write FOnError;

       End;

       procedure TSourceClass.DoErrorNotify(ErrCode:integer,ErrMsg:string);

       begin

              if FOnError<>nil then FOnError(ErrorCode,ErrMsg); //在TSrouceClass中回调FOnError保存的方法指针。

       end;

       这样，其他类就可以通过存取TSourceClass类的OnError属性达到使用TSourceClass错误报告的目的。一旦       TSourceClass内部有任何的错误需要通知到外部，都可以直接调用DoErrorNotify

       TTargetClass=class(TObject) //假设TTargetClass需要TSourceClass的错误通知

         private

         public

        //声明一个与TErrorNotifyEvent类型兼容的成员方法

              procedure ReceiveErrorNotify(ErrorCode:integer; ErrMsg:string);

       End;

       procedure TTargetClass.ReceiveErrorNotify(ErrorCode:integer; ErrMsg:string);

       begin

              //在ReceiveErrorNotify处理来自TSourceClass错误通知

       end;

       这样，TSourceClass与TTargetClass都已经具备了使用TErrorNotifyEvent事件类型进行交互的一切。下面的            代码演示了如何在它们的实例之间搭起联系。

       objSource:TSourceClass;

       objTarget:TTargetClass;

       objSource:=TSourceClass.Create;

       objTarget:=TTargetClass.Create;

       objSource.OnError:=objTarget.Receive //这样就把objSource与objTarget联系在一起。

       回到在c++可视化编成中占据重要地位的VC++，其MFC框架就没有提供如VCL框架类似的事件回调机制。不同类之间的交互需要编写很多额外的代码，或者使用其他的方法，如window消息。如使用MFC的CAsyncSocket类时，你不得不通过重载某些方法以达到接收socket数据的目的。如果CAsyncSocket本身有类似socket数据到达的事件通知OnDataArrived，那么我们就可以不需要重载CAsyncSocket类，直接在主程序类中使用OnDataArrived就可以达到接收socket数据的目的。

       那么，有没有别的方法可以帮助在VC中实现类似的VCL的事件回调机制呢？

       参照上面VCL的例子，我们很自然想到形如以下的方式：

typedef  void  (*NOTIFY_EVENT)(int notify_code);  //定义事件回调函数指针类型

class A

{

private:

public:

   NOTIFY_EVENT OnNotify; //声明事件属性

};

class B

{

private:

public:

  void  ReceiveNotify(int notify_code) //定义接收回调通知的成员函数

  {

  }

};

       并且按如下方式使用：

       A objA;

       B objB;

       objA.OnNotify=objB.ReceiveNotify;  //搭建类实例的之间联系，但此语句编译出错!

       在VC中编译，会产生如下的编译错误

              error C2440: '=' : cannot convert from 'void (__thiscall B::*)(int)' to 'void (__cdecl *)(int)'

[1] [2] 下一页