ATL/COM对象的方法:在VBA for excel中调用它，而不是在c#中调用它

我创建了一个ATL/COM类，使用方法（IDL）：

[id(4)] HRESULT MULT3(double lCoeff, [in, out] VARIANT* pVarInOut);

它获取pVarInOut，检查它是否是一个系数为实数的数组，并通过将所有系数乘以lCoeff来更新其所有系数。

1） 当我以以下方式从VBA for excel调用此方法时：

Dim OneArrayIn As Variant
OneArrayIn = ws.Range("OneArrayIn")
Call Obj.MULT3(2#,OneArrayIn)
ws.Range("OneArrayOut").Offset(0, 0).Value2 = OneArrayOut

一切都很好：OneArrayIn确实更新了，其中包含了预期值。

2） 当我以以下方式从c#调用此方法时：

MyVARIANT_TESTLib.TheATLObject TheATLObj = new MyVARIANT_TESTLib.TheATLObject();
double TheDouble = 2.0;
object[,] TheMatrix = { { -3.0, 3.0, 2.0, 1.0 } };
TheATLObj.MULT(TheDouble, TheMatrix);

有一个问题：TheMatrix根本没有改变，就好像TheMatrix没有像预期的那样通过"引用"传递……即使MULT3在IDL中被声明为[in，out]，指针指向VARIANT*。

为了完整起见，我在这里给出MULT3的代码：

STDMETHODIMP CTheATLObject::MULT3(double lCoeff, /*[in, out]*/ VARIANT* pVarInOut)
{
    THEVARIANT pMyVarInOut = THEVARIANT(pVarInOut);
    long lNbLines = pMyVarInOut.GETNBLINES();
    long lNbColumns = pMyVarInOut.GETNBCOLS();
    ATL::CComVariant vTMPInOut;
    try
    {
        for (long i = 0; i < lNbLines; ++i)
        {
            for (long j = 0; j < lNbColumns; ++j)
            {
                pMyVarInOut.GET(i, j, vTMPInOut);
                if (vTMPInOut.vt != VT_R8)
                {
                    return E_FAIL;
                }
                else
                {
                    vTMPInOut.dblVal = vTMPInOut.dblVal * lCoeff;
                    pMyVarInOut.FILL(i, j, vTMPInOut, vTMPInOut.vt);
                }
            }
        }
        pMyVarInOut.ATTACH(pVarInOut);
        return S_OK;
    }
    catch (...) // for now
    {
    }
    return S_OK;
}

这是基于VARIANT包装类THEVARIANT，在头文件中定义如下（请注意，我已经更新了FILL方法，使其引用ATL:：CComVariant，因为此ATL：：CComVariant之前是通过值传递的）:

#pragma once
#include <atlcomcli.h>
#include "atlsafe.h"
#include <vector>

class THEVARIANT
{
    private:
        ATL::CComVariant vTMP;
        ATL::CComSafeArray<VARIANT> *pSA;
        ATL::CComSafeArrayBound plDIM[2];
        long plINDEX[2];
        bool bIS_INIT;
        long lNBLINES;
        long lNBCOLUMNS;
    public:
        THEVARIANT(void);
        THEVARIANT(VARIANT * pVARIANT_IN);
        THEVARIANT(double * pdARRAY_IN, long NBLINES, long NBCOLUMNS);
        THEVARIANT(std::vector<double>& pdARRAY_IN, long NBLINES, long NBCOLUMNS);
        THEVARIANT(std::vector<int>& pdARRAY_IN, long NBLINES, long NBCOLUMNS);
        THEVARIANT(const THEVARIANT& MyV_COPY);
        ~THEVARIANT(void);
        void SET_LDIMENSIONS(long NBLINES, long NBCOLUMNS);
        void FILL(long lLINE, long lCOL, ATL::CComVariant & VARIANT_IN, VARTYPE VARIANT_TYPE);
        void ATTACH(VARIANT * pVARIANT_OUT);
        void GET(long lLINE, long lCOL, ATL::CComVariant& VARIANT_OUT);
        long GETNBCOLS( void ) const;
        long GETNBLINES( void ) const;
};

并在cpp文件中实现如下：

#include "StdAfx.h"
#include "THEVARIANT.h"
#include <comutil.h>
#include <atlconv.h>
#include <comdef.h>
#define _CRTDBG_MAP_ALLOC
#include <crtdbg.h>
#ifdef _DEBUG
#define DEBUG_NEW new(_NORMAL_BLOCK,__FILE__,__LINE__)
#define new DEBUG_NEW
#endif
THEVARIANT::THEVARIANT(void)
{
    pSA = NULL;
    bIS_INIT = false;
}
THEVARIANT::THEVARIANT(VARIANT * pVARIANT_IN)
{
    pSA = NULL;
    if ( V_VT(pVARIANT_IN) == VT_DISPATCH )
    {
        unsigned int uiArgErr;
        DISPID dispidValue;
        LPOLESTR XName = L"Value";
        pVARIANT_IN->pdispVal->GetIDsOfNames(IID_NULL, &XName, 1, LOCALE_SYSTEM_DEFAULT, &dispidValue);
        VARIANT * pVARIANT_IN_EXTENSION = new VARIANT();
        VariantInit(pVARIANT_IN_EXTENSION);
        DISPPARAMS dispparams;
        dispparams.cArgs = 0;
        dispparams.cNamedArgs = 0;
        EXCEPINFO exception;
        pVARIANT_IN->pdispVal->Invoke(dispidValue, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &dispparams, pVARIANT_IN_EXTENSION, &exception, &uiArgErr);
        if( V_VT(pVARIANT_IN_EXTENSION) & VT_ARRAY )
        {
            if(pVARIANT_IN_EXTENSION->parray->cDims == 2)
            {
                plDIM[0].SetLowerBound(pVARIANT_IN_EXTENSION->parray->rgsabound[0].lLbound);
                plDIM[0].SetCount(pVARIANT_IN_EXTENSION->parray->rgsabound[0].cElements);
                plDIM[1].SetLowerBound(pVARIANT_IN_EXTENSION->parray->rgsabound[1].lLbound);
                plDIM[1].SetCount(pVARIANT_IN_EXTENSION->parray->rgsabound[1].cElements);
                pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
                pSA->CopyFrom(pVARIANT_IN_EXTENSION->parray);
                lNBLINES = plDIM[1].cElements;
                lNBCOLUMNS = plDIM[0].cElements;
                bIS_INIT = true;
            }
            else if(pVARIANT_IN_EXTENSION->parray->cDims == 1)
            {
                plDIM[0].SetLowerBound(pVARIANT_IN_EXTENSION->parray->rgsabound[0].lLbound);
                plDIM[0].SetCount(pVARIANT_IN_EXTENSION->parray->rgsabound[0].cElements);
                plDIM[1].SetLowerBound(pVARIANT_IN_EXTENSION->parray->rgsabound[0].lLbound);
                plDIM[1].SetCount(1);
                pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
                pSA->CopyFrom(pVARIANT_IN_EXTENSION->parray);
                lNBLINES = plDIM[1].cElements;
                lNBCOLUMNS = plDIM[0].cElements;
                bIS_INIT = true;
            }
        }
        else
        {
            plDIM[0].SetLowerBound(0);
            plDIM[0].SetCount(1);
            plDIM[1].SetLowerBound(0);
            plDIM[1].SetCount(1);
            pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
            ATL::CComVariant varArrayWrapper(*pVARIANT_IN_EXTENSION);
            plINDEX[0]=0;
            plINDEX[1]=0;
            HRESULT hr = pSA->MultiDimSetAt(plINDEX,varArrayWrapper);
            ATLASSERT(hr == S_OK);
            lNBLINES = plDIM[1].cElements;
            lNBCOLUMNS = plDIM[0].cElements;
            bIS_INIT = true;
        }
    }
    else if( V_VT(pVARIANT_IN) & VT_ARRAY ) // this case
    {
        if(pVARIANT_IN->parray->cDims == 2)
        {
            plDIM[0].SetLowerBound(pVARIANT_IN->parray->rgsabound[0].lLbound);
            plDIM[0].SetCount(pVARIANT_IN->parray->rgsabound[0].cElements);
            plDIM[1].SetLowerBound(pVARIANT_IN->parray->rgsabound[1].lLbound);
            plDIM[1].SetCount(pVARIANT_IN->parray->rgsabound[1].cElements);
            pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
            pSA->CopyFrom(pVARIANT_IN->parray);
            lNBLINES = plDIM[1].cElements;
            lNBCOLUMNS = plDIM[0].cElements;
            bIS_INIT = true;
        }
        else if(pVARIANT_IN->parray->cDims == 1)
        {
            plDIM[0].SetLowerBound(pVARIANT_IN->parray->rgsabound[0].lLbound);
            plDIM[0].SetCount(pVARIANT_IN->parray->rgsabound[0].cElements);
            plDIM[1].SetLowerBound(pVARIANT_IN->parray->rgsabound[0].lLbound);
            plDIM[1].SetCount(1);
            pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
            pSA->CopyFrom(pVARIANT_IN->parray);
            lNBLINES = plDIM[1].cElements;
            lNBCOLUMNS = plDIM[0].cElements;
            bIS_INIT = true;
        }
    }
    else
    {
        plDIM[0].SetLowerBound(0);
        plDIM[0].SetCount(1);
        plDIM[1].SetLowerBound(0);
        plDIM[1].SetCount(1);
        pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
        ATL::CComVariant varArrayWrapper(*pVARIANT_IN);
        plINDEX[0]=0;
        plINDEX[1]=0;
        HRESULT hr = pSA->MultiDimSetAt(plINDEX,varArrayWrapper);
        ATLASSERT(hr == S_OK);
        lNBLINES = plDIM[1].cElements;
        lNBCOLUMNS = plDIM[0].cElements;
        bIS_INIT = true;
    }
}
THEVARIANT::THEVARIANT(double * pdARRAY_IN, long NBLINES, long NBCOLUMNS)
{
    plDIM[0].SetLowerBound(0);
    plDIM[0].SetCount(NBLINES);
    plDIM[1].SetLowerBound(0);
    plDIM[1].SetCount(NBCOLUMNS);
    pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
    for(int j=0; j<NBCOLUMNS; j++)
    {
        for(int i=0; i<NBLINES; i++)
        {
            vTMP = pdARRAY_IN[i+j*NBLINES];
            vTMP.vt = VT_R8;
            plINDEX[0] = i;
            plINDEX[1] = j;
            HRESULT hr = pSA->MultiDimSetAt(plINDEX,vTMP);
            ATLASSERT(hr == S_OK);
        }
    }
    lNBLINES = NBLINES;
    lNBCOLUMNS = NBCOLUMNS;
    bIS_INIT = true;
}
THEVARIANT::THEVARIANT(std::vector<double>& pdARRAY_IN, long NBLINES, long NBCOLUMNS)
{
    plDIM[0].SetLowerBound(0);
    plDIM[0].SetCount(NBLINES);
    plDIM[1].SetLowerBound(0);
    plDIM[1].SetCount(NBCOLUMNS);
    pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
    for(int j=0; j<NBCOLUMNS; j++)
    {
        for(int i=0; i<NBLINES; i++)
        {
            vTMP = pdARRAY_IN[i+j*NBLINES];
            vTMP.vt = VT_R8;
            plINDEX[0] = i;
            plINDEX[1] = j;
            HRESULT hr = pSA->MultiDimSetAt(plINDEX,vTMP);
            ATLASSERT(hr == S_OK);
        }
    }       
    lNBLINES = NBLINES;
    lNBCOLUMNS = NBCOLUMNS;
    bIS_INIT = true;
}
THEVARIANT::THEVARIANT(std::vector<int>& pdARRAY_IN, long NBLINES, long NBCOLUMNS)
{
    plDIM[0].SetLowerBound(0);
    plDIM[0].SetCount(NBLINES);
    plDIM[1].SetLowerBound(0);
    plDIM[1].SetCount(NBCOLUMNS);
    pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
    for(int j=0; j<NBCOLUMNS; j++)
    {
        for(int i=0; i<NBLINES; i++)
        {
            vTMP = pdARRAY_IN[i+j*NBLINES];
            vTMP.vt = VT_I4;
            plINDEX[0] = i;
            plINDEX[1] = j;
            HRESULT hr = pSA->MultiDimSetAt(plINDEX,vTMP);
            ATLASSERT(hr == S_OK);
        }
    }       
    lNBLINES = NBLINES;
    lNBCOLUMNS = NBCOLUMNS;
    bIS_INIT = true;
}
THEVARIANT::THEVARIANT(const THEVARIANT& MyV_COPY)
{
    pSA = NULL; 
    if( MyV_COPY.pSA != NULL && MyV_COPY.bIS_INIT )
    {
        plDIM[0].SetLowerBound(0);
        plDIM[0].SetCount(MyV_COPY.plDIM[0].GetLowerBound());
        plDIM[1].SetLowerBound(0);
        plDIM[1].SetCount(MyV_COPY.plDIM[1].GetLowerBound());
        pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
        pSA->CopyFrom(*MyV_COPY.pSA);
        lNBLINES = MyV_COPY.lNBLINES;
        lNBCOLUMNS = MyV_COPY.lNBCOLUMNS;
        bIS_INIT = true;
    }
}
THEVARIANT::~THEVARIANT(void)
{
    delete pSA;
    pSA = NULL;
    bIS_INIT = false;
}
void THEVARIANT::SET_LDIMENSIONS(long NBLINES, long NBCOLUMNS)
{
    if(!bIS_INIT)
    {
        plDIM[0].SetLowerBound(0);
        plDIM[0].SetCount(NBLINES);
        plDIM[1].SetLowerBound(0);
        plDIM[1].SetCount(NBCOLUMNS);
        pSA = new ATL::CComSafeArray<VARIANT>(plDIM,2);
        lNBLINES = NBLINES;
        lNBCOLUMNS = NBCOLUMNS;
        bIS_INIT=true;
    }
}
void THEVARIANT::FILL(long lLINE, long lCOL, ATL::CComVariant & VARIANT_IN, VARTYPE VARIANT_TYPE)
{
    if(bIS_INIT)
    {
        vTMP = VARIANT_IN;
        vTMP.vt = VARIANT_TYPE;
        plINDEX[0] = lLINE;
        plINDEX[1] = lCOL;
        HRESULT hr = pSA->MultiDimSetAt(plINDEX,vTMP);
        ATLASSERT(hr == S_OK);
    }
}
void THEVARIANT::ATTACH(VARIANT * pVARIANT_OUT)
{
    if(bIS_INIT)
    {
        ATL::CComVariant varArrayWrapper(*pSA);
        varArrayWrapper.Detach(pVARIANT_OUT);
    }
}
void THEVARIANT::GET(long lLINE, long lCOL, ATL::CComVariant& VARIANT_OUT)
{
    plINDEX[0] = lLINE+plDIM[1].lLbound;            //be careful with the order
    plINDEX[1] = lCOL+plDIM[0].lLbound;
    HRESULT hr = pSA->MultiDimGetAt(plINDEX,VARIANT_OUT);
    ATLASSERT(hr == S_OK);
}
long THEVARIANT::GETNBCOLS( void ) const
{
    return lNBCOLUMNS ;
}
long THEVARIANT::GETNBLINES( void ) const
{
    return lNBLINES ;
}

也许这个变体包装类THEVARIANT中有一个错误，但我测试过了，我不这么认为。

MyVARIANT_TESTLib.TheATLObject TheATLObj = new MyVARIANT_TESTLib.TheATLObject();
double TheDouble = 2.0;
object[,] TheMatrix = { { -3.0, 3.0, 2.0, 1.0 } };
object thevariant = new object();
thevariant = TheMatrix ;
TheATLObj.MULT(TheDouble, ref thevariant); // ref is crucial here