COM을 통해 VB6에서 초기화되지 않은 배열을 .NET으로 전달하는 방법은 무엇입니까?

Question

VB6로 작성된 구성 요소를 VB.NET으로 작성된 새로운 구성 요소로 바꾸려고합니다. 새로운 구성 요소는 다른 VB6 응용 프로그램과도 교체해야만 작동합니다. 문자열 배열을 매개 변수로 사용하는 함수에 문제가 있습니다.

이

Public Function MyMethod(arr() As String, arr2() As String, Result$) As Integer  
    Result = Join(arr, ", ") 
    MyMethod = 0   
End Function 

내가 성공적으로 "안녕하세요, World"를 표시이 같은 테스트 프로그램 (VB6)에서 호출 할 수 있습니다

나는 문제를 복제하는 데이 기능을 포함하는 VB6 클래스를 사용하고 있습니다 :

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("HelloWorldCOMNet.MyNetClass")와 Set obj = CreateObject("MyHelloWorld.MyClass")을 교체하여 테스트합니다.

.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 
); 

Answer 1

나는이 .NET Framework의 버그가 있다고 생각합니다.

VB6 응용 프로그램에 디버거를 연결했습니다. 기능 DispatchInfo::IsVariantByrefStaticArray입니다

:

이 그 위치에 디스 어셈블 된 코드는 다음과 같습니다이 충돌의 순간에 스택 추적입니다. NULL인지 확인하지 않고 (*V_ARRAYREF(pOle))의 결과를 역 참조합니다. 멤버 fFeatures은 오프셋 2에 있으며 주소 0x00000002에서 액세스 위반이 발생합니다.

나는 이것이 내가 우연히 만난 문제라고 생각한다. 나는 원래의 문제를 해결할 다른 방법을 찾아야 할 것이라고 생각한다.