c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
. T* i  b8 p2 w* @/ p0 m# \Name = (WCHAR *) L"Poke";
                
' ^3 A& U' G, e' E( w: e        hr = m_pDisp->GetIDsOfNames (
/ t! H, y( k3 b4 E% o4 v& s                IID_NULL,                                // reserved
                &Name,                                        // Array of names to get IDs for
* M  i2 Q( q' g* Q( ~1 n8 ^0 W                1,                                        // # of names in the array
+ O7 {: v3 h9 E* c5 L+ `" x                LOCALE_SYSTEM_DEFAULT,        // System locale
+ k" p& P+ B- i7 A+ ^6 l% O: C: S                &pokeID);                                // Array of IDs to fill on output
                       
# R5 {. M% W% q  q& m* r& Z) x, C        if (hr)
! a  F# i) K) l1 E0 p& `3 g- o3 i                {
7 k/ \8 \" g$ P; U                MessageBox ("Get Poke Unsuccessful");
* |1 M( t0 D6 r6 L                return;
$ B4 D0 K+ [9 _/ q; B2 @                }
- P' n! y7 n4 Q, p+ d1 v* i
/**************************传递数据给extend**************************************/
        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
        valueStr                                 = SysAllocString((WCHAR *) L"1232");
/ O4 [3 x# e0 F        VariantInit(&pokeVariant[0]);
2 a: D% I& E% a        pokeVariant[0].vt                 = VT_BSTR;
" C( l# T, x) k) M! \$ b        pokeVariant[0].bstrVal         = valueStr;
$ f* W5 W1 g  |! b6 f! m, v1 w1 F
  l6 _  v% N7 [; N$ D3 Z( {         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&pokeVariant[1]);
! u# c% m# b5 J3 o        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;

          topicStr                                 = SysAllocString((WCHAR *) L"system");
1 L6 L$ p3 }/ Q; i# b        VariantInit(&pokeVariant[2]);
, b  U! \+ C7 ^7 e3 V! M" n* X        pokeVariant[2].vt                 = VT_BSTR;
# _  [) _; s% @+ q4 U: r5 ]        pokeVariant[2].bstrVal         = topicStr;
5 Y3 \( Y3 b) {0 e* I  d( G
. ~( d8 o5 s- a' [* M% h//        Set the DISPPARAMS structure that holds the variant.

        dp.rgvarg                                         = pokeVariant;
6 ~( o* Z1 b! W5 X# c        dp.cArgs                                         = 3;
' N; i/ L  L3 c/ n) X        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;

//        Call IDispatch::Invoke()

        hr = m_pDisp->Invoke(
                pokeID,
2 ^0 N- Z1 @  f2 e% `: Y                IID_NULL,
9 V7 N2 j4 s+ p: `2 [# B                LOCALE_SYSTEM_DEFAULT,
% ?9 e/ L& f. G# C0 C                DISPATCH_METHOD,
5 K. W; L0 f. O# e7 y                &dp,
' d0 D7 D2 c( r3 }% x7 r; Z                NULL,
# m& o! V0 E& ~. c                &ei,
$ s) e3 P: _3 e8 `: B# M( N2 b                &uiErr);

        SysFreeString(topicStr);
        SysFreeString(itemStr);
1 M0 m( P( q! Z  Q$ E1 h5 X        SysFreeString(valueStr);

+ ?, e1 s9 F& D2 w( r9 N3 X- }& E现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？
( `  U1 E1 D- Q

6 U, f- ~/ D/ Y2.这是request的程序
/ U' u) y( o8 \//  Request a value from Extend
//
//        Initialize the variant that will hold the BSTR.  Set the variant's
6 Y1 g/ R# c( G: h) d//        type flag to indicate the fact that this variant holds a BSTR. Place the
: ]4 F# j9 z* r3 \& ?9 }//        BSTR into the variant structure.
- w; D, m3 o/ }9 a
        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
' \% i; F  |6 Z. z         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
1 t$ c) O* U: c0 D. Z! Q" p        VariantInit(&requestVariant[0]);
        requestVariant[0].vt                 = VT_BSTR;
        requestVariant[0].bstrVal         = itemStr;

7 X- c# A5 f( _: e0 J6 @" m          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
+ Y! z2 l( r+ _0 Z4 h        requestVariant[1].vt                 = VT_BSTR;
5 O  s3 |* C% y* q* e        requestVariant[1].bstrVal         = topicStr;
$ m7 G; D; L) n- P# s6 S2 U2 T
//        Set the DISPPARAMS structure that holds the variant.

! f: Y! P: C. E5 @, |# C        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
( `6 B% n) f) n+ x        dp2.rgdispidNamedArgs                 = NULL;
        dp2.cNamedArgs                                 = 0;

        var.vt = VT_EMPTY;

& S% ^: `: N0 ~* H) W) N//        Call IDispatch::Invoke()
) S' J4 h4 |1 o' R  e0 i
1 b5 `8 t8 h- l        hr = m_pDisp->Invoke(
, E7 B2 z  J3 a% @# p" r' X9 r0 m0 V                requestID,
                IID_NULL,
3 d1 `% I2 G8 P4 v1 l                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
                &dp2,
                &var,
                &ei,
                &uiErr);
+ X  ~) b- {9 M1 F0 Z, P& q
        SysFreeString(topicStr);
% M& O3 t0 f) ~) E        SysFreeString(itemStr);
4 T% |# \+ O, t& h) _0 g7 D* K请问该程序是获得extend里面的哪个值？
8 R3 ~9 y1 Y7 s1 f8 u如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？