通过COM将自定义接口类型的SAFEARRAY返回到VB6

Question

是否可以从C ++ COM函数（VC6）向VB6客户端返回已定义接口对象的数组？ 我已经在网上搜寻了内容，却没有发现任何描述我需要做的事情。 我已经看到了很多传递BSTR和VARIANT类型的方法，但是我需要一些方法来使客户端实际利用我在数组内部返回的接口类型。

我认为我需要做的
-使用SAFEARRAY
-使用VT_UNKNOWN类型的SAFEARRAY，这又意味着我需要将这些对象作为IUnknown对象放入数组中。

从这里开始，我很困惑。 是否可以解释VB6中的IUnknown类型，并以某种方式将其转换为我需要的类型？ 还是我以完全错误的方式来解决这个问题...

澄清：
放置在集合中的接口用于模仿结构。 我本质上需要传回结构数组。

Answer 1

尽管提出的问题与我提出的目标不完全相同，但我已经提出了适合自己目的的解决方案。

我的解决方案是创建一个以SAFEARRAY作为参数并对其进行修改的COM函数，而不是返回创建的数组。 VB6客户端实例化该数组，并将其传递给C ++进行填充。 我设想将来的用法将包括VB6调用的前驱函数，以确定所需的阵列大小。 作为参考，下面是代码片段：

接口功能：

[id(4), helpstring("method PopulateWithStruct")] HRESULT PopulateWithStruct([in,out]SAFEARRAY (IReturnStruct*)*ppArray, [out,retval] long*plResult);

其中IReturnStruct是包含属性值的接口，用作结构：

interface IReturnStruct : IDispatch
{
    [propget, id(1), helpstring("property num1")] HRESULT num1([out, retval] long *pVal);
    [propget, id(2), helpstring("property str1")] HRESULT str1([out, retval] BSTR *pVal);
};

并由ReturnStruct实现

[
    uuid(843870D0-E3B3-4123-82B4-74DE514C33C9),
    helpstring("ReturnStruct Class")
]
coclass ReturnStruct
{
    [default] interface IReturnStruct;
};

PopulateWithStruct具有以下定义：

STDMETHODIMP CCTestInterface::PopulateWithStruct(SAFEARRAY **ppArray, long *plResult)
{
    long lLowerBound = -1;
    long lUpperBound = -1;
    SafeArrayGetLBound(*ppArray, 1, &lLowerBound);
    SafeArrayGetUBound(*ppArray, 1, &lUpperBound);

    long lArraySize = lUpperBound - lLowerBound;

    VARTYPE type;
    SafeArrayGetVartype(*ppArray, &type);

    if (lArraySize > 0)
    {
        for ( int i = lLowerBound; i < lUpperBound; ++i)
        {
            CComPtr<CReturnStruct> pRetStruct;
            HRESULT hr = CoCreateInstance(__uuidof(ReturnStruct), NULL, CLSCTX_ALL, __uuidof(IUnknown), reinterpret_cast<void **>(&pRetStruct));
            if (SUCCEEDED(hr))
            {
                pRetStruct->Initialise();
                hr = SafeArrayPutElement(*ppArray, (long*)&i, pRetStruct);
                if (FAILED(hr))
                {
                    return hr;
                }
                pRetStruct.Release();
            }
        }
        SafeArrayUnaccessData(*ppArray);
    }

    *plResult = 1;

    return S_OK;
}

在VB端：

Dim obj As ATL_SERVICETESTLib.CTestInterface
Set obj = New CTestInterface

Dim Result As Long
Dim RetStructs(3) As ReturnStruct

Result = obj.PopulateWithStruct(RetStructs())

对这种方法有何评论？

Answer 2

当您将IUnknown分配给特定的接口类型时，VB将在后台执行QueryInterface，因此应该可以正常工作。

我不知道是否可以将用户定义类型的数组传递给VB6，我可以在Web上找到的所有文档都停留在VS2003，但是我希望这是可能的。

Answer 3

您可以将其包装在一个变体中，然后起作用。

IDL：

[propget, id(10), helpstring("blabla")]
HRESULT MyListProp([out, retval] VARIANT *ppsaList); 

cpp：

STDMETHODIMP CAnyClass::get_MyListProp(/*[out, retval]*/ VARIANT* ppsaList)
{
HRESULT hr = S_OK;

if (ppsaList== NULL)
{
    return E_INVALIDARG;
}

CComSafeArray <IDispatch*> saVars;

// I have my objects in a list m_List that I am copying to saVars
for (std::list<IMyObj*>::iterator it = m_List.begin();
     it != m_List.end();
     ++it)
{
    IDispatch* pUnk = NULL;
    if ((*it)->QueryInterface(IID_IDispatch, (void**)&pUnk) == S_OK)
    {
        saVars.Add(pUnk);
    }
}

CComVariant varReturn (saVars.Detach());
varReturn.Detach(ppsaList);
return S_OK;
} 

vb：

Dim arr
arr = obj.MyListProp

' these will all work
ub = UBound(arr)
lb = LBound(arr)