c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
/ L9 r3 _% U2 W! Q  G/ J" QName = (WCHAR *) L"Poke";
                
2 ^: n3 m( {4 H  R1 h        hr = m_pDisp->GetIDsOfNames (
                IID_NULL,                                // reserved
                &Name,                                        // Array of names to get IDs for
$ u0 y" D. _# \2 h# L5 o' Z                1,                                        // # of names in the array
  T) f# j  ]" ~/ x1 L8 ?                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
) Z) X) h+ y, @0 w4 q8 K                       
        if (hr)
  ]. k4 v2 L, H- @0 T, A+ m                {
3 x1 [* e: S; o( k3 X/ [% e                MessageBox ("Get Poke Unsuccessful");
+ C( [" c+ B1 A( R7 W                return;
                }
+ K, i' O6 M2 o( H( T1 e
* I( B# y; ?. B0 }$ w' O/**************************传递数据给extend**************************************/
& Q0 H9 \0 o0 ]5 E        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
        valueStr                                 = SysAllocString((WCHAR *) L"1232");
3 @1 |1 V, s% B9 ]6 |6 ?6 d9 V        VariantInit(&pokeVariant[0]);
* Z% W- |+ V$ r+ u( X$ y        pokeVariant[0].vt                 = VT_BSTR;
3 h3 M) f. w8 F        pokeVariant[0].bstrVal         = valueStr;
8 \) ?0 N" j3 d3 R$ G
# P. _+ u" h9 I' v1 `9 h! Q         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
/ D6 ]/ R. g- E4 g        VariantInit(&pokeVariant[1]);
8 O4 |7 g9 d9 u7 S# z; Z' M" P9 v        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;

" f2 I6 J) w( w          topicStr                                 = SysAllocString((WCHAR *) L"system");
        VariantInit(&pokeVariant[2]);
3 G6 [6 o3 C* `) J& Q$ b0 P        pokeVariant[2].vt                 = VT_BSTR;
: q; T; ^7 a: ]& g2 l8 \7 m/ }" P        pokeVariant[2].bstrVal         = topicStr;

//        Set the DISPPARAMS structure that holds the variant.
- g& K: N5 N6 v+ O: z
; ]4 k, `. T) g' F" {* z6 _* Q6 j        dp.rgvarg                                         = pokeVariant;
6 |. B  Z% y% V        dp.cArgs                                         = 3;
: K4 W1 B8 \7 |# I, d7 T' u        dp.rgdispidNamedArgs                 = NULL;
3 L/ _6 W, t' h  Z8 a2 d6 @        dp.cNamedArgs                                 = 0;

//        Call IDispatch::Invoke()
% v. r$ f* {$ i% h
# V/ l% @+ u* M8 I7 M        hr = m_pDisp->Invoke(
9 y- I: S% {" {. \$ @5 ~# Q                pokeID,
                IID_NULL,
                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
                &dp,
                NULL,
                &ei,
3 O6 F9 u  z4 {( f3 Z7 v& V1 m                &uiErr);

        SysFreeString(topicStr);
) s) E7 u$ {  N* q; @7 S        SysFreeString(itemStr);
+ i4 `7 H# S1 D        SysFreeString(valueStr);
$ [- J& W: a6 B  V- {# b
现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？


3 H- o0 A4 }" s. j: w+ F$ V2 w2.这是request的程序
( C) G" e* o0 S9 K) y- d0 f//  Request a value from Extend
//
//        Initialize the variant that will hold the BSTR.  Set the variant's
& Z( @8 ?9 c3 M+ G& ~! I//        type flag to indicate the fact that this variant holds a BSTR. Place the
% @0 `% Z8 Q) h4 }- {0 s//        BSTR into the variant structure.
2 |! \9 z! e7 R& Y' X8 T
. Q: H4 k+ y( n9 u  _% r, J        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
, w, B% M# k) \2 _5 A% Q- c9 G         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
. P6 e# }' l  G  e, z        VariantInit(&requestVariant[0]);
7 L3 n% O/ ~0 P' g8 t        requestVariant[0].vt                 = VT_BSTR;
; z0 d9 E; d: O8 S% A( Z. Y6 Q8 M        requestVariant[0].bstrVal         = itemStr;
5 y9 U- H; J% ]0 H- `4 ^; Z) J
          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
        requestVariant[1].vt                 = VT_BSTR;
        requestVariant[1].bstrVal         = topicStr;
) i/ w# w- v4 }) H# H1 b
//        Set the DISPPARAMS structure that holds the variant.
6 j& w$ t( y/ D" S
; l' E" ]2 g4 v# M' p2 y& ]        dp2.rgvarg                                         = requestVariant;
! c8 s. C: D2 c2 X        dp2.cArgs                                         = 2;
        dp2.rgdispidNamedArgs                 = NULL;
+ G2 }% R( O: [# T1 k        dp2.cNamedArgs                                 = 0;

        var.vt = VT_EMPTY;
2 s, v" L( X0 Q; w5 _% Z' W
//        Call IDispatch::Invoke()
, e' @* @. c- }# x3 [
        hr = m_pDisp->Invoke(
* x/ |8 r) H- Z% H) j9 ?& @. Q                requestID,
                IID_NULL,
6 L+ T* t/ H* ?4 U) N4 i& J8 E                LOCALE_SYSTEM_DEFAULT,
. y( S5 y0 Z! d; r6 T- _, k                DISPATCH_METHOD,
$ w4 E) I  y7 e$ U/ B" C                &dp2,
( w( g; M" V8 R  {                &var,
                &ei,
                &uiErr);
# J4 U/ T8 v2 v" v# ]+ n6 n1 }
" s5 o: ^; E6 H* t/ |  n8 S* _        SysFreeString(topicStr);
: p4 Y( c7 |# a( X        SysFreeString(itemStr);
+ T( v+ p* k& n& x% L请问该程序是获得extend里面的哪个值？
如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？