如何将字节数组作为 UDT 属性从 VB6/VBA 传递到 C# COM DLL？

我有一个 C# 库，我试图将其公开给 VBA。我可以很好地将参数传递给函数（即“ref byte[] someArray”），但传递对象或结构是行不通的。

如果我尝试将字节数组作为类的属性传递，我会在 VB 中收到以下错误：

函数或接口标记为受限，或者函数使用 Visual Basic 不支持的自动化类型

如果我尝试将字节数组作为结构体的属性传递，我会在 VB 中收到以下错误：

我已经为此奋斗了两天，虽然我不断寻找声称有答案的帖子，但没有一个对我有用。

这是我当前的代码：

[ComVisible(true)]
[Guid("7F53F7A5-15C9-4A99-A855-38F5E87702D0")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]       // Tried as InterfaceIsDual and as InterfaceIsIDispatch
public interface IDetail
{
    [DispId(1)]     // Tried with and without these
    int SomeInt { get; set; }

    [DispId(2)]
    string SomeString { get; set; }

    [DispId(3)]
    byte[] SomeByteArray { 
        return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_UI1)]
        get;
        [param: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_UI1)]
        set; 
    }
}

[ComVisible(true)]
[Guid("F77FB3D4-27E0-4BFA-A21E-5ACB671151E9")]
[ClassInterface(ClassInterfaceType.None)]
[ProgId("G4COMTest.Detail")]
public class Detail:IDetail
{
    public int SomeInt { get;set; }
    public string SomeString { get; set; }

    // Tried MarshalAs in all combinations of class and interface
    public byte[] SomeByteArray {
        [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_UI1)]
        get; 
        [param: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_UI1)]
        set;
    }
}

[ComVisible(true)]
[Guid("5E8F9FF0-3156-479E-A91D-0DADD43881FB")]
[ClassInterface(ClassInterfaceType.None)]
public class Worker:IWorker
{
    // works with the 'ref'
    public int ReturnIntWByteArrayParam(ref byte[] testByteArray)
    {
        return testByteArray.Count();
    }

    public int ReturnIntWObjParam(IDetail detail)
    {
        return detail.SomeInt;
    }

    public IDetail ReturnObjNoParams()
    {
        var o = new Detail();
        o.SomeInt = 87;
        o.SomeString = "What are you doing Dave";
        return o;
    }
}

[ComVisible(true)]
[Guid("04962F29-DBBD-48AC-B4FB-180EEF562771")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IWorker
{
    int ReturnIntWByteArrayParam(ref byte[] testByteArray);
    int ReturnIntWObjParam(IDetail detail);
    IDetail ReturnObjNoParams();
}

从 VB6 调用它：

Dim o As New G4COMTest.Worker
Dim d As New G4COMTest.Detail
Dim byt(2) As Byte

d.SomeInt = 356                     '// Works
d.SomeString = "Hello from client"  '// Works
d.SomeByteArray = byt               '// Errors as either class or struct
MsgBox mWorker.ReturnIntWObjParam(d)

预先感谢您的任何帮助！

C# 数组属性向 COM 公开一个 getter 和一个 setter，正如您所期望的那样（MarshalAs属性是不必要的，封送拆收器默认情况下会正确检测到它）。

问题在于，与 .NET 中的所有属性设置器一样，设置器也是按值传递值参数。不幸的是，VBA 不支持按值传递数组。这是从一开始就存在的语言的基本限制。更不幸的是，COM 互操作不提供任何使用属性覆盖此行为的方法。你有两个选择：

A - 定义您自己的 setter 方法并从 VBA 调用它而不是属性 setter，例如

void SetSomeByteArray(ref byte[] value) { SomeByteArray = value; }

B - 将属性类型更改为object并使用变体数组而不是强类型数组。

PS：要小心string属性也。这些通常工作得很好，但是如果你通过了null字符串值到VBA，会出错，因为VBAString类型无法存储null参考。