Как мне вызвать COM-объект VB6 из C# с динамическим, когда у него есть параметр ref?

У меня есть следующая унаследованная функция VB6, которую я хочу вызвать из C#.

Public Function CreateMiscRepayment(ByRef objMiscRepayment As MiscRepayment) As Variant
   ' Code that sets objMiscRepayment here
End Function

Я использую следующий код в C#, но получаю исключение:

dynamic vb6ComObject = Activator.CreateInstance(Type.GetTypeFromProgID(progId));
dynamic miscRepayment = null;
dynamic result = vb6ComObject.CreateMiscRepayment(ref miscRepayment);

Исключение составляет:

System.ArgumentException: Could not convert argument 0 for call to CreateMiscRepayment.
at System.Dynamic.ComRuntimeHelpers.CheckThrowException(Int32 hresult, ExcepInfo& excepInfo, UInt32 argErr, String message)
at CallSite.Target(Closure , CallSite , ComObject , Object& )
at CallSite.Target(Closure , CallSite , ComObject , Object& )
at CallSite.Target(Closure , CallSite , Object , Object& )
at CallSite.Target(Closure , CallSite , Object , Object& )
Application\ApplicationClasses.cs(65,0): at ApplicationClasses.CanInstantiateMiscRepayment()

Я пытался изменить ref в out но получите ту же ошибку. Если я опущу refметод выполняется без ошибок, но конечно miscRepayment все еще null, а не содержит объект, который должен был быть передан.

Обновить

Я пробовал некоторые другие способы, включая использование VB.NET (так как он всегда был более дружественным к COM, чем C#).

С помощью следующего кода VB.NET:

Dim vb6ComObject = Activator.CreateInstance(System.Type.GetTypeFromProgID(progId))
Dim miscRepayment = Nothing
Dim result = vb6ComObject.CreateMiscRepayment(miscRepayment)

Выдает следующее похожее, но другое исключение:

System.Runtime.InteropServices.COMException: Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))
    at Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
    at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
    UnitTest1.vb(19,0): at TestProject1.UnitTest1.TestMethod1()

Интересно, если я изменю вызов в примере кода C# или VB.NET, чтобы использовать null/Nothing вместо miscRepayment затем код выполняется без исключения. Я даже установил точку останова в коде COM-объекта VB6 и могу подтвердить, что код выполняется правильно с этой стороны. Очевидно, с настройкой miscRepayment параметр для null/Nothingв.NET нет способа получить созданный объект. Проблема должна быть связана с сортировкой параметров.

Я также пытался использовать Type.InvokeMember с ParameterModifier аргумент, который отмечает miscRepayment будучи ref параметр, но получите следующее исключение:

System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.Runtime.InteropServices.COMException: Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))

     --- End of inner exception stack trace ---
    at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr, Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[] namedParameters)
    at System.RuntimeType.InvokeMember(String name, BindingFlags bindingFlags, Binder binder, Object target, Object[] providedArgs, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParams)
    UnitTest1.vb(18,0): at TestProject1.UnitTest1.TestMethod1()

Наконец, я попробовал следующий код VB.NET:

Dim vb6ComObject = Activator.CreateInstance(System.Type.GetTypeFromProgID(progId))
Dim args(0) As Object
Microsoft.VisualBasic.CompilerServices.LateBinding.LateCall(vb6ComObject, type, "CreateMiscRepayment", args, Nothing, New Boolean() {True})

Выдает следующее исключение:

System.Runtime.InteropServices.COMException: Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))
    at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)
    at Microsoft.VisualBasic.CompilerServices.LateBinding.LateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
    UnitTest1.vb(17,0): at TestProject1.UnitTest1.TestMethod1()

Со всем кодом, который выдает исключение, COM-объект VB6 никогда не вызывается. Код взаимодействия COM должен задыхаться при попытке маршалинга ref параметр.

В своих поисках в Google я натолкнулся на несколько примеров использования Type.InvokeMember, но ref Параметры всегда для простых типов, таких как целые числа и строки.

Источник

2 ответа

Решение

Кажется, в.NET нет способа вызвать метод для COM-объекта, который принимает ref параметр со сложным типом.

Я подал ошибку в Microsoft. Проголосуйте, если эта проблема также затрагивает вас.

Обновление 30/4/2013

Есть комментарий к сообщению об ошибке от Microsoft, в котором говорится, что оно исправлено. Нет упоминания о том, какая версия.NET была затронута, хотя.

Источник

На самом деле не ответ, а обходной путь.

Мне кажется, что когда вы меняете способ доступа к COM-объектам из dynamic к статическому, проблема уходит. Под статическим способом я имею в виду подготовить dll для COM-объекта, используя C:\Program Files (x86)\Microsoft SDKs\Windows\v7.0A\Bin\TlbImp.exe, Я предполагаю, что это раннее связывание.

Источник
Другие вопросы по тегам