Question

我有一个VB6程序集，我需要在我的.NET应用程序中使用它，并通过 tlbimp.exe 生成用于.NET的Interop DLL。

VB6程序集有一个带有byref数组参数的函数。我不想改变VB6程序集中的任何内容，所以我希望有一个解决方案可以让以下工作。

它正在填充数组，我想在我的.NET代码（c＃或vb.net）中使用它。

VB6函数示例（文件NativeClass.cls）：

Public Function GetData(ByRef data() As String) As Integer
    Dim tResults() As String
    Dim sRecordCount As String
    Dim lCount As Long

    ' load data
    sRecordCount = dataDummyObject.RecordCount

    ReDim tResults(sRecordCount, 2)

    ' fill the array in a loop
    For lCount = 0 To sRecordCount - 1
        tResults(lCount, 0) = dataDummyObject.Fields("property1")
        tResults(lCount, 1) = dataDummyObject.Fields("property2")

        If (sRecordCount - 1 - lCount) > 0 Then
            Call dataDummyObject.MoveNext
        End If
    End For

    data = tResults
    GetData = sRecordCount
End Function

现在我想在VB.NET中使用它：

Private _nativeAssembly As New NativeClass()

Public Function GetDataFromNativeAssembly() As String()
    Dim loadedData As String() = Nothing

    _nativeAssembly.GetData(loadedData)

    Return loadedData
End Function

C＃版本：

private NativeClass _nativeAssembly = null;

public string[] GetDataFromNativeAssembly()
{
    string[] loadedData = null;

    _nativeAssembly.GetData(loadedData);

    return loadedData;
}

但是在执行代码时，我得到以下异常：

System.Runtime.InteropServices.SafeArrayRankMismatchException ：排名2的SafeArray已传递给期望排名为1的数组的方法。

我真的需要帮助来解决这个问题！感谢您的任何建议！

Answer 1

我认为如果不修改VB6代码就可以解决这个问题。尝试将该函数声明为

Public Function GetData(ByRef data As Variant) As Integer

或

Public Function GetData(ByRef data As Object) As Integer

ReDim到字符串数组应该可以在Variant中正常工作。我记得这样做是因为VB6不允许将2D数组作为参数。

从.NET检查时，您应该看到类型。我的机器上没有VB6 IDE来验证这一点。

如果一个人有效，你应该能够投射到你期望的String(,)。

Answer 2

这是航空代码，但你可以在VB.Net中尝试这个吗？请注意附加的逗号以指示二维数组。

Dim loadedData As String(,) = Nothing

从VB6到.NET的Marshal 2D阵列

2 个答案: