宏定义的极致发挥---让你的普通C++类轻松支持IDispatch自动化接口(二)

这是上一篇博客《宏定义的极致发挥---让你的普通C++类轻松支持IDispatch自动化接口》所展示的示例代码的改进版，改进之处有：

• 1、如果不想直接提供成员作为属性，可以用成员函数的方式提供属性读写。
  2、支持基类映射表，即如果基类也实现了映射表，派生类不用重复填表，自动合并基类表项。唯一的要求就是DISPID不要重复。
  3、可以同时合并多个基类映射表。
  4、添加可选参数支持，比如某个方法有5个参数，后3个为可选参数（有默认值），那么调用者可以只用2个参数来调用。
  5、添加DISPID_VALUE支持，类似于VB中的对象默认属性。

简单的使用示例：

class CAnimal{public:    bool Sex;    Begin_Disp_Map(CAnimal)        Disp_Property(1, Sex, bool)    End_Disp_Map()};class CDog : public CAnimal{public:    CString Name;    long Height;    void Drink();    bool Eat(long lType, long lNum);    HRESULT GetName(VARIANT* pvName);    HRESULT SetName(VARIANT* pvName);    Begin_Disp_Map(CDog, CAnimal)        Disp_Property(2, Name)        Disp_PropertyGet(3, Height, long)        Disp_Method(4, Drink, void, 0)        Disp_Method(5, Eat, bool, 2, long, long)    End_Disp_Map()};

从示例代码看出跟原始版本有如下不同：

1. 基类CAnimal也有映射表，意思是基类可以独立变成自动化对象。
2. CDog可以继承CAnimal的映射表，只需要把基类名加在起始表项里，Begin_Disp_Map(CDog, CAnimal)。如果不想继承基类映射表，去掉基类类名即可，例如 Begin_Disp_Map(CDog)。如果CDog同时派生自另一个也有映射表的基类，比如CFourLegs，可以这样写 Begin_Disp_Map(CDog, CAnimal, CFourLegs)。这样做的话，CDog 将自动拥有 Sex 属性。
3. Name属性将不再直接处理 Name 成员变量，而是通过GetName/SetName来读取和设置，具体的类型转换将由两个函数完成。

以上并没有列举具有可选参数的方法的填表用法，稍微有点复杂，有时间的话在下一篇介绍。

好了，下面是完整的头文件：

#ifndef __MACRO_H__#define __MACRO_H__#pragma once#ifndef __cplusplus#error macro.h requires C++ compilation (use a .cpp suffix)#endif#if (_MSC_VER < 1400)#error macro.h requires Visual C++ 2005 and above.#endif #pragma warning(push)#pragma warning(disable:4800)#ifndef DISPID_EXPANDO_BASE#define DISPID_EXPANDO_BASE             3000000#define DISPID_EXPANDO_MAX              3999999#define IsExpandoDispid(dispid)         (DISPID_EXPANDO_BASE <= dispid && dispid <= DISPID_EXPANDO_MAX)#endif // DISPID_EXPANDO_BASE//////////////////////////////////////////////////////////////////////////// 基础工具宏定义#define __for_each_number(v, ...) /v(0, __VA_ARGS__) /v(1, __VA_ARGS__) /v(2, __VA_ARGS__) /v(3, __VA_ARGS__) /v(4, __VA_ARGS__) /v(5, __VA_ARGS__) /v(6, __VA_ARGS__) /v(7, __VA_ARGS__) /v(8, __VA_ARGS__) /v(9, __VA_ARGS__) /v(10, __VA_ARGS__) /v(11, __VA_ARGS__) /v(12, __VA_ARGS__) /v(13, __VA_ARGS__) /v(14, __VA_ARGS__) /v(15, __VA_ARGS__)#define __for_each_number_base1(v, ...) /v(1, __VA_ARGS__) /v(2, __VA_ARGS__) /v(3, __VA_ARGS__) /v(4, __VA_ARGS__) /v(5, __VA_ARGS__) /v(6, __VA_ARGS__) /v(7, __VA_ARGS__) /v(8, __VA_ARGS__) /v(9, __VA_ARGS__) /v(10, __VA_ARGS__) /v(11, __VA_ARGS__) /v(12, __VA_ARGS__) /v(13, __VA_ARGS__) /v(14, __VA_ARGS__) /v(15, __VA_ARGS__)// 数值减的常数#define __cntdec_0 0#define __cntdec_1 0#define __cntdec_2 1#define __cntdec_3 2#define __cntdec_4 3#define __cntdec_5 4#define __cntdec_6 5#define __cntdec_7 6#define __cntdec_8 7#define __cntdec_9 8#define __cntdec_10 9#define __cntdec_11 10#define __cntdec_12 11#define __cntdec_13 12#define __cntdec_14 13#define __cntdec_15 14#define __cntdec(n) __cntdec_##n// 连接两个符号#define __connect2(x, y) x##y#define __connect(x, y) __connect2(x, y)// 把符号变成字符串#define __to_string2(x) #x#define __to_string(x) __to_string2(x)// 生成不同个数的顺序符号#define __repeat_0(m, ...)#define __repeat_1(m, ...)__repeat_0(m, __VA_ARGS__)  m(1, __VA_ARGS__)#define __repeat_2(m, ...)__repeat_1(m, __VA_ARGS__)  m(2, __VA_ARGS__)#define __repeat_3(m, ...)__repeat_2(m, __VA_ARGS__)  m(3, __VA_ARGS__)#define __repeat_4(m, ...)__repeat_3(m, __VA_ARGS__)  m(4, __VA_ARGS__)#define __repeat_5(m, ...)__repeat_4(m, __VA_ARGS__)  m(5, __VA_ARGS__)#define __repeat_6(m, ...)__repeat_5(m, __VA_ARGS__)  m(6, __VA_ARGS__)#define __repeat_7(m, ...)__repeat_6(m, __VA_ARGS__)  m(7, __VA_ARGS__)#define __repeat_8(m, ...)__repeat_7(m, __VA_ARGS__)  m(8, __VA_ARGS__)#define __repeat_9(m, ...)__repeat_8(m, __VA_ARGS__)  m(9, __VA_ARGS__)#define __repeat_10(m, ...) __repeat_9(m, __VA_ARGS__)  m(10, __VA_ARGS__)#define __repeat_11(m, ...) __repeat_10(m, __VA_ARGS__)  m(11, __VA_ARGS__)#define __repeat_12(m, ...) __repeat_11(m, __VA_ARGS__)  m(12, __VA_ARGS__)#define __repeat_13(m, ...) __repeat_12(m, __VA_ARGS__)  m(13, __VA_ARGS__)#define __repeat_14(m, ...) __repeat_13(m, __VA_ARGS__)  m(14, __VA_ARGS__)#define __repeat_15(m, ...) __repeat_14(m, __VA_ARGS__)  m(15, __VA_ARGS__)#define __last_repeat_0(m, ...)#define __last_repeat_1(m, ...)m(1, __VA_ARGS__)#define __last_repeat_2(m, ...)m(2, __VA_ARGS__)#define __last_repeat_3(m, ...)m(3, __VA_ARGS__)#define __last_repeat_4(m, ...)m(4, __VA_ARGS__)#define __last_repeat_5(m, ...)m(5, __VA_ARGS__)#define __last_repeat_6(m, ...)m(6, __VA_ARGS__)#define __last_repeat_7(m, ...)m(7, __VA_ARGS__)#define __last_repeat_8(m, ...)m(8, __VA_ARGS__)#define __last_repeat_9(m, ...)m(9, __VA_ARGS__)#define __last_repeat_10(m, ...) m(10, __VA_ARGS__)#define __last_repeat_11(m, ...)  m(11, __VA_ARGS__)#define __last_repeat_12(m, ...)  m(12, __VA_ARGS__)#define __last_repeat_13(m, ...)  m(13, __VA_ARGS__)#define __last_repeat_14(m, ...)  m(14, __VA_ARGS__)#define __last_repeat_15(m, ...)  m(15, __VA_ARGS__)#define __repeat(n, m_begin, m_end, ...) __connect(__repeat_, __cntdec(n))(m_begin, __VA_ARGS__) __connect(__last_repeat_, n)(m_end, __VA_ARGS__)// 基础工具宏结束////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Add IDispatch to class//////////////////////////////////////////////////////////////////////////// 扩充CVarTypeInfo 模板类的定义//template<>//class CVarTypeInfo< void >//{//public://static const VARTYPE VT = VT_EMPTY;////static char VARIANT::* const pmField;//};template<typename T>class CVarTypeInfoEx : public CVarTypeInfo<T>{public:static HRESULT Assign(T& tDst, VARIANT* pSrc){CComVariant v;if (FAILED(v.ChangeType(VT, pSrc))) return DISP_E_BADVARTYPE;#pragma warning(push)#pragma warning(disable:4800)tDst = v.*pmField;#pragma warning(pop)return S_OK;}static T Value(CComVariant& v){return v.*pmField;}static bool ChangeType(CComVariant& vDst, VARIANT* pSrc){return SUCCEEDED(vDst.ChangeType(VT, pSrc));}};template<>class CVarTypeInfoEx<VARIANT> : public CVarTypeInfo<VARIANT>{public:static HRESULT Assign(VARIANT& tDst, VARIANT* pSrc){return ::VariantCopy(&tDst, pSrc);}static VARIANT Value(CComVariant& v){return v;}static bool ChangeType(CComVariant& vDst, VARIANT* pSrc) { return vDst=*pSrc, true; }};template<>class CVarTypeInfoEx<CComVariant> : public CVarTypeInfoEx<VARIANT>{public:static HRESULT Assign(CComVariant& tDst, VARIANT* pSrc){tDst = *pSrc;return S_OK;}static CComVariant Value(CComVariant& v){return v;}};//template<>//class CVarTypeInfoEx<CComBSTR> : public CVarTypeInfoEx<BSTR>//{//public://static HRESULT Assign(CComBSTR& tDst, VARIANT* pSrc)//{//CComVariant v;//if (FAILED(v.ChangeType(VT, pSrc))) return DISP_E_BADVARTYPE;//tDst//#pragma warning(push)//#pragma warning(disable:4800)//tDst = v.*pmField;//#pragma warning(pop)//return S_OK;//}//static CComBSTR Value(CComVariant& v)//{//return v.*pmField;//}//};//////////////////////////////////////////////////////////////////////////template<>class CVarTypeInfo< bool >{public:static const VARTYPE VT = VT_BOOL;static VARIANT_BOOL VARIANT::* const pmField;};__declspec( selectany ) VARIANT_BOOL VARIANT::* const CVarTypeInfo< bool >::pmField = &VARIANT::boolVal;// 扩充CComBSTR 类型，用这种类型代替BSTR，能防止内存泄露或者内存释放错误template<>class CVarTypeInfo< CComBSTR >{public:static const VARTYPE VT = VT_BSTR;static BSTR VARIANT::* const pmField;};__declspec( selectany ) BSTR VARIANT::* const CVarTypeInfo< CComBSTR >::pmField = &VARIANT::bstrVal;// END of CVarTypeInfo. 使用者可以自行扩充新的类型，例如用CString来保存字符串//////////////////////////////////////////////////////////////////////////// 定义多参数的模板类//////////////////////////////////////////////////////////////////////////// 可选参数模板类，#define __optparam(n, ...) typename T##n=int,#define __optparam_end(n, ...) typename T##n=int#define __optvalue(n, ...) T##n t##n=0,#define __optvalue_end(n, ...) T##n t##n=0#define __optswitch(n, ...) case n: return CComVariant(t##n);template<int nT=1, __repeat(15, __optparam, __optparam)  __repeat(15, __optvalue, __optvalue_end) >class _ParamsOpt{public:static UINT Count() { return nT; }static CComVariant DefaultValue(UINT index){switch (index){__repeat(15, __optswitch, __optswitch)}return CComVariant();}};// 0个参数的特化模板//template<>class _ParamsOpt_0{public:static UINT Count() { return 0; }static CComVariant DefaultValue(UINT) { return CComVariant(); }};// 方法工具模板类和工具宏#define __tparam(n, ...) typename T##n,#define __tparam_end(n, ...) typename T##n#define __param_type(n, ...) if (n<=dp->cArgs && !CVarTypeInfoEx<T##n>::ChangeType(v[n-1], &dp->rgvarg[dp->cArgs-n])) return E_INVALIDARG;#define __funcparam(n, ...) CVarTypeInfoEx<T##n>::Value(n<=dp->cArgs ? v[n-1] : tOptions::DefaultValue(n-(Count()-tOptions::Count()))),//.*CVarTypeInfo<T##n>::pmField,#define __funcparam_end(n, ...) CVarTypeInfoEx<T##n>::Value(n<=dp->cArgs ? v[n-1] : tOptions::DefaultValue(n-(Count()-tOptions::Count())))//v[n-1].*CVarTypeInfo<T##n>::pmField#define __funcparam_type(n, ...) T##n,#define __funcparam_type_end(n, ...) T##n#define __method_helper_t(n, ...) /template<class TT, typename rettype, __repeat(n, __tparam, __tparam) class tOptions/*=_ParamsOpt_N<>*/, rettype (TT::* func)(__repeat(n, __funcparam_type, __funcparam_type_end)) > /class _MethodHelper_##n /{ /public: /static UINT Count() { return n; } /static HRESULT CallMethod (LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult) /{ /if (pT==NULL) return E_FAIL; /if (dp->cArgs < n-tOptions::Count()) return DISP_E_BADPARAMCOUNT; /CComVariant v[n+1]; /*加是为了避免n==0 时的编译错误*/ /__repeat(n, __param_type, __param_type) /CComVariant vRet = (reinterpret_cast<TT*>(pT)->*func)( __repeat(n, __funcparam, __funcparam_end) ); /if (pvarResult && vRet.vt!=VT_EMPTY) vRet.Detach(pvarResult); /return S_OK; /} /}; //* 返回VOID的特化模板类*/ /template<class TT, __repeat(n, __tparam, __tparam) class tOptions/*=OptionalParams<>*/, void (TT::* func)(__repeat(n, __funcparam_type, __funcparam_type_end)) > /class _MethodHelper_##n<TT, void, __repeat(n, __funcparam_type, __funcparam_type) tOptions, func> /{ /public: /static UINT Count() { return n; } /static HRESULT CallMethod (LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult) /{ /if (pT==NULL) return E_FAIL; /if (dp->cArgs < n-tOptions::Count()) return DISP_E_BADPARAMCOUNT; /CComVariant v[n+1]; /*加是为了避免n==0 时的编译错误*/ /__repeat(n, __param_type, __param_type) /(reinterpret_cast<TT*>(pT)->*func)( __repeat(n, __funcparam, __funcparam_end) ); /return S_OK; /} /};// 预定义个方法调用工具模板类__for_each_number(__method_helper_t)#define __defparamtype(n,...) int,#define __defparamtype_end(n,...) int#define Params(...) __VA_ARGS__,#define Params0()//#define ParamsOpt(...)  __VA_ARGS__#define ParamsOpt1(...)__VA_ARGS__, _ParamsOpt<1,__VA_ARGS__, __repeat(14, __defparamtype, __defparamtype_end)#define ParamsOpt2(...)__VA_ARGS__, _ParamsOpt<2,__VA_ARGS__, __repeat(13, __defparamtype, __defparamtype_end)#define ParamsOpt3(...)__VA_ARGS__, _ParamsOpt<3,__VA_ARGS__, __repeat(12, __defparamtype, __defparamtype_end)#define ParamsOpt4(...)__VA_ARGS__, _ParamsOpt<4,__VA_ARGS__, __repeat(11, __defparamtype, __defparamtype_end)#define ParamsOpt5(...)__VA_ARGS__, _ParamsOpt<5,__VA_ARGS__, __repeat(10, __defparamtype, __defparamtype_end)#define ParamsOpt6(...)__VA_ARGS__, _ParamsOpt<6,__VA_ARGS__, __repeat(9, __defparamtype, __defparamtype_end)#define ParamsOpt7(...)__VA_ARGS__, _ParamsOpt<7,__VA_ARGS__, __repeat(8, __defparamtype, __defparamtype_end)#define ParamsOpt8(...)__VA_ARGS__, _ParamsOpt<8,__VA_ARGS__, __repeat(7, __defparamtype, __defparamtype_end)#define ParamsOpt9(...)__VA_ARGS__, _ParamsOpt<9,__VA_ARGS__, __repeat(6, __defparamtype, __defparamtype_end)#define ParamsOpt10(...)__VA_ARGS__, _ParamsOpt<10, __VA_ARGS__, __repeat(5, __defparamtype, __defparamtype_end)#define ParamsOpt11(...)__VA_ARGS__, _ParamsOpt<11, __VA_ARGS__, __repeat(4, __defparamtype, __defparamtype_end)#define ParamsOpt12(...)__VA_ARGS__, _ParamsOpt<12, __VA_ARGS__, __repeat(3, __defparamtype, __defparamtype_end)#define ParamsOpt13(...)__VA_ARGS__, _ParamsOpt<13, __VA_ARGS__, __repeat(2, __defparamtype, __defparamtype_end)#define ParamsOpt14(...)__VA_ARGS__, _ParamsOpt<14, __VA_ARGS__, __repeat(1, __defparamtype, __defparamtype_end)#define ParamsOpt15(...)__VA_ARGS__, _ParamsOpt<15, __VA_ARGS__#define ParamsOptDefValue(...) __VA_ARGS__#define _method_helper(T, name, type, paramcnt, ...) _MethodHelper_##paramcnt<T,type,__VA_ARGS__,_ParamsOpt_0,&T::name>::CallMethod//#define _method_helper_with_option2(T, name, type, paramcnt, opt, ...) _MethodHelper_##paramcnt<T,type,__VA_ARGS__,opt,&T::name>::CallMethod//#define _method_helper_with_option(T, name, type, paramcnt, params, optparams, optdefvals) _MethodHelper_##paramcnt<T,type,params,optparams,_ParamsOpt<optparams,optdefvals>,&T::name>::CallMethod#define _method_helper_with_option(T, name, type, paramcnt, params, optparams, optdefvals) _MethodHelper_##paramcnt<T,type,params optparams,optdefvals>,&T::name>::CallMethod//////////////////////////////////////////////////////////////////////////// 属性GET工具模板类和工具宏// 直接访问成员变量时采用这个模板template<class T, class baseT/*=T*/, typename rettype, rettype baseT::* member>class _GetHelper{public:static HRESULT CallGet(LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult){if (pT==NULL) return E_FAIL;CComVariant vRet = reinterpret_cast<T*>(pT)->*member;if (pvarResult) vRet.Detach(pvarResult);return S_OK;}};// 用户提供了Get函数时采用这个模板，在这种情况下，属性名称不需要跟成员变量名称一致。函数原型是HRESULT GetXXX(VARIANT*)template<class T, HRESULT (T::* getfunc)(VARIANT*)>class _GetFuncHelper{public:static HRESULT CallGet(LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult){if (pT==NULL) return E_FAIL;if (pvarResult) return (reinterpret_cast<T*>(pT)->*getfunc)(pvarResult);return S_OK;}};// 对于有默认值的集合类（如colls(1)），必须使用函数方式，因为GET操作也会带参数。函数原型是HRESULT GetXXX(VARIANT index, VARIANT* pResult)template<class T, HRESULT (T::* getvaluefunc)(VARIANT,VARIANT*)>class _GetValueFuncHelper{public:static HRESULT CallGet(LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult){if (pT==NULL) return E_FAIL;CComVariant vIndex;if (dp->cArgs>0) vIndex = dp->rgvarg[dp->cArgs-1];if (pvarResult) return (reinterpret_cast<T*>(pT)->*getvaluefunc)(vIndex, pvarResult);return S_OK;}};#define _get_helper(T, name, type) _GetHelper<T,T,type,&T::name>::CallGet#define _getfunc_helper(T, name) _GetFuncHelper<T, &T::Get##name>::CallGet#define _getvalue_helper(T, name) _GetValueFuncHelper<T, &T::Get##name>::CallGet#define _get_base_helper(T, name, baseT, baseName, type) _GetHelper<T,baseT,type,&baseT::baseName>::CallGet//#define _getfunc_base_helper(T, name, baseclass) _GetFuncHelper<T, &T::baseclass::Get##name>::CallGet//////////////////////////////////////////////////////////////////////////// 属性PUT工具模板类和工具宏// 直接访问成员变量时采用这个模板template<class T, class baseT/*=T*/, typename rettype, rettype baseT::* member>class _PutHelper{public:static HRESULT CallPut(LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult){if (pT==NULL) return E_FAIL;if (dp->cArgs != 1) return DISP_E_BADPARAMCOUNT;return CVarTypeInfoEx<rettype>::Assign(reinterpret_cast<T*>(pT)->*member, dp->rgvarg);//CComVariant v;//if (FAILED(v.ChangeType(CVarTypeInfo<rettype>::VT, dp->rgvarg))) return DISP_E_BADVARTYPE;//#pragma warning(push)//#pragma warning(disable:4800)//reinterpret_cast<T*>(pT)->*member = v.*CVarTypeInfo<rettype>::pmField;//#pragma warning(pop)//return S_OK;}};// 用户提供了Set或Put函数时采用这个模板，在这种情况下，属性名称不需要跟成员变量名称一致。函数原型是HRESULT SetXXX(VARIANT*) 或HRESULT PutXXX(VARIANT*)template<class T, HRESULT (T::* putfunc)(VARIANT*)>class _PutFuncHelper{public:static HRESULT CallPut(LPVOID pT, DISPPARAMS* dp, VARIANT* pvarResult){if (pT==NULL) return E_FAIL;if (dp->cArgs != 1) return DISP_E_BADPARAMCOUNT;return (reinterpret_cast<T*>(pT)->*putfunc)(dp->rgvarg);}};#define _put_helper(T, name, type) _PutHelper<T,T,type,&T::name>::CallPut#define _putfunc_helper(T, name) _PutFuncHelper<T,&T::Put##name>::CallPut#define _setfunc_helper(T, name) _PutFuncHelper<T,&T::Set##name>::CallPut#define _put_base_helper(T, name, baseT, baseName, type) _PutHelper<T,baseT,type,&baseT::baseName>::CallPut//#define _put_base_helper(T, name, baseT, type) _put_base_map_helper(T,name,baseT,name,type) //_PutHelper<T,baseT,type,&baseT::name>::CallPut//////////////////////////////////////////////////////////////////////////// 映射表工具模板类和映射宏typedef HRESULT (* fnDispMethod)(LPVOID pT, DISPPARAMS* dp, VARIANT* pVarResult);struct DispMethodData {LPCOLESTR name;// property or method nameDISPID dispid;// dispidfnDispMethod pfnGet;fnDispMethod pfnPut;fnDispMethod pfnMethod;};// {276887CB-4F1A-468d-AF41-D03070C53E68}EXTERN_C const GUID DECLSPEC_SELECTANY IID_IDispHost = { 0x276887cb, 0x4f1a, 0x468d, { 0xaf, 0x41, 0xd0, 0x30, 0x70, 0xc5, 0x3e, 0x68 } };MIDL_INTERFACE("276887CB-4F1A-468d-AF41-D03070C53E68")IDispHost : public IUnknown{public:virtual LPVOID STDMETHODCALLTYPE GetOwner() = 0;};template<class T, bool tManaged=false>class DispProvider : public IDispatch, public IDispHost{private:T* _owner;ULONG _refcount;public:DispProvider() : _owner(NULL), _refcount(0) {}void SetOwner(T* owner) { _owner = owner; }// IDispHostSTDMETHOD_(LPVOID, GetOwner)() { return _owner; }/* IDispatch Methods*/STDMETHOD_(ULONG, AddRef)() { return tManaged ? ++_refcount : 2; }STDMETHOD_(ULONG, Release)(){if(tManaged && --_refcount==0){__if_exists(T::DeleteInstance){T::DeleteInstance(_owner);}//delete this;};return tManaged ? _refcount : 1;}STDMETHOD(QueryInterface)(REFIID iid, LPVOID* ppvObj){if (!_owner) return E_UNEXPECTED;if (!ppvObj) return E_POINTER;*ppvObj = NULL;if (IsEqualIID(iid, __uuidof(IUnknown)) ||IsEqualIID(iid, __uuidof(IDispatch)))*ppvObj = (IDispatch*)this;else if (IsEqualIID(iid, IID_IDispHost))*ppvObj = (IDispHost*)this;if (*ppvObj){((LPUNKNOWN)(*ppvObj))->AddRef();return S_OK;}return E_NOINTERFACE;}STDMETHOD(GetTypeInfoCount)(UINT *pctinfo) { *pctinfo=0; return E_NOTIMPL; }STDMETHOD(GetTypeInfo)(UINT /*iTInfo*/, LCID /*lcid*/, ITypeInfo **ppTInfo) { *ppTInfo = NULL; return E_NOTIMPL; }STDMETHOD(GetIDsOfNames)(REFIID riid, OLECHAR ** rgszNames, UINT cNames, LCID lcid, DISPID * rgDispId){ATLASSERT(cNames == 1);if (cNames != 1) return E_NOTIMPL;if (!_owner) return E_UNEXPECTED;*rgDispId = DISPID_UNKNOWN;const DispMethodData* pMap = T::__GetDispMapEntry(*rgszNames);if (pMap)return *rgDispId = pMap->dispid, S_OK;return DISP_E_MEMBERNOTFOUND;}STDMETHOD(Invoke)(DISPID dispIdMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS * pdispparams, VARIANT *pVarResult, EXCEPINFO * pExcepInfo, UINT * puArgErr){if (!_owner) return E_UNEXPECTED;LPVOID pVoid = _owner;const DispMethodData* pMap = T::__GetDispMapEntry(NULL, &dispIdMember, &pVoid);if (pMap){//if ((wFlags&DISPATCH_PROPERTYGET) && dispIdMember==DISPID_VALUE && pMap->pfnGet)//return pMap->pfnGet(_owner, pdispparams, pVarResult);fnDispMethod pfn = (wFlags&DISPATCH_METHOD) ? pMap->pfnMethod : (wFlags==DISPATCH_PROPERTYGET) ? pMap->pfnGet : pMap->pfnPut;if (pfn)return pfn(pVoid/*_owner*/, pdispparams, pVarResult);}return DISP_E_MEMBERNOTFOUND;}};//////////////////////////////////////////////////////////////////////////// 映射的类继承工具#define __parent_map(n, ...) __if_exists(T##n::__GetDispMapEntry) { if (!p) p = T##n::__GetDispMapEntry(pName, pDispid); if (p) pVoid=(LPVOID)static_cast<T##n*>((T*)pVoid); }#define __tparam16(n,...) typename T##n=int,#define __tparam16_end(n,...) typename T##n=inttemplate<class T, __repeat(15, __tparam16, __tparam16_end)>class _ParentMapHelper{public:static const DispMethodData* __GetParentsMap(LPCOLESTR pName, DISPID* pDispid, LPVOID* ppVoid){LPVOID pVoid = NULL;if (ppVoid) pVoid = *ppVoid;const DispMethodData* p = NULL;__repeat(15, __parent_map, __parent_map)if (ppVoid) *ppVoid = pVoid;return p;}};//////////////////////////////////////////////////////////////////////////// 如果希望合并基类的映射表，...应该列举出基类#define Begin_Disp_Map(classname, ...) /private: DispProvider<classname> __disp; /public: /virtual IDispatch* GetDispatch() { return __disp.SetOwner(this), (IDispatch*)&__disp; } /static const DispMethodData* __GetDispMapEntry(LPCOLESTR pszByName=NULL/*find by name*/, DISPID* pByDispid=NULL/*find by dispid*/, LPVOID* ppVoid=NULL/*offset of parent*/) /{ /typedef classname owner_class; /typedef _ParentMapHelper<classname, __VA_ARGS__> parent_map_class; /static const DispMethodData __map_entry[] = {#define Begin_Auto_Disp_Map(classname, ...) /private: DispProvider<classname, true> __disp; classname** __ext_ref; /private: /*classname();*/ /public: /virtual IDispatch* GetDispatch() { return (IDispatch*)&__disp; } /virtual void SetExternalRef(classname** ppref) { __ext_ref=ppref; } /static void DeleteInstance(classname* p) { if (p && p->__ext_ref) *p->__ext_ref=NULL; delete p; } /static HRESULT CreateInstance(IDispatch** ppDisp, classname** ppOwner=NULL, BOOL bDetach=FALSE) /{ /if (ppOwner) *ppOwner = NULL; /if (ppDisp==NULL) return E_POINTER; /*ppDisp = NULL; /classname* pOwner = new classname; /if (pOwner==NULL) return E_OUTOFMEMORY; /pOwner->__ext_ref = NULL; /pOwner->__disp.SetOwner(pOwner); /if (!bDetach) pOwner->__disp.AddRef(); /if (ppOwner) *ppOwner = pOwner; /*ppDisp = (IDispatch*)&pOwner->__disp; /return S_OK; /} /static const DispMethodData* __GetDispMapEntry(LPCOLESTR pszByName=NULL/*find by name*/, DISPID* pByDispid=NULL/*find by dispid*/, LPVOID* ppVoid=NULL/*offset of parent*/) /{ /typedef classname owner_class; /typedef _ParentMapHelper<classname, __VA_ARGS__> parent_map_class; /static const DispMethodData __map_entry[] = {#define Disp_PropertyGet(dispid, name, ...) /{OLESTR(#name), dispid, /__if_exists(owner_class::Get##name){_getfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Get##name){ /__if_exists(owner_class::name){_get_helper(owner_class,name,__VA_ARGS__)} /__if_not_exists(owner_class::name){NULL /__pragma(message("WARNING: property '" #name "' can't be got, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /}, /NULL, NULL},#define Disp_PropertyGet_Base_Ex(dispid, name, baseclass, basename, ...) /{OLESTR(#name), dispid, /__if_exists(owner_class::Get##name){_getfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Get##name){ /__if_exists(owner_class::basename){_get_base_helper(owner_class,name,baseclass,basename__VA_ARGS__)} /__if_not_exists(owner_class::basename){NULL /__pragma(message("WARNING: property '" #name "' can't be got, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /}, /NULL, NULL},#define Disp_PropertyGet_Base(dispid, name, baseclass, ...) Disp_PropertyGet_Base_Ex(dispid, name, baseclass, name, __VA_ARGS__)#define Disp_ValueGet(name, ...) /{OLESTR(#name), DISPID_VALUE, /__if_exists(owner_class::Get##name){_getvalue_helper(owner_class,name)} /__if_not_exists(owner_class::Get##name){ /__pragma(message("WARNING: property '" #name "' can't be got, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /}, /NULL, NULL},#define Disp_PropertyPut(dispid, name, ...) /* ...==type */ /{OLESTR(#name), dispid, NULL, /__if_exists(owner_class::Set##name){_setfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Set##name){ /__if_exists(owner_class::Put##name){_putfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Put##name){ /__if_exists(owner_class::name){_put_helper(owner_class,name,__VA_ARGS__)} /__if_not_exists(owner_class::name){NULL /__pragma(message("WARNING: property '" #name "' can't be put, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /} /}, /NULL},#define Disp_PropertyPut_Base_Ex(dispid, name, baseclass, basename, ...) /* ...==type */ /{OLESTR(#name), dispid, NULL, /__if_exists(owner_class::Set##name){_setfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Set##name){ /__if_exists(owner_class::Put##name){_putfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Put##name){ /__if_exists(owner_class::basename){_put_base_helper(owner_class,name,baseclass,basename__VA_ARGS__)} /__if_not_exists(owner_class::basename){NULL /__pragma(message("WARNING: property '" #name "' can't be put, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /} /}, /NULL},#define Disp_PropertyPut_Base(dispid, name, baseclass, ...) Disp_PropertyPut_Base_Ex(dispid, name, baseclass, name, __VA_ARGS__)#define Disp_Property(dispid, name, ...) /* ...==type */ /{OLESTR(#name), dispid, /__if_exists(owner_class::Get##name){_getfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Get##name){ /__if_exists(owner_class::name){_get_helper(owner_class,name,__VA_ARGS__)} /__if_not_exists(owner_class::name){NULL /__pragma(message("WARNING: property '" #name "' can't be got, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /}, /__if_exists(owner_class::Set##name){_setfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Set##name){ /__if_exists(owner_class::Put##name){_putfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Put##name){ /__if_exists(owner_class::name){_put_helper(owner_class,name,__VA_ARGS__)} /__if_not_exists(owner_class::name){NULL /__pragma(message("WARNING: property '" #name "' can't be put, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /} /}, /NULL},#define Disp_Property_Base_Ex(dispid, name, baseclass, basename, ...) /* ...==type */ /{OLESTR(#name), dispid, /__if_exists(owner_class::Get##name){_getfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Get##name){ /__if_exists(owner_class::basename){_get_base_helper(owner_class,name,baseclass,basename,__VA_ARGS__)} /__if_not_exists(owner_class::basename){NULL /__pragma(message("WARNING: property '" #name "' can't be got, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /}, /__if_exists(owner_class::Set##name){_setfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Set##name){ /__if_exists(owner_class::Put##name){_putfunc_helper(owner_class,name)} /__if_not_exists(owner_class::Put##name){ /__if_exists(owner_class::basename){_put_base_helper(owner_class,name,baseclass,basename,__VA_ARGS__)} /__if_not_exists(owner_class::basename){NULL /__pragma(message("WARNING: property '" #name "' can't be put, and will be ignored. FILE(" __FILE__ ") LINE(" __to_string(__LINE__) ")")) /} /} /}, /NULL},#define Disp_Property_Base(dispid, name, baseclass, ...) Disp_Property_Base_Ex(dispid, name, baseclass, name, __VA_ARGS__)#define Disp_Method(dispid, name, type, paramcnt, ...) /{OLESTR(#name), dispid, NULL, NULL, _method_helper(owner_class,name,type,paramcnt,__VA_ARGS__)},#define Disp_Method_With_Option(dispid, name, type, paramcnt, params, opts, defvals) /{OLESTR(#name), dispid, NULL, NULL, _method_helper_with_option(owner_class,name,type,paramcnt,params,opts,defvals)},#define End_Disp_Map() /{NULL, DISPID_UNKNOWN, NULL, NULL, NULL} /}; /if (pszByName==NULL && pByDispid==NULL) return __map_entry; /for (int i=0; i<sizeof(__map_entry)/sizeof(__map_entry[0]) - 1; i++) /{ /if (pByDispid) /{ /if (__map_entry[i].dispid == *pByDispid) return &__map_entry[i]; /} /else /*if (pszByName)*/ /{ /if (lstrcmpiW(__map_entry[i].name, pszByName) == 0) return &__map_entry[i]; /} /} /return parent_map_class::__GetParentsMap(pszByName, pByDispid, ppVoid); /}#pragma warning(pop)#endif // __MACRO_H__