c++和extend的COM接口问题

xumeijian

我现在用c++编写了一个程序，希望能够和extend交换数据，以及自动对extend进行一些操作。我参阅了例子里的关于OLE AUTOMATION方面的c++程序，但搞得不是很懂。比如说，c++程序向extend发送一个数据：
2 N) J5 }7 n4 n" F5 cName = (WCHAR *) L"Poke";
                
        hr = m_pDisp->GetIDsOfNames (
% u* f) C! \; l9 G) \" B$ F                IID_NULL,                                // reserved
, x) `& H: t" K- @                &Name,                                        // Array of names to get IDs for
0 a% W& Y5 l1 r+ `+ b                1,                                        // # of names in the array
0 f2 @0 @5 m5 S" P6 j: b                LOCALE_SYSTEM_DEFAULT,        // System locale
                &pokeID);                                // Array of IDs to fill on output
( ~0 W0 u+ q$ |! ^8 Z" X3 ]                       
        if (hr)
                {
* j) a  B8 O" K! Q8 q6 I                MessageBox ("Get Poke Unsuccessful");
1 z% u0 M* M- ?8 ]$ G) W                return;
. b  I! j  ?; Y                }

# g: f2 E; r8 W% ^; C. j# J/**************************传递数据给extend**************************************/
* y* L+ o! f$ |4 l5 N% l2 h1 v        pokeVariant                         = (VARIANTARG *)malloc(sizeof(VARIANTARG) *3);
       
. k9 h- ^2 B# E. i4 F+ Y5 K         valueStr                                 = SysAllocString((WCHAR *) L"1232");
  y* @& u' ^  q: z# C# s' j2 T        VariantInit(&pokeVariant[0]);
        pokeVariant[0].vt                 = VT_BSTR;
        pokeVariant[0].bstrVal         = valueStr;

! E5 X! o, L6 a: }% u: v         itemStr                                 = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
        VariantInit(&pokeVariant[1]);
1 u6 G& C! H* c5 J" g8 i        pokeVariant[1].vt                 = VT_BSTR;
        pokeVariant[1].bstrVal         = itemStr;
+ W$ O+ o9 M( ~: D# X# }9 }
9 o3 G  S1 _. @7 M3 x. [! A* l          topicStr                                 = SysAllocString((WCHAR *) L"system");
; F$ w7 @, ?2 B, B; n) O        VariantInit(&pokeVariant[2]);
        pokeVariant[2].vt                 = VT_BSTR;
        pokeVariant[2].bstrVal         = topicStr;
$ T0 K* J2 }& `8 x$ t. s+ M7 A- C
8 T* S1 H1 q2 |" Z5 m) e- B- g+ X) x//        Set the DISPPARAMS structure that holds the variant.
$ B1 E5 ^5 n5 q7 p
        dp.rgvarg                                         = pokeVariant;
        dp.cArgs                                         = 3;
        dp.rgdispidNamedArgs                 = NULL;
        dp.cNamedArgs                                 = 0;
4 S- d1 M( _$ i) U. E4 ^3 c0 U6 R# A
//        Call IDispatch::Invoke()
# ]% B3 N  z4 N$ v5 I" e
        hr = m_pDisp->Invoke(
$ ?( ]8 Z  y8 I( ]  H1 O1 L; i                pokeID,
5 d" y6 q+ P9 ^/ y5 C                IID_NULL,
! c, g# T5 z$ T  c! |4 p                LOCALE_SYSTEM_DEFAULT,
                DISPATCH_METHOD,
0 ]( J# T% o" A7 Q/ q! B- ^1 p4 X! t                &dp,
                NULL,
                &ei,
/ f, \! Y0 y4 u6 R                &uiErr);
7 D% R: _$ o/ b8 e( j; K: T
        SysFreeString(topicStr);
& j5 r" E/ o+ x* N        SysFreeString(itemStr);
        SysFreeString(valueStr);
: ^3 ~3 m) r; ]; W, U
2 A+ K. q, J, u- @6 b/ z; `现在这个程序可以实现将1232这个数据发送到extend，extend有一个对话框弹出并出现1232这个数据，不知道这个对话框为什么会弹出并显示这个数据？？？
此外我希望将这个数据赋给extend程序里面的一个变量，请问如何实现？？？？
3 V: N2 h( q, m9 j! I

; i" z6 H1 c% o# V. X# N8 p% H7 X- o2.这是request的程序
4 h2 u3 o/ m3 C% X& e. j9 b; C' X//  Request a value from Extend
8 @6 q2 X+ ~6 R$ l5 f3 v3 A//
" l+ C4 ~. i& D+ A0 d//        Initialize the variant that will hold the BSTR.  Set the variant's
3 _6 J* O4 [$ m$ ]) c$ E//        type flag to indicate the fact that this variant holds a BSTR. Place the
//        BSTR into the variant structure.

        requestVariant                                 = (VARIANTARG *)malloc(sizeof(VARIANTARG) *2);
       
        itemStr                                         = SysAllocString((WCHAR *) L"global0:#0:0:0:0:0");
) p, d+ w. S) V* p, _        VariantInit(&requestVariant[0]);
& b% a  T+ y+ k! m        requestVariant[0].vt                 = VT_BSTR;
        requestVariant[0].bstrVal         = itemStr;

" X/ ?. p1 \9 ]. M          topicStr                                         = SysAllocString((WCHAR *) L"system");
        VariantInit(&requestVariant[1]);
& m% {. X7 ^1 m* b8 b6 G        requestVariant[1].vt                 = VT_BSTR;
        requestVariant[1].bstrVal         = topicStr;
5 C( R, ^+ B( }& V
//        Set the DISPPARAMS structure that holds the variant.
! c- h7 o1 z. L* E+ W/ v; L- K7 J6 u
  x% F0 j4 b, Z  F5 l        dp2.rgvarg                                         = requestVariant;
, f2 k( `, Y) @' M        dp2.cArgs                                         = 2;
        dp2.rgdispidNamedArgs                 = NULL;
        dp2.cNamedArgs                                 = 0;

' h. i! p3 K0 g+ C3 ]# o         var.vt = VT_EMPTY;

//        Call IDispatch::Invoke()

        hr = m_pDisp->Invoke(
                requestID,
                IID_NULL,
/ w& p7 u9 ^+ v- f& O                LOCALE_SYSTEM_DEFAULT,
, h4 A: |- D) w* ~- N, T  f                DISPATCH_METHOD,
* m/ D! v4 k/ j  v                &dp2,
/ x: y& Y; x) G( D0 L; {$ D3 G                &var,
; l) W7 W. Q; V7 \                &ei,
' C' L) ^3 M* k3 X5 w5 x                &uiErr);
: e% x  x$ s( d5 s& `* g. P
6 _/ t3 z& B5 ]1 i        SysFreeString(topicStr);
  K' l, k: m+ _' P        SysFreeString(itemStr);
' S8 E  K$ Q# b# f8 ^4 W! T; |请问该程序是获得extend里面的哪个值？
如果我希望获得extend程序里面的某个变量的数值，那个c++程序应该如何实现？？？？