做这个Dispatch实现基类的目标有3个:
1。能够很方便滴映射成员供脚本(包括使用WebBrowser的external对象) 访问;
2。最好能不依赖MFC;
3。不用tlb文件,不写注册表。
实现的时候,参考了Delphi的ComAutoObj(话说回来,这个单元的BUG可不小,上次做的时候用着用着就出错。。。还好有个好心的澳大利亚青年发了个补丁……扯到哪里去了-___-b) 最后完成下来,派生类中的映射是这样滴,看起来还不错:P,也没有像MFC的CDispatchHelper里面的VTS_I4这样的东东了:
BEGIN_AC_DISPMAP(CMyGlobal)
AC_DISP_FUNCTION(1, L"alert", alert)
AC_DISP_FUNCTION(2, L"add", add2)
AC_DISP_PROP(3, L"count", get_count, put_count)
AC_DISP_READONLYPROP(4, L"beeper", get_beeper)
END_AC_DISPMAP()
不多说鸟,贴CODE:
ACDispatch.h
#pragma once
#include "oaidl.h"
#include "comutil.h"
#define BEGIN_AC_DISPMAP(theClass) /
typedef void (theClass::*_AC_DispP1Func)(_variant_t, _variant_t&);/
HRESULT MultiParamInvoke(_AC_DispP1Func func, DISPPARAMS *pDispParams, VARIANT *pVarResult)/
{/
if ( pDispParams->cArgs != 1 ) return E_INVALIDARG;/
_variant_t v1(pDispParams->rgvarg[0]);/
_variant_t retval;/
(this->*func)(v1, retval);/
if (pVarResult) *pVarResult = retval;/
return S_OK;/
}/
typedef void (theClass::*_AC_DispP2Func)(_variant_t, _variant_t, _variant_t&);/
HRESULT MultiParamInvoke(_AC_DispP2Func func, DISPPARAMS *pDispParams, VARIANT *pVarResult)/
{/
if ( pDispParams->cArgs != 2 ) return E_INVALIDARG;/
_variant_t v1(pDispParams->rgvarg[0]);/
_variant_t v2(pDispParams->rgvarg[1]);/
_variant_t retval;/
(this->*func)(v1, v2, retval);/
if (pVarResult) *pVarResult = retval;/
return S_OK;/
}/
typedef void (theClass::*_AC_DispP3Func)(_variant_t, _variant_t, _variant_t, _variant_t&);/
HRESULT MultiParamInvoke(_AC_DispP3Func func, DISPPARAMS *pDispParams, VARIANT *pVarResult)/
{/
if ( pDispParams->cArgs != 3 ) return E_INVALIDARG;/
_variant_t v1(pDispParams->rgvarg[0]);/
_variant_t v2(pDispParams->rgvarg[1]);/
_variant_t v3(pDispParams->rgvarg[2]);/
_variant_t retval;/
(this->*func)(v1, v2, v3, retval);/
if (pVarResult) *pVarResult = retval;/
return S_OK;/
}/
typedef void (theClass::*_AC_DispP4Func)(_variant_t, _variant_t, _variant_t, _variant_t, _variant_t&);/
HRESULT MultiParamInvoke(_AC_DispP4Func func, DISPPARAMS *pDispParams, VARIANT *pVarResult)/
{/
if ( pDispParams->cArgs != 4 ) return E_INVALIDARG;/
_variant_t v1(pDispParams->rgvarg[0]);/
_variant_t v2(pDispParams->rgvarg[1]);/
_variant_t v3(pDispParams->rgvarg[2]);/
_variant_t v4(pDispParams->rgvarg[3]);/
_variant_t retval;/
(this->*func)(v1, v2, v3, v4, retval);/
if (pVarResult) *pVarResult = retval;/
return S_OK;/
}/
typedef void (theClass::*_AC_DispP5Func)(_variant_t, _variant_t, _variant_t, _variant_t, _variant_t, _variant_t&);/
HRESULT MultiParamInvoke(_AC_DispP5Func func, DISPPARAMS *pDispParams, VAR