c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
0 Q' ^4 B( [' q7 MName = (WCHAR *) L"Poke";
                
        hr = m_pDisp->GetIDsOfNames (
2 U; v6 `# Y6 a  ~                IID_NULL,                                // reserved
6 J9 r. S% @! G" k0 k4 n) D2 Y6 \                &Name,                                        // Array of names to get IDs for
                1,                                        // # of names in the array
& _+ d6 R6 J. j3 A4 M( N                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
                       
  H$ c" n5 k# u) a0 R% A/ u        if (hr)
0 F3 N7 _" W3 R8 ?4 ]1 X+ k                {
, O5 p; W5 c* Y" C9 Y1 h% S1 U                MessageBox ("Get Poke Unsuccessful");
* t$ |' @' j) ^: q* J4 h                return;
; m6 s9 K/ ?% ~1 o% |5 u                }

/**************************传递数据给extend**************************************/
& ^6 S4 o: K5 ~1 R, k0 f% a. d        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
) K# M8 ^7 C) H       
1 M: f! q# F( m& _  }         valueStr                                 = SysAllocString((WCHAR *) L"1232");
" y' q6 N6 u, B+ }        VariantInit(&pokeVariant[0]);
/ A! K) l' p" U, J; M$ j$ i        pokeVariant[0].vt                 = VT_BSTR;
        pokeVariant[0].bstrVal         = valueStr;
5 c2 c" P5 Q! k$ @+ a7 _
/ ?+ u7 A1 a7 j2 ^         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
7 w, x7 g# q" D( A! y5 h5 b        VariantInit(&pokeVariant[1]);
        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;

          topicStr                                 = SysAllocString((WCHAR *) L"system");
$ X+ I3 f6 b  r# [2 e- I        VariantInit(&pokeVariant[2]);
% y/ d' X* a1 B' S( \        pokeVariant[2].vt                 = VT_BSTR;
$ Q- ?. x% X  |5 U        pokeVariant[2].bstrVal         = topicStr;
' j1 V" d9 \9 c- V: k5 R3 D+ ^
//        Set the DISPPARAMS structure that holds the variant.

( T6 p- q4 ]0 P% S2 a( }6 E- I  K        dp.rgvarg                                         = pokeVariant;
. N* c, a3 a3 |) `  ]        dp.cArgs                                         = 3;
5 W+ t  E% _/ R& N' z/ Z9 O- z7 b        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;
+ L! d% i" C1 {0 H8 }$ N3 ?. X
//        Call IDispatch::Invoke()
7 N; K  W# _9 Q
        hr = m_pDisp->Invoke(
5 L! c6 h1 s! a2 Y2 x! r                pokeID,
                IID_NULL,
( O# W2 d4 x9 v, Y# X8 K                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
8 ^; `8 `' w+ o& A4 V                &dp,
                NULL,
" }" I+ S% S; p, Z* s( Z( c                &ei,
/ `. a  x0 \2 X  L, s4 |" \- n                &uiErr);
* t# [) c8 D4 O( L! H& M3 g
        SysFreeString(topicStr);
/ n& m% O8 l$ J% {9 t! u/ s        SysFreeString(itemStr);
        SysFreeString(valueStr);

4 M; U2 v3 e5 W, H  T' _# j现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？
3 }) x5 H2 z* n. ]  A) j
. W7 T2 n5 D5 O' c* N0 _- h
2.这是request的程序
//  Request a value from Extend
7 f, r% N0 q( T7 i4 i% \' i//
//        Initialize the variant that will hold the BSTR.  Set the variant's
//        type flag to indicate the fact that this variant holds a BSTR. Place the
% o. J. {' S5 ^0 t' T: a//        BSTR into the variant structure.

        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
9 e0 ^" `; }7 O; r# z. y         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
5 f0 c/ Q" ^" v: S* ~) H8 F# R! t& m        VariantInit(&requestVariant[0]);
        requestVariant[0].vt                 = VT_BSTR;
, R& Q5 E% y* O! ?        requestVariant[0].bstrVal         = itemStr;

          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
( r8 N4 I+ p* d: E- }, D! ~2 q' w        requestVariant[1].vt                 = VT_BSTR;
( |$ a7 K1 d& k- x        requestVariant[1].bstrVal         = topicStr;

- J/ }3 U$ w! q" }6 u. Z//        Set the DISPPARAMS structure that holds the variant.
, @& b# d9 C" d9 `: U* A
% l* \9 `# M- E4 ^- i% O; v$ q        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
/ j6 j8 d0 _$ B; |% o' p' }% E* P        dp2.rgdispidNamedArgs                 = NULL;
' [3 H) Z; K! f0 M+ P4 p        dp2.cNamedArgs                                 = 0;

        var.vt = VT_EMPTY;
0 _; x/ z3 W7 j0 V
* u. n- V. X6 S2 v' R//        Call IDispatch::Invoke()
( ]- p6 n+ b+ u* O+ H0 U) l
        hr = m_pDisp->Invoke(
, U1 Z3 m# E" P2 k  [                requestID,
                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
" G# [  s4 ~( U0 K$ }- |% s                &dp2,
( y: i8 J/ r8 s) ?8 S, ]8 J                &var,
4 b% U, _4 E; f* [                &ei,
                &uiErr);

        SysFreeString(topicStr);
        SysFreeString(itemStr);
& v, F$ X) ?! N# y3 m5 o- {/ a请问该程序是获得extend里面的哪个值？
如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？