c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
! d& x; S  L- |7 H3 P$ q+ sName = (WCHAR *) L"Poke";
! X" y  q  @. C3 d! x& w" q                
8 \6 D" y! ~* F. y1 d; z: F5 G9 v        hr = m_pDisp->GetIDsOfNames (
6 h2 v2 x9 [* f9 U$ O7 N                IID_NULL,                                // reserved
- P! E. V3 O8 z3 K1 u                &Name,                                        // Array of names to get IDs for
2 x& u- g, T$ k5 q5 h2 D                1,                                        // # of names in the array
$ H  L+ F. R% `% ^                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
; ]/ z9 k0 q8 r6 A4 ~  K5 Q7 p                       
        if (hr)
                {
0 w# U: n& \7 N3 C/ {; U' `                MessageBox ("Get Poke Unsuccessful");
                return;
: i$ E3 i  b# h) |2 ?  O9 n                }
) N# `: `8 ?" c" P( A3 v. X
/**************************传递数据给extend**************************************/
        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
) ~( O% _- v8 J6 K% l, n0 q0 \         valueStr                                 = SysAllocString((WCHAR *) L"1232");
, F) p( k* L+ o0 R        VariantInit(&pokeVariant[0]);
        pokeVariant[0].vt                 = VT_BSTR;
        pokeVariant[0].bstrVal         = valueStr;
$ i: u& ]* E' ]3 ?! K3 @, T/ ~1 j
, r$ e* B3 P. u" Z         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&pokeVariant[1]);
* |, E3 {& a; d; _. y, ~# \, A        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;
% B. N- H- e$ E2 o9 a& c
' ?9 C. p2 g( x, E3 L0 y$ [9 ^          topicStr                                 = SysAllocString((WCHAR *) L"system");
        VariantInit(&pokeVariant[2]);
        pokeVariant[2].vt                 = VT_BSTR;
0 l- V$ p& E9 y3 {$ o6 Y        pokeVariant[2].bstrVal         = topicStr;
' b; X2 [) V. a% X. F2 E/ X
( N; j, u9 g9 g: A, J, f" o% D//        Set the DISPPARAMS structure that holds the variant.

; u  }6 r$ s: E/ z& M/ p# Z6 z        dp.rgvarg                                         = pokeVariant;
" g" Z! Y" \' R        dp.cArgs                                         = 3;
        dp.rgdispidNamedArgs                 = NULL;
# E; ], O, A$ z- Z# c        dp.cNamedArgs                                 = 0;

* X( j6 a1 T6 ~6 b$ K' t5 Q//        Call IDispatch::Invoke()

: t% j1 E3 Q0 q8 A+ V) F) u        hr = m_pDisp->Invoke(
- a7 a9 e& O: G( h, V" c6 n1 a! `$ s                pokeID,
, N1 p! O8 j" N7 U- ^/ M                IID_NULL,
0 S7 ?4 I& M+ ]( o( ]" R3 Z                LOCALE_SYSTEM_DEFAULT,
) K: G2 \6 r5 c7 w+ O                DISPATCH_METHOD,
                &dp,
                NULL,
7 ~+ t4 u. G% A* R                &ei,
2 ]9 T' S  n! ^" d( J. \                &uiErr);

) t1 T8 p2 D* ^. ?) M* k/ C. U        SysFreeString(topicStr);
        SysFreeString(itemStr);
        SysFreeString(valueStr);

/ F% W, E' |- D+ ?% D) T: }现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
1 ^" D' |0 z" O# m6 {此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？


2.这是request的程序
1 M: v9 ~2 G) b( }6 R' t. D//  Request a value from Extend
//
1 M0 Z. N1 i$ G' ^; G//        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
//        BSTR into the variant structure.

2 |; J* e: P5 x7 P2 z4 R        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
2 L- x, i6 _$ p. Q) K         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
  H( K! z! p* H/ \        VariantInit(&requestVariant[0]);
        requestVariant[0].vt                 = VT_BSTR;
0 N6 I4 g8 t. T- C$ c; G4 n        requestVariant[0].bstrVal         = itemStr;

6 ~+ }9 u( o' e          topicStr                                         = SysAllocString((WCHAR *) L"system");
+ R$ _; t- {7 c% m        VariantInit(&requestVariant[1]);
5 p8 n+ ?% P1 p" R/ {+ {        requestVariant[1].vt                 = VT_BSTR;
6 a- G0 d8 [2 g- Q1 ?% X7 @. y, z        requestVariant[1].bstrVal         = topicStr;
! c  E( E! F! `: X, ~
//        Set the DISPPARAMS structure that holds the variant.
9 w5 `4 K* w! P+ H
        dp2.rgvarg                                         = requestVariant;
+ m8 A% u- D$ y4 Q& D7 j        dp2.cArgs                                         = 2;
        dp2.rgdispidNamedArgs                 = NULL;
        dp2.cNamedArgs                                 = 0;
) R' K% c/ d( C3 _+ y3 E6 a
+ t4 p! Q5 A  ^6 a; Q/ e         var.vt = VT_EMPTY;
( q2 q! k2 T: p* x/ Z8 Z
//        Call IDispatch::Invoke()
& R6 z, X9 W& p0 l4 `! ]
! m1 U6 c. A# B- S1 ?' a        hr = m_pDisp->Invoke(
  O6 [8 I/ N* Q: r                requestID,
                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
                &dp2,
                &var,
* J( f3 _$ |9 g/ Q' |# f                &ei,
+ ?! a. k; V  t8 z/ S, Y8 B                &uiErr);
$ Z6 c. M# N9 Y9 i1 [9 ^
        SysFreeString(topicStr);
: Q6 i0 z& u% _2 v, N$ n) z8 a        SysFreeString(itemStr);
$ Z9 d; o1 L# Y; E9 U8 r9 ?请问该程序是获得extend里面的哪个值？
如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？