c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
Name = (WCHAR *) L"Poke";
                
( h# }2 M- g7 a+ B0 h( M        hr = m_pDisp->GetIDsOfNames (
7 U5 e, W. v& g- n# j# W$ z9 [                IID_NULL,                                // reserved
* y' k  ~* o! s5 T                &Name,                                        // Array of names to get IDs for
, V, ?- q$ Y& f                1,                                        // # of names in the array
" t. t$ _8 M" z0 b                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
                       
        if (hr)
! n* X* Y' t7 [) V4 Y! _4 @                {
                MessageBox ("Get Poke Unsuccessful");
                return;
8 v$ S0 @3 P* _; n2 E; q$ z                }

! J3 V$ a. w6 x6 `7 Z3 B3 \/**************************传递数据给extend**************************************/
2 q+ m( n2 d* U+ H) c        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
- }0 Z& l5 e% Z# H' H9 _       
3 y+ c0 P  U" c% O# T2 U         valueStr                                 = SysAllocString((WCHAR *) L"1232");
        VariantInit(&pokeVariant[0]);
        pokeVariant[0].vt                 = VT_BSTR;
' `2 X& f! t& Z        pokeVariant[0].bstrVal         = valueStr;

4 h- S$ {/ J6 o2 C) h# c         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
8 h$ |5 n! z1 J* Q        VariantInit(&pokeVariant[1]);
4 Q- `( Y- U7 P1 e        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;

) M9 t' l$ Y3 S; N6 p% X3 R          topicStr                                 = SysAllocString((WCHAR *) L"system");
        VariantInit(&pokeVariant[2]);
+ L# \: m& g/ O$ K4 a* u        pokeVariant[2].vt                 = VT_BSTR;
0 i3 A& @$ z# a1 n* W5 d7 O, {        pokeVariant[2].bstrVal         = topicStr;
7 U( ^- Q! [. [/ |, m
. w7 |/ j5 C. e! H//        Set the DISPPARAMS structure that holds the variant.

        dp.rgvarg                                         = pokeVariant;
: m/ k2 r2 ]5 l- Y1 P+ _        dp.cArgs                                         = 3;
* ]" h; f- u- Q( T* a: A; x4 T        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;

//        Call IDispatch::Invoke()

9 ?% u% H% N! Q& r' V        hr = m_pDisp->Invoke(
                pokeID,
$ \* j% @$ J7 i. ^                IID_NULL,
2 [3 f, b. m6 A, X; O                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
                &dp,
                NULL,
                &ei,
                &uiErr);

# S/ J0 T% W  w        SysFreeString(topicStr);
$ ^) o1 ^/ d5 Q( _        SysFreeString(itemStr);
        SysFreeString(valueStr);
) e' S: d. G! i2 o5 r) ~6 l
  ^1 [% i, R9 k# `5 L现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
) C1 \5 A5 I4 z1 l6 S: H此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？

2 T3 l! v: v: [
" l0 j/ t/ `4 R" d& @* y4 }$ C2.这是request的程序
4 t, r* n9 ^. p9 ~  ~: o7 `//  Request a value from Extend
//
//        Initialize the variant that will hold the BSTR.  Set the variant's
1 Z7 A, y; C. {% D" U//        type flag to indicate the fact that this variant holds a BSTR. Place the
//        BSTR into the variant structure.

4 L! |# x' s6 C1 r& E, K" i        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
" D$ k, Z  n8 E4 }" h       
; B) O6 m( T9 i  H6 z         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&requestVariant[0]);
        requestVariant[0].vt                 = VT_BSTR;
        requestVariant[0].bstrVal         = itemStr;
! J, U; ], h. A
% m8 X$ a4 d( G8 z0 V1 V- t) K          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
8 K, m9 J! z; ^8 T( q% q1 o$ a        requestVariant[1].vt                 = VT_BSTR;
6 ]4 k' [4 W$ Y' E$ I% ]  f        requestVariant[1].bstrVal         = topicStr;

6 |/ a3 S0 V) }( ?//        Set the DISPPARAMS structure that holds the variant.
: }! [$ W5 ^2 q, M/ O0 ^
8 B# N; r% p9 p1 |        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
0 C) i& l4 P$ G5 k& Q- \5 G        dp2.rgdispidNamedArgs                 = NULL;
$ o! J1 _6 U; `2 v8 i" x5 V  ^        dp2.cNamedArgs                                 = 0;

        var.vt = VT_EMPTY;

/ d& N1 x" n( `% U//        Call IDispatch::Invoke()

        hr = m_pDisp->Invoke(
4 I7 j6 O/ s0 U' W! a; ]9 D( t                requestID,
2 ]6 {. ~! U1 D; |6 l                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
0 N4 M& U: L* h+ u5 s                DISPATCH_METHOD,
                &dp2,
5 O; |$ t2 b$ c7 i* A                &var,
                &ei,
- }, P' w, P$ ^$ U  W. o. h. p                &uiErr);

! ^; W- f+ M7 d6 S3 C) q! C' M        SysFreeString(topicStr);
- L  t) ?% q% t2 Z- a        SysFreeString(itemStr);
3 y# D8 L& r( v9 d( E请问该程序是获得extend里面的哪个值？
, f3 J- J5 W! E* q如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？