用于脚本的IDispatch实现

做这个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