在COM方法中用VARIANT类型传递数组数据

在COM方法中可用VARIANT类型传递数组数据，在VC++中用SAFEARRAY处理。下面给出输入和输出数组的例子 

    1。输入数组到COM中 

    STDMETHODIMP     CTestCom1::vb2vc(VARIANT     buffer) 

    {   

            long     dim=SafeArrayGetDim(buffer.parray); 

            long     ubound; 

            long     lbound; 

            SafeArrayGetUBound(buffer.parray,dim,&ubound); 

            SafeArrayGetLBound(buffer.parray,dim,&lbound); 

            BSTR*     buf; 

            BSTR     pd[2]; 

            SafeArrayAccessData(buffer.parray,(void**)&buf); 

            for     (int     i=lbound;i <ubound;i++) 

                pd[i]=buf[i]; 

            } 

            return     S_OK; 

    } 

    buffer为一维数组，存放字符串，在vb中的代码为 

                Dim     oo     As     ARRAYTESTLib.TestCom1 

                Set     oo     =     New     ARRAYTESTLib.TestCom1 

                Dim     buf(2)     As     String 

                buf(0)     =     "65 " 

                buf(1)     =     "anss " 

                oo.vb2vc     buf 

    

    2。COM返回数组数据到vb 

    STDMETHODIMP     CTestCom1::retarray(VARIANT     *buffer) 

    { 

    //返回数组 

    SAFEARRAY     FAR*     psa; 

    SAFEARRAYBOUND     rgsabound[1]; 

    rgsabound[0].lLbound=0; 

    rgsabound[0].cElements=2; 

    psa=SafeArrayCreate(VT_I4,1,rgsabound); 

    long     idx; 

    long     setdt; 

    idx=0; 

    setdt=12; 

    SafeArrayPutElement(psa,&idx,&setdt); 

    idx=1; 

    setdt=342; 

    SafeArrayPutElement(psa,&idx,&setdt); 

    V_VT(buffer)     =     VT_ARRAY     |     VT_I4; 

    V_ARRAY(buffer)=psa; 

    return     S_OK; 

    } 

    vb中的代码为： 

                Dim     oo     As     ARRAYTESTLib.TestCom1 

                Set     oo     =     New     ARRAYTESTLib.TestCom1 

                Dim     rarr     As     Variant 

                oo.retarray     rarr 

                MsgBox     rarr(0)     &     rarr(1)