VB6 变体类型到 .NET 类型

Question

我有一些无法轻易修改的 VB6 代码，如下所示：

Dim cCount as Long
Dim rCount as Long
Dim result()

Set mx = CreateObject("Component.Class")
Dim rtn = mx.GetList(rCount,cCount,result)

它调用的方法当前是一个 VB6 组件，我们已将其迁移到 .NET，但有一个问题。我们不确定 result() 正在寻找什么类型，因为它是一个变体类型。我们尝试过 object、object[]、object[][]、string、string[] 等，但都不起作用。

这是一个示例：

public bool GetList(ref long rCount, ref long cCount, ref object result)
{
  ...
}

我什至尝试将第三个参数设置为 VariantWrapper，因为它会根据需要添加 ByRef：

public bool GetList(ref long rCount, ref long cCount, VariantWrapper result)
{
  ...
}

有什么想法可以将传入结果设置为这样，这样我就不会出现未处理的异常吗？

我创建了一个测试接口（针对 COM）、测试类和测试 VB6 应用程序，以确保这是变体的问题。因此，它的定义如下：

.NET 接口：

[DispId(1)]
[ComVisible(true)]
string Test(ref object[] value);

VB 6 方法：

Private Sub Command1_Click()
    Set mx = CreateObject("Component.Class")
    Dim result()
    MsgBox mx.Test(result)
End Sub

与上述相同的问题。在 VB6 中，它简直让我失望。如果我编译并运行它，我会得到一个通用的 .NET 异常并将我抛出。

Answer 1

您的 C# 声明是错误的。由于历史原因，VB6“Long”是 32 位。这是 C# 方面的 int。如果堆栈帧错误，您就不可能正确传递“结果”参数。

它应该是一个 SafeArray of Variants，C# 中的 object[]。

Answer 2

在 mx.GetList(rCount,cCount,result) 行上放置一个断点。点击后，添加 mx.GetList(rCount,cCount,result) 的“快速监视”表达式。工具窗口应该向您显示生成的运行时类型是什么。它很可能是一个“comresult”，不会提供太多信息，但它可能会提供返回类型的提示。

Answer 3

我认为 ref 关键字可能会在这里造成一些麻烦。类型必须完全匹配才能工作。

但是，如果您的方法只是通过值接受对任何对象的引用（而不是通过ref），那么它可以传递任何内容，因为一切都源自 .NET 中的object。

我不知道这对于 VB6/COM 互操作的转化效果如何。但看起来这至少值得一试：

C# 代码：

public string GetTypeName(object value)
{
    return value.GetType().FullName;
}

VB6 代码：

Set mx = CreateObject("Component.Class")
Dim result()

MsgBox mx.GetTypeName(result)

这会给你带来什么吗？

---

这是一个想法。我在这里可能是完全错误的——我在将 VB6 应用程序迁移到 .NET 方面没有太多经验——但在我看来，如果你能达到这一行（相当于 C#）

Set mx = CreateObject("Component.Class")

……那你就是黄金了。您可以使用反射来确定 GetList 方法需要哪些参数。

首先获取代表 mx 类型的 System.Type 对象：

Type mxType = mx.GetType();

然后找到该类型的 GetList 方法：

MethodInfo[] getListMethods = mxType.GetMember("GetList")
    .OfType<MethodInfo>()
    .Where(m => m.GetParameters().Length == 3)
    .ToArray();

这将为您提供包含 GetList 的所有公共重载的 MethodInfo[] 数组，采用 3 个参数。从这里开始，结果的可能类型将是：

Type[] possibleResultTypes = getListMethods
    .Select(m => m.GetParameters()[2].ParameterType)
    .ToArray();

Answer 4

我只知道它在 .Net 中的使用方式，其中您传递对 Variant 的引用，如下所示：

 int port = 2;
 object pvPort = new System.Runtime.InteropServices.VariantWrapper(port);
 gimp.SetPort(ref pvPort);

在此之后，放置一个断点并检查变体类型（如果您不确定）。

最主要的是使用 VariantWrapper 以便 dll 能够理解。