c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
Name = (WCHAR *) L"Poke";
: w7 l/ ^0 R1 k8 u! n, }8 D                
- h% u2 n5 u9 u        hr = m_pDisp->GetIDsOfNames (
' ^4 E3 o& r+ X# j                IID_NULL,                                // reserved
$ k  Q+ u' `3 m- B* P3 g( x5 K3 P                &Name,                                        // Array of names to get IDs for
$ f4 w+ U: I. e                1,                                        // # of names in the array
                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
9 f# ]# c& ^5 w                       
; t/ y4 v& t% F& v. C        if (hr)
; @/ t* U2 X! B                {
: u! I$ v+ a( E, i                MessageBox ("Get Poke Unsuccessful");
8 L$ T' a( r1 ?+ R6 R, X# c8 j                return;
" g) m, G0 d  ~" D                }
* ~  }, l3 K+ D1 f
5 I2 X0 m: f3 Q; K5 t1 v2 T/**************************传递数据给extend**************************************/
2 T: Q; }6 |  m* n# s5 O1 _        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
4 M! n9 a6 J( V# i/ l       
        valueStr                                 = SysAllocString((WCHAR *) L"1232");
        VariantInit(&pokeVariant[0]);
        pokeVariant[0].vt                 = VT_BSTR;
7 g. I" g5 \$ x& a        pokeVariant[0].bstrVal         = valueStr;
/ C  a% C' @9 y7 E
. c" t- e5 l. n$ b         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
* r4 o6 M* p" X. X: T& K2 e        VariantInit(&pokeVariant[1]);
9 E; K9 C. m8 s2 P8 Y7 x# q% p# i        pokeVariant[1].vt                 = VT_BSTR;
4 i( a& ?3 b4 M# {$ F6 L        pokeVariant[1].bstrVal         = itemStr;

          topicStr                                 = SysAllocString((WCHAR *) L"system");
        VariantInit(&pokeVariant[2]);
        pokeVariant[2].vt                 = VT_BSTR;
9 d% H: X- M( F        pokeVariant[2].bstrVal         = topicStr;
' ]3 {' H4 q( N; m% e. }9 k
//        Set the DISPPARAMS structure that holds the variant.

5 |# O* h8 E2 A: G1 Q7 H        dp.rgvarg                                         = pokeVariant;
% @1 |$ ^: x/ ?8 Y/ ?# S        dp.cArgs                                         = 3;
        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;
. C5 S4 F9 v/ M. ]+ A
  q, p. I5 p8 U//        Call IDispatch::Invoke()

        hr = m_pDisp->Invoke(
. y) ~' A7 e/ s# S                pokeID,
                IID_NULL,
( y( s$ I. u# m+ k/ L                LOCALE_SYSTEM_DEFAULT,
4 A6 n+ U( l& ^2 b5 N, y                DISPATCH_METHOD,
                &dp,
% ?5 \; G* ~8 l* r) ~                NULL,
% _0 U$ o5 u. q0 Y% R                &ei,
# H* N0 `2 w$ ^# n; p% q8 |3 \                &uiErr);
( e6 @7 l/ e; c1 Y7 k+ ^
2 W# h0 X5 `) z3 e        SysFreeString(topicStr);
5 A  u) {8 e( K* ~: o# L/ r! {        SysFreeString(itemStr);
; Q, s: B  \5 ^7 y; {        SysFreeString(valueStr);

现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？

5 H) ~2 v2 Y' W( J
2.这是request的程序
- C* Y4 `! ]' \- j0 p" q8 H1 J6 x5 Z//  Request a value from Extend
+ t* S3 q& y3 B  W( `+ g9 ~//
//        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
5 U3 W. o" p6 d' q  ?//        BSTR into the variant structure.
9 Z& h2 }( }3 u5 ^4 n
9 r# b' x8 f) W( k        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
' r5 D, T: S5 ]: S       
5 }) h# U" [/ t) J: t' ^1 V         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&requestVariant[0]);
        requestVariant[0].vt                 = VT_BSTR;
0 p& t, A& |% g# A        requestVariant[0].bstrVal         = itemStr;

5 z& {' q$ c0 p- b1 |, o          topicStr                                         = SysAllocString((WCHAR *) L"system");
$ y  i. V" g" d0 e/ ~        VariantInit(&requestVariant[1]);
& R- o4 a4 u/ [  Q        requestVariant[1].vt                 = VT_BSTR;
3 C  H7 O( i) M+ d$ R; G        requestVariant[1].bstrVal         = topicStr;
, h+ G7 Y9 N( D$ }4 R
3 X- ]/ R9 w; ^3 Z//        Set the DISPPARAMS structure that holds the variant.

0 X5 U( m! m5 ^6 {* ?        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
        dp2.rgdispidNamedArgs                 = NULL;
        dp2.cNamedArgs                                 = 0;
6 A% C+ j5 \% s$ k
        var.vt = VT_EMPTY;

7 F- ?' V; c, @$ S. E//        Call IDispatch::Invoke()

. x/ Q; t- J) @  o- k        hr = m_pDisp->Invoke(
                requestID,
                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
                &dp2,
                &var,
$ I0 D$ w* A2 g                &ei,
( G8 v. M4 b( a7 O5 B                &uiErr);

8 Z8 p: x% d4 Q2 {  \        SysFreeString(topicStr);
  E* ^9 ]3 ?; E- v/ z# T- g' \        SysFreeString(itemStr);
请问该程序是获得extend里面的哪个值？
  }. k+ C- F4 e# d. o! h$ [如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？