我想用用 VB.NET 编写的新组件替换用 VB6 编写的组件。新组件必须与其他 VB6 应用程序一起使用,直到这些应用程序也被替换为止。我在使用将字符串数组作为参数的函数时遇到问题。
我正在使用包含此函数的 VB6 类来重现问题:
Public Function MyMethod(arr() As String, arr2() As String, Result$) As Integer
Result = Join(arr, ", ")
MyMethod = 0
End Function
我可以像这样从测试程序(VB6)成功调用它,它显示“Hello,World”:
Dim obj As Object
Dim arr() As String
Dim arr2() As String
Dim result As String
Set obj = CreateObject("MyHelloWorld.MyClass")
'Set obj = CreateObject("HelloWorldCOMNet.MyNetClass")
arr = Split("Hello World", " ")
'ReDim arr2(0)
result = ""
If Not obj.MyMethod(arr, arr2, result) Then
MsgBox result
End If
我无法修改实际的 VB6 应用程序,但我想用 .NET 编写的类替换 VB6 ActiveX 组件。新类如下所示:
<ComClass("cd74ab4a-76ca-4c84-9f49-147e6f6ac01f", "b3314f71-cb8d-48ea-bfe6-9d1995aa4f58", "40c30052-0cc8-4ef6-b1e8-92e4ddbcb515")> _
Public Class MyNetClass
Public Sub New()
MyBase.New()
End Sub
Public Function MyMethod(ByRef arr() As String, ByRef arr2() As String, ByRef result As String) As Short
result = String.Join(", ", arr) + " from .NET"
Return 0
End Function
End Class
我通过在测试应用程序中将 Set obj = CreateObject("MyHelloWorld.MyClass")
替换为 Set obj = CreateObject("HelloWorldCOMNet.MyNetClass")
来测试它。
我在 .NET 类的构造函数中使用了断点来验证它是否已执行。
当测试应用程序调用 MyMethod
时,会发生 FatalExecutionEngineException
。
我将错误范围缩小到第二个参数arr2
。当我使用 ReDim arr2(0)
初始化变量时,.NET 代码可以正常工作。所以我的猜测是,这与该变量未初始化有关。不幸的是我无法修改实际的 VB6 应用程序。
我使用 OleWoo 比较了方法签名,它们看起来是相同的(除了 id)。
如何修改 .NET 函数的签名以接受未初始化的字符串数组?
编辑:OleWoo 的输出:
[id(0x00000001)]
short MyMethod(
[in, out] SAFEARRAY(BSTR)* arr,
[in, out] SAFEARRAY(BSTR)* arr2,
[in, out] BSTR* result
);
最佳答案
我相信这是 .NET Framework 中的一个错误。
这就是函数DispatchInfo::IsVariantByrefStaticArray 。它取消引用 (*V_ARRAYREF(pOle))
的结果,而不检查它是否为 NULL。成员 fFeatures
位于偏移量 2 处,导致地址 0x00000002 处发生访问冲突。
我相信这是我偶然发现的问题。我想我必须找到另一种方法来解决我原来的问题。
关于.net - 如何通过 COM 将未初始化的数组从 VB6 传递到 .NET?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46369063/