1

我有一个试图向 VBA 公开的 C# 库。我可以很好地将参数传递给函数（即“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)

提前感谢您的帮助！

4

2 回答 2

1

C# 数组属性完全按照您的预期向 COM 公开 getter 和 setter（该MarshalAs属性是不必要的，默认情况下封送拆收器会正确检测到它）。

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

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

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

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

PS：也要小心string属性。这些通常工作得很好，但是如果你将一个null字符串值传递给 VBA，它会出错，因为 VBAString类型不能存储null引用。

于 2012-11-01T21:36:18.180 回答
0

在您的代码类 Detail 中，ClassInterfaceType 设置为 None，如果您将其设置为 AutoDispatch，那么您拥有的代码应该可以工作。来自 MSDN：

对于脚本化客户端、Microsoft Visual Basic 6.0 客户端或任何不缓存接口成员的 DispId 的后期绑定客户端，使用类接口是可接受的选项。”

http://msdn.microsoft.com/en-us/library/4fcadw4a(v=vs.110).aspx

由于您调用的客户端是 VB6 - 您可以将 ClassInterfaceType 设置为 AutoDispatch 甚至忽略它（默认为 AutoDispatch）。这将仅生成 Dispatch only 类接口，并且不包含该接口中的任何成员。从 VB6 调用时，将数组直接分配给属性应该可以工作，因为它使用 IDispatch Invoke 函数（后期绑定）。

我们用一个字符串数组对此进行了测试，它可以工作。

于 2014-06-19T02:14:31.027 回答