c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
Name = (WCHAR *) L"Poke";
                
        hr = m_pDisp->GetIDsOfNames (
/ K: W; q" K; o! G6 U( N                IID_NULL,                                // reserved
7 W( ]% Z. j+ {& v; x  K5 G8 l6 Y, G                &Name,                                        // Array of names to get IDs for
                1,                                        // # of names in the array
( m* ~, L3 i( @" ]9 L                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
                       
5 P" B2 _# U* m6 R/ \0 T1 r2 o9 O        if (hr)
                {
1 z0 B  g* f+ b- |$ }4 [$ c9 ?/ J                MessageBox ("Get Poke Unsuccessful");
! g$ l2 O" M( K& p: B! Y7 L% E+ j                return;
  u: ?  n; B5 y; k5 Y6 ?/ r                }
' P" L5 H, E: R2 y0 d
- l5 L$ @8 t( i" n- I/**************************传递数据给extend**************************************/
        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
        valueStr                                 = SysAllocString((WCHAR *) L"1232");
4 B) _7 d/ _+ K0 @: `# c        VariantInit(&pokeVariant[0]);
# y& k/ ]4 X8 ?$ W        pokeVariant[0].vt                 = VT_BSTR;
        pokeVariant[0].bstrVal         = valueStr;

        itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&pokeVariant[1]);
- u& y/ S) m& t, e. _. x5 O( [        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;

  g4 K, J  V4 z  r1 I; _9 |0 e" U          topicStr                                 = SysAllocString((WCHAR *) L"system");
  f# o, B  j, M9 K7 m        VariantInit(&pokeVariant[2]);
        pokeVariant[2].vt                 = VT_BSTR;
1 {7 K# D; T* t' h6 I! d  _        pokeVariant[2].bstrVal         = topicStr;

) p+ y# N6 U3 L4 H' V3 q; @: i//        Set the DISPPARAMS structure that holds the variant.
' p/ Z$ E6 ^" C! J0 ^9 p" x
4 ^. \) c* v% E* B2 _3 V        dp.rgvarg                                         = pokeVariant;
, }6 C  c$ S& }9 O/ F        dp.cArgs                                         = 3;
) I8 R) z; F$ x$ v. o        dp.rgdispidNamedArgs                 = NULL;
- j; N' x9 J' ~' A: J# O        dp.cNamedArgs                                 = 0;

//        Call IDispatch::Invoke()
1 g! g; R$ r' g) m6 e5 V
2 Y: y" {% i+ ?- {/ S7 u        hr = m_pDisp->Invoke(
7 b( O2 }3 W0 T                pokeID,
+ r  @* @7 S" B( g- e                IID_NULL,
5 u2 w2 [- N, ~9 L, z" H                LOCALE_SYSTEM_DEFAULT,
8 p$ i& H' F8 r) q                DISPATCH_METHOD,
                &dp,
                NULL,
                &ei,
7 T6 ]( \$ \2 X$ Q# ]$ D                &uiErr);

9 A$ j  E! H' Q5 y4 x+ X; q; I        SysFreeString(topicStr);
        SysFreeString(itemStr);
        SysFreeString(valueStr);

0 |9 e# t; j+ f3 n$ H6 G, Q现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
+ v) K! n/ @9 D8 v8 l* D1 p此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？

5 v" `3 o8 W( }' Z
2.这是request的程序
, W' L9 _( f# X! z* w$ e! O//  Request a value from Extend
, h6 D/ u) B. ^. ?( H//
8 c) T+ g* y" d( D/ m( S8 X//        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
" |/ I9 D4 P. |; h. C* r$ P/ S0 N//        BSTR into the variant structure.
. ]- S# a) s$ r; @  b7 q5 N8 I
        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
3 _7 V0 ~& I% C4 F. _/ A* Z4 d7 f       
; V0 R& e  ~% e: D1 E2 r         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&requestVariant[0]);
# N/ j! \9 i/ I+ H% G8 G! Z        requestVariant[0].vt                 = VT_BSTR;
4 l$ I  a) t/ L8 K+ W+ o* P  T        requestVariant[0].bstrVal         = itemStr;

          topicStr                                         = SysAllocString((WCHAR *) L"system");
8 n& |  `3 q$ a. T9 J/ l; T        VariantInit(&requestVariant[1]);
        requestVariant[1].vt                 = VT_BSTR;
        requestVariant[1].bstrVal         = topicStr;

//        Set the DISPPARAMS structure that holds the variant.
5 Y2 y- g, [; [! w" x- H
, p" w& D7 L( g. j8 c        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
        dp2.rgdispidNamedArgs                 = NULL;
4 T, |8 T! q, W+ j# i/ w        dp2.cNamedArgs                                 = 0;

        var.vt = VT_EMPTY;
9 ]% _3 k' x4 Q. F( V
% T, Y  G2 j8 H+ ?' I( B& N6 A$ U8 d//        Call IDispatch::Invoke()

# i+ f) Q5 a' e2 v        hr = m_pDisp->Invoke(
( |8 Q4 l& o+ ~7 d* y3 e) v# C                requestID,
                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
# I7 y# J) D9 s- |; V                DISPATCH_METHOD,
# q- l' V% Y( }& q* c$ G& V. N: E                &dp2,
, ^) w* M/ Z0 w  G3 }                &var,
                &ei,
4 G1 I1 A9 d% Z$ n3 z5 M' V1 \& c                &uiErr);

        SysFreeString(topicStr);
        SysFreeString(itemStr);
; }. C1 n+ s8 _% G请问该程序是获得extend里面的哪个值？
  d, h1 T+ m- U: o如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？