Блог

Я пытаюсь понять, как ComInterfaceType.InterfaceIsIDispatch это работает, и, вероятно, я что-то неправильно понимаю. У меня есть приложение VB6, некоторые современные элементы, которые я внедряю в .NET, и я экспортирую его в COM. Я объявляю интерфейсы и применяю InterfaceType , но у меня есть сомнения, правильно ли я это делаю. Для меня это проблематично ComInterfaceType.InterfaceIsIDispatch . В документации для ComInterfaceType Enum говорится:

InterfaceIsIDispatch — 2 — указывает, что интерфейс предоставляется COM как dispinterface, что позволяет выполнять только позднюю привязку.

Я привел пример, и когда я добавлю ссылку (tlb) в проект VB6, я смогу также использовать класс, который реализует InterfaceIsIDispatch раннее связывание.

После некоторых тестов я добавил также событие, и оно работает для обоих классов.

Чего мне не хватает?

 // .NET

[Guid("138A3402-98AF-403D-B24D-0AB08FD79082")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[ComVisible(true)]
public interface IControllerIDispatch
{
    [DispId(1)]
    void ShowMessage();
}

[Guid("0F0D68FA-C7C4-4112-A2FB-DC3BFED77058")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
[ComVisible(true)]
public interface IControllerDual
{
    [DispId(1)]
    void ShowMessage();
}

[Guid("745B2476-E82C-4ACF-BC79-D0BFA77D9F2E")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[ComVisible(true)]
public interface PingEvents
{
    [DispId(1)]
    void Ping();
}

[Guid("653D8882-CFE5-4316-8B2A-395865CCBA05")]
[ClassInterface(ClassInterfaceType.None)]
[ComSourceInterfaces(typeof(PingEvents))]
[ComVisible(true)]
public class ControllerIDispatch : IControllerIDispatch
{
    public event Action Ping;

    public void ShowMessage()
    {
        MessageBox.Show(nameof(ControllerIDispatch));
        Volatile.Read(ref Ping)?.Invoke();
    }
}

[Guid("57C081B6-2607-4543-834A-77C1C9ECAAE8")]
[ClassInterface(ClassInterfaceType.None)]
[ComSourceInterfaces(typeof(PingEvents))]
[ComVisible(true)]
public class ControllerDual : IControllerDual
{
    public event Action Ping;

    public void ShowMessage()
    {
        MessageBox.Show(nameof(ControllerDual));
        Volatile.Read(ref Ping)?.Invoke();
    }
}


// VB6 example which works - both classes created using early binding

Dim WithEvents controllerDispatch As ControllerIDispatch
Dim WithEvents controllerDual As controllerDual

Private Sub Form_Load()
    Set controllerDispatch = New ControllerIDispatch
    Set controllerDual = New ControllerDual
End Sub

Private Sub Command1_Click()
    Call controllerDispatch.ShowMessage
End Sub

Private Sub Command2_Click()
    Call controllerDual.ShowMessage
End Sub

Private Sub controllerDispatch_Ping()
    MsgBox "Dispatch Pong"
End Sub

Private Sub controllerDual_Ping()
    MsgBox "Dual Pong"
End Sub