作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

比如idl中的函数定义：
    [id(3), helpstring("method TCB83")]
    HRESULT TCB83([out]VARIANT* varRef);

对应的事件激发函数和代码说明如下：
        HRESULT Fire_TCB83(...)
        {
                //定义一个VARIANT的智能类型用于存放回调结果
                CComVariant varResult;
               
                //定义一个指向COM对象实例的指针
                T* pT = static_cast<T*>(this);
               
                int nConnectionIndex;
               
                //定义一个VARIANT智能类型的数组，这个数组用
                //来存放调用事件响应函数的参数，在调用后参数
                //返回的值（[out]或[in,out]的参数）仍放在对
                //应的位置上，可以取得返回的值。
                CComVariant* pvars = new CComVariant[1];
               
                //m_vec是一个智能接口指针数组的封装类，数组每
                //一项都是存放着一个客户端的事件接口指针，实际
                //上每个客户端在激活有连接点功能的服务器后，都
                //要调用类似Adviser的方法，把自己实现的事件响
                //应接口之指针传给服务器并放入这个数组，服务器
                //激发事件实际上就是使用数组中保存的事件接口指
                //针调用相应的方法，数组中的每个指针指向一个客户。
                int nConnections = m_vec.GetSize();
               
                //遍历上面说的数组，取出指针并用其调用事件响应函数
                for (nConnectionIndex = 0; 
                    nConnectionIndex < nConnections; nConnectionIndex++)
                {
                        //取出事件回调接口指针
                        pT->Lock();
                        CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
                        pT->Unlock();
                       
                        //强转为IDispatch指针类型
                        //这里多说一句，一般情况下，事件回调接口都定义
                        //为dispinterface（纯的dispatch接口），而不
                        //是IDispatch接口（双接口），这是为了有最广泛
                        //的语言兼容性，比如脚本语言只能实现dispinterface
                        //而不能实现vtbl。ATL也只有dispinterface的实现，
                        //不过如果只提供C++的支持可以用vtbl类型的接口（从
                        //IUnknown继承的接口），但代码就要自己写了，不过
                        //这样简单的多，因为C++使用分发接口是很不爽的。
                        //既然是dispinterface接口，只能用Invoke调用接口函数了。
                        IDispatch* pDispatch = 
                            reinterpret_cast<IDispatch*>(sp.p);
                       
                        if (pDispatch != NULL)
                        {
                                //为out型参数开空间，定义在这里是偷个懒，
                                //假设只有一个客户需要回调
                                VARIANT param;
                                VariantInit(&param);
                               
                                //对于out型参数，下面两行可以不要，只开好内存
                                //并初始化就好了，这两行只是为了取得返回值时方
                                //便些。
                                //对于in或in,out参数，此时要赋好值。
                                //ATL自动生成的代码有问题，对于复杂一些的参数
                                //类型（CComVariant不能处理的类型），直接生成
                                //的代码是错的，要自己改。
                                V_VT(&param) = VT_BYREF|VT_VARIANT;
                                V_VARIANTREF(&param) = ppsa;
                               
                                //下面就是调接口函数了，没啥好说的了。
                                VariantClear(&varResult);
                                pvars[0] = varRef;
                                DISPPARAMS disp = { pvars, NULL, 1, 0 };
                                pDispatch->Invoke(0x3, IID_NULL,
                                    LOCALE_USER_DEFAULT, DISPATCH_METHOD,
                                    &disp, &varResult, NULL, NULL);
                        }
                }
                delete[] pvars;
                return varResult.scode;
       
        }

相关软件：