c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
Name = (WCHAR *) L"Poke";
                
3 r( U- o# D% g        hr = m_pDisp->GetIDsOfNames (
                IID_NULL,                                // reserved
9 T3 s" v5 ^1 d& L! S) X                &Name,                                        // Array of names to get IDs for
% o& H8 n: J! X) B! q* n0 c                1,                                        // # of names in the array
/ f! @3 n; w# r# _! P, r/ _: E                LOCALE_SYSTEM_DEFAULT,        // System locale
( B- x- |+ [7 i. ]  F# V$ B% {6 a                &pokeID);                                // Array of IDs to fill on output
8 t% @( Z. D$ w# O2 z                       
        if (hr)
                {
1 s6 X* l: g+ `  u                MessageBox ("Get Poke Unsuccessful");
& `5 }* ~& i' O0 X7 _3 V                return;
                }
  i+ ?  b( R" g- P) U9 G
/**************************传递数据给extend**************************************/
        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
, e/ W) W# z* ^( g- N         valueStr                                 = SysAllocString((WCHAR *) L"1232");
        VariantInit(&pokeVariant[0]);
        pokeVariant[0].vt                 = VT_BSTR;
+ \6 U* k  s' m8 K3 P- g' B4 o        pokeVariant[0].bstrVal         = valueStr;

        itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&pokeVariant[1]);
        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;
" `" |7 [! P( Q/ I9 Y+ ]$ ]
/ B. Z4 h+ I; r+ p# y2 Q          topicStr                                 = SysAllocString((WCHAR *) L"system");
: d- i/ p  d: J1 B2 u: u5 a        VariantInit(&pokeVariant[2]);
' F7 I/ b' c  V/ o2 a) }: f( K, \        pokeVariant[2].vt                 = VT_BSTR;
        pokeVariant[2].bstrVal         = topicStr;

, e/ l3 X; {- K1 D+ n//        Set the DISPPARAMS structure that holds the variant.

" Z6 A- n  @6 I8 \! L7 T5 Q        dp.rgvarg                                         = pokeVariant;
  W% g0 ~# j  G; P% k. g        dp.cArgs                                         = 3;
) l( R5 z, Z: ^6 |+ L' z! G        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;
" m9 _# M7 |6 h) C) M( A- ^5 o
8 s# a' {. e' `5 {1 O! ?//        Call IDispatch::Invoke()
$ Q$ n% c0 X& _7 Q/ u
( [2 l4 u. G7 f! c. h3 u  n        hr = m_pDisp->Invoke(
8 H7 Y0 ~2 Q1 Q1 m9 H                pokeID,
                IID_NULL,
4 ^- G: n: O" o; F! v" d0 A                LOCALE_SYSTEM_DEFAULT,
1 _5 Z, l8 W4 x+ \7 h( Y  \' U                DISPATCH_METHOD,
( e4 h* L# |4 B" B                &dp,
                NULL,
( R9 }& J7 _8 B3 J" l/ A3 T& H                &ei,
                &uiErr);

' Q- c/ w  t$ K6 V! w        SysFreeString(topicStr);
/ F5 M% i# c( B& A        SysFreeString(itemStr);
! I# @2 Z3 O7 ]3 B+ ?        SysFreeString(valueStr);
# S5 d8 {! Z1 ~" f1 C- C* f' ~
- u' O# q6 R( w  b+ |* \现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
! {; J. k" Q  _# w4 Q  O5 I8 E此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？
) y* j2 v2 j& D$ ^4 N
0 }# t- W% @7 m0 y2 Q/ V) |: I
2.这是request的程序
+ t& {( h2 s. u+ v" k" `. g. L//  Request a value from Extend
9 M/ q3 v6 n; U0 h//
//        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.
  B# h( U5 k3 r" l6 D- F6 i$ e
  h9 f) _; P! M$ B: X: b        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
# J1 y/ T5 D# R( g, d% I$ s2 o8 P         itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
% X; u( w5 o, n( B$ M- z+ q) h        VariantInit(&requestVariant[0]);
  M' [) ^7 h& Y. `' g; y$ B3 `        requestVariant[0].vt                 = VT_BSTR;
% l( b( \0 f. x! ]        requestVariant[0].bstrVal         = itemStr;

          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
2 x; L9 d  j% g& l        requestVariant[1].vt                 = VT_BSTR;
        requestVariant[1].bstrVal         = topicStr;

& J/ x! ^( s- V7 u) C0 L2 T//        Set the DISPPARAMS structure that holds the variant.
/ A9 I. `" Y' c& `# q$ r4 l6 g
, u, X  V# H7 Z        dp2.rgvarg                                         = requestVariant;
        dp2.cArgs                                         = 2;
/ E1 g( h3 N9 X/ F$ f5 ?0 l( Z        dp2.rgdispidNamedArgs                 = NULL;
  Q6 C: u0 s# Z' u- D, O3 H        dp2.cNamedArgs                                 = 0;
) f9 b! R8 X  ~$ a; S5 w
- K# {) ~$ |2 A# A         var.vt = VT_EMPTY;
& O6 s  q) Q+ H' i9 a/ r) k6 J+ t  j
2 C! L/ D' L' R3 ]7 t& E4 T//        Call IDispatch::Invoke()

* M" b9 s2 C/ u! `8 N        hr = m_pDisp->Invoke(
7 a: i+ @, ~: D  N0 I# L, u5 ?0 B                requestID,
+ m2 j( A! {6 e8 R! E0 h                IID_NULL,
+ P; B4 G. Z+ T) t                LOCALE_SYSTEM_DEFAULT,
! t% q; k  O/ \1 l. f                DISPATCH_METHOD,
- l/ x6 N& K  U: J/ F                &dp2,
' |9 v& h) \8 _, q3 @                &var,
  O2 N) |  ]" `- T; k+ p                &ei,
) Z, ^0 @5 }6 U% C                &uiErr);
/ B; v3 e5 I( d. o0 d
+ d' V  N, B. w: \: [1 ]- a        SysFreeString(topicStr);
        SysFreeString(itemStr);
请问该程序是获得extend里面的哪个值？
7 g  o% m' _4 B1 E: N6 H如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？