首页 > 代码库 > 转：宏定义的极致发挥---让你的普通C++类轻松支持IDispatch自动化接口(二)
转：宏定义的极致发挥---让你的普通C++类轻松支持IDispatch自动化接口(二)
Posted on 2011-01-13 20:44 一桶浆糊
这是上一篇博客《宏定义的极致发挥---让你的普通C++类轻松支持IDispatch自动化接口》所展示的示例代码的改进版，改进之处有：
- 1、如果不想直接提供成员作为属性，可以用成员函数的方式提供属性读写。
2、支持基类映射表，即如果基类也实现了映射表，派生类不用重复填表，自动合并基类表项。唯一的要求就是DISPID不要重复。
3、可以同时合并多个基类映射表。
4、添加可选参数支持，比如某个方法有5个参数，后3个为可选参数（有默认值），那么调用者可以只用2个参数来调用。
5、添加DISPID_VALUE支持，类似于VB中的对象默认属性。
简单的使用示例：
?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | 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来读取和设置，具体的类型转换将由两个函数完成。
以上并没有列举具有可选参数的方法的填表用法，稍微有点复杂，有时间的话在下一篇介绍。
好了，下面是完整的头文件：
+ View Code?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 | #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 name DISPID dispid; // dispid fnDispMethod 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; } // IDispHost STDMETHOD_(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__ |
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。