标签: safearray

通过COM接收和发送数组的正确方法是什么？到目前为止,这是我的尝试:包含在变体中的双重安全阵列.

//takes variant holding safearray of doubles
//returns a similar variant having multipled every element by 2
STDMETHODIMP MyComClass::safearraytimestwo(VARIANT in, VARIANT* out)
{
    CComSafeArray<double> sa_in;
    sa_in.Attach(*in.pparray);
    ULONG size = sa_in.GetCount();

    CComSafeArray<double> *out_sa = new CComSafeArray<double>(size);

    for (long i=0;i<size;i++)
        out_sa->SetAt(i,sa_in[i]*2);

    out = new CComVariant(out_sa);
    return S_OK;
}

问题: - 当前编译在循环操作上失败:error C2679: binary '=' : no operator found which takes a right-hand operand of type 'ATL::_ATL_AutomationType<DOUBLE>::_typewrapper' (or there is no acceptable conversion) 编辑:解决使用SetAt()而不是operator[] - 我应该out_sa在堆上声明吗？在取消分配时它会out …

我需要单元测试一个COM方法,我需要创建一个类型为字符串的二维Safearray.

怎么做？

我想了解 SAFEARRAY 的实现。

在我看来，SAFEARRAY 结构中没有用于存储元素类型信息的字段，例如 VT_I4(3) 或 VT_R4(4)，但 SafeArrayGetVartype 函数返回正确的类型。

有人在下面的 MSDN 页面上评论说，高字cLocks保持类型信息：MSDN 上的 SAFEARRAY 结构

但是当我通过类型库将 Long 和 Single 数组从 VBA 传递给 DLL 函数时，这些数组的 fFeatures 都是 0x80，cLocks 都是 0，并且 stll SafeArrayGetVartype 可以告诉 VT_I4(3) 和 VT_R4(4)。

对于变量数组,其中每个元素都是一个双数组,我可以执行以下操作:

Public Declare PtrSafe Sub CopyMemoryArray Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination() As Any, ByRef Source As Any, ByVal Length As Long)

Sub test()
    Dim vntArr() as Variant
    Dim A() as Double
    Dim B() as Double

    Redim vntArr(1 to 10)
    Redim A(1 to 100, 1 to 200)
    vntArr(1) = A
    CopyMemoryArray B, ByVal VarPtr(vntArr(1)) + 8, PTR_LENGTH '4 or 8
    'Do something
    ZeroMemoryArray B, PTR_LENGTH
End Sub

然后A和B将指向内存中的相同块.(设置W = vntArr(1)会创建一个副本.对于非常大的数组,我想避免这种情况.)

我正在尝试做同样的事情,但是有了收藏:

Sub test()
    Dim col as Collection
    Dim A() as …

我需要从PSafeArrayDelphi中读取数据.
这PSafeArray是由在C#中开发的DLL中实现的方法返回的.此方法返回二维字符串数组string[,].如何PSafeArray在Delphi中阅读这样的结果？

我有一个关于何时需要使用 SafeArrayAccessData 来锁定由托管代码传递的 SAFEARRAY 的问题。这是我们的代码。VARIANT 由托管代码通过字符串数组传递。在代码审查期间，有人建议使用 SafeArrayAccessData/SafeArrayUnAccessData。但他不确定为什么以及有什么好处。你能分享一些你的经验吗？谢谢！

STDMETHODIMP Base::Method1(VARIANT values, VARIANT_BOOL result)
{
    CComSafeArray<BSTR> ids;
    ids.Attach(values.parray);

    unsigned int size = ids.GetCount();
    for(unsigned int i = 0; i < size; ++i)
    {
    // use ids[i] here
    }
    // ...
}

我正在使用 COM 对象。我调用 COM 对象的函数，此函数返回包含我的设备列表的 SAFE ARRAY 的 VARIANT 数据类型。我如何使用这个 VARIANT 来访问我的设备的 SAFEARRY。

  VARIANT namList; 
  SAFEARRAY* myequip;
  namList=str->GetNames();