C# 到 VB6 COM 事件(“对象或类不支持事件集")

问题描述

用这个真的把我的头发拉出来了......

Really pulling my hair out with this one...

我有一个 C# 项目，其接口定义为:

I have a C# project with an interface defined as:

/* Externally Accessible API */
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface ISerial
{
    [DispId(1)]
    bool Startup();

    [DispId(2)]
    bool Shutdown();

    [DispId(3)]
    bool UserInput_FloorButton(int floor_number);

    [DispId(4)]
    bool Initialize();
}

/* Externally Accesssible Event API */
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface ISerialEvent
{
    [DispId(5)]
    void DataEvent();
}

[ComSourceInterfaces(typeof(ISerialEvent), typeof(ISerial))]
[ClassInterface(ClassInterfaceType.None)]
public class SerialIface : ISerial
{
    public delegate void DataEvent();
    public event DataEvent dEvent;

    public bool Initialize()
    {
        //testing the event callback
        if (dEvent != null)
        {
            dEvent();
        }
    }
    ...
}

VB6 代码如下:

Private WithEvents objSerial As SerialIface

Private Sub objSerial_DataEvent()
    'do something happy'
End Sub

Public Sub Class_Initialize()
    Set objSerial = New SerialIface  '<---this is the line that fails'
    Call objSerial.Initialize  '<--Initialize would trigger DataEvent, if it got this far'
End Sub

好吧，正常的 API 类型的函数似乎可以正常工作(如果我声明 objSerial 时没有 WithEvents 关键字)，但我一辈子都无法让DataEvent"工作.它失败并显示对象或类不支持事件集"消息.

Well, the normal API-type functions appear to be working (if I declare objSerial without the WithEvents keyword), but I can't for the life of me get the "DataEvent" to work. It fails with the "object or class does not support the set of events" message.

我最初将这两个接口混为一谈，但后来 C# 抱怨说 DataEvent 没有在类中定义.就目前的情况而言，我能够在 VB6 对象浏览器中完美地查看所有 API 和一个事件——一切看起来都在那里......我只是无法让它真正工作！

I'd originally lumped the two interfaces together, but then C# complained that DataEvent was not defined in the class. The way it is currently, I am able to view all of the APIs and the one event perfectly in the VB6 object browser -- everything looks like it's there... I just can't make it actually work!

我确定我遗漏了一些明显的东西或做了一些愚蠢的事情——但我对整个互操作业务还是新手，所以它完全是在逃避我.

I'm sure I'm missing something obvious or doing something stupid -- but I'm new to the whole interop business, so it's just escaping me entirely.

救命！

推荐答案

我使用 delegate 而不是 event 来定义接口:

I was defining the interface using the delegate instead of the event:

/* Externally Accesssible Event API */
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface ISerialEvent
{
    [DispId(5)]
    void DataEvent();
}

应该是

/* Externally Accesssible Event API */
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface ISerialEvent
{
    [DispId(5)]
    void dEvent();
}

这篇关于C# 到 VB6 COM 事件(“对象或类不支持事件集")的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！