Creating a vb6 event using interop

Question

I have an obsolete VB6 component that I imported into VS using tlbimp.exe to create my interop assembly. The VB6 component defines an event that allows messages to be transmitted inside VB6.

Public Event Message(ByVal iMsg As Variant, oCancel As Variant) 

I would really like it to be possible to enhance even in my C # program, but import it as an event, not a delegate or something else useful. Therefore, I can only listen, but never shoot. Does anyone know how to fire an event contained in VB6? C # event looks like

 [TypeLibType(16)] [ComVisible(false)] public interface __MyObj_Event { event __MyObj_MessageEventHandler Message; } 

Sorry, I cannot change the VB6 code. Thanks.

Answer 1

In VB6, an event can only be raised from the class (or form, as appropriate) declaring the Event. To force an event to be raised in VB6, you need to provide a class method for this. If you don't have the source code, you're out of luck.

From the documentation

RaiseEvent eventname [(argument list)]

The required event name is the name of the event declared in the module and follows the main names of the variables of the convention.

for example

 Option Explicit Private FText As String Public Event OnChange(ByVal Text As String) 'This exposes the raising the event Private Sub Change(ByVal Text As String) RaiseEvent OnChange(Text) End Sub Public Property Get Text() As String Text = FText End Property Public Property Let Text(ByVal Value As String) FText = Value Call Change(Value) End Property 

Sorry to be the bearer of bad news.

Answer 2

Actually, hope is not yet lost. You can create an event on a COM object outside the class of the object. This functionality is actually provided by COM itself, albeit indirectly.

In COM, events work on a publish / subscribe model. A COM object that has events (an "event source") publishes events, and one or more other COM objects subscribe to the event, attaching an event handler to the original object (handlers are called "event receivers"). Typically, the source object raises an event by simply looping through all event receivers and calling the appropriate handler method.

So how does this help you? It so happened that COM allows you to query the source of the event for a list of all the objects of the event receiver that are currently subscribed to the events of the original object. After you have a list of event receiver objects, you can simulate raising an event by calling each of the event handlers of the receiver object.

Note: I oversimplify the details and take some terminology liberally, but that there is a short (and somewhat politically incorrect) version of how events work in COM.

You can use this knowledge to raise events on a COM object from external code. In fact, all this can be done in C # with support for interacting with COM in the System.Runtime.Interop and System.Runtime.Interop.ComTypes .

---

EDIT

I wrote a utility class that allows you to create events on a COM object from .NET. It is pretty easy to use. Here is an example of using the event interface from your question:

 MyObj legacyComObject = new MyObj(); // The following code assumes other COM objects have already subscribed to the // MyObj class Message event at this point. // // NOTE: VB6 objects have two hidden interfaces for classes that raise events: // // _MyObj (with one underscore): The default interface. // __MyObj (with two underscores): The event interface. // // We want the second interface, because it gives us a delegate // that we can use to raise the event. // The ComEventUtils.GetEventSinks<T> method is a convenience method // that returns all the objects listening to events from the legacy COM object. // set up the params for the event string messageData = "Hello, world!"; bool cancel = false; // raise the event by invoking the event delegate for each connected object... foreach(__MyObj sink in ComEventUtils.GetEventSinks<__MyObj>(legacyComObject)) { // raise the event via the event delegate sink.Message(messageData, ref cancel); if(cancel == true) { // do cancel processing (just an example) break; } } 

The following is the code for the ComEventUtils class (as well as the SafeIntPtr helper class), since I am paranoid and would like to have a good way to deal with IntPtr needed for COM related code):

Disclaimer I have not fully tested the code below. The code performs manual memory management in several places, and so it is likely that it could introduce memory leaks into your code. In addition, I did not add error handling to the code, because this is just an example. Use with caution.

 using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; using COM = System.Runtime.InteropServices.ComTypes; namespace YourNamespaceHere { /// <summary> /// A utility class for dealing with COM events. /// Needs error-handling and could potentially be refactored /// into a regular class. Also, I haven't extensively tested this code; /// there may be a memory leak somewhere due to the rather /// low-level stuff going on in the class, but I think I covered everything. /// </summary> public static class ComEventUtils { /// <summary> /// Get a list of all objects implementing an event sink interface T /// that are listening for events on a specified COM object. /// </summary> /// <typeparam name="T">The event sink interface.</typeparam> /// <param name="comObject">The COM object whose event sinks you want to retrieve.</param> /// <returns>A List of objects that implement the given event sink interface and which /// are actively listening for events from the specified COM object.</returns> public static List<T> GetEventSinks<T>(object comObject) { List<T> sinks = new List<T>(); List<COM.IConnectionPoint> connectionPoints = GetConnectionPoints(comObject); // Loop through the source object connection points, // find the objects that are listening for events at each connection point, // and add the objects we are interested in to the list. foreach(COM.IConnectionPoint connectionPoint in connectionPoints) { List<COM.CONNECTDATA> connections = GetConnectionData(connectionPoint); foreach (COM.CONNECTDATA connection in connections) { object candidate = connection.pUnk; // I tried to avoid relying on try/catch for this // part, but candidate.GetType().GetInterfaces() kept // returning an empty array. try { sinks.Add((T)candidate); } catch { } } // Need to release the interface pointer in each CONNECTDATA instance // because GetConnectionData implicitly AddRef it. foreach (COM.CONNECTDATA connection in connections) { Marshal.ReleaseComObject(connection.pUnk); } } return sinks; } /// <summary> /// Get all the event connection points for a given COM object. /// </summary> /// <param name="comObject">A COM object that raises events.</param> /// <returns>A List of IConnectionPoint instances for the COM object.</returns> private static List<COM.IConnectionPoint> GetConnectionPoints(object comObject) { COM.IConnectionPointContainer connectionPointContainer = (COM.IConnectionPointContainer)comObject; COM.IEnumConnectionPoints enumConnectionPoints; COM.IConnectionPoint[] oneConnectionPoint = new COM.IConnectionPoint[1]; List<COM.IConnectionPoint> connectionPoints = new List<COM.IConnectionPoint>(); connectionPointContainer.EnumConnectionPoints(out enumConnectionPoints); enumConnectionPoints.Reset(); int fetchCount = 0; SafeIntPtr pFetchCount = new SafeIntPtr(); do { if (0 != enumConnectionPoints.Next(1, oneConnectionPoint, pFetchCount.ToIntPtr())) { break; } fetchCount = pFetchCount.Value; if (fetchCount > 0) connectionPoints.Add(oneConnectionPoint[0]); } while (fetchCount > 0); pFetchCount.Dispose(); return connectionPoints; } /// <summary> /// Returns a list of CONNECTDATA instances representing the current /// event sink connections to the given IConnectionPoint. /// </summary> /// <param name="connectionPoint">The IConnectionPoint to return connection data for.</param> /// <returns>A List of CONNECTDATA instances representing all the current event sink connections to the /// given connection point.</returns> private static List<COM.CONNECTDATA> GetConnectionData(COM.IConnectionPoint connectionPoint) { COM.IEnumConnections enumConnections; COM.CONNECTDATA[] oneConnectData = new COM.CONNECTDATA[1]; List<COM.CONNECTDATA> connectDataObjects = new List<COM.CONNECTDATA>(); connectionPoint.EnumConnections(out enumConnections); enumConnections.Reset(); int fetchCount = 0; SafeIntPtr pFetchCount = new SafeIntPtr(); do { if (0 != enumConnections.Next(1, oneConnectData, pFetchCount.ToIntPtr())) { break; } fetchCount = pFetchCount.Value; if (fetchCount > 0) connectDataObjects.Add(oneConnectData[0]); } while (fetchCount > 0); pFetchCount.Dispose(); return connectDataObjects; } } //end class ComEventUtils /// <summary> /// A simple wrapper class around an IntPtr that /// manages its own memory. /// </summary> public class SafeIntPtr : IDisposable { private bool _disposed = false; private IntPtr _pInt = IntPtr.Zero; /// <summary> /// Allocates storage for an int and assigns it to this pointer. /// The pointed-to value defaults to 0. /// </summary> public SafeIntPtr() : this(0) { // } /// <summary> /// Allocates storage for an int, assigns it to this pointer, /// and initializes the pointed-to memory to known value. /// <param name="value">The value this that this <tt>SafeIntPtr</tt> points to initially.</param> /// </summary> public SafeIntPtr(int value) { _pInt = Marshal.AllocHGlobal(sizeof(int)); this.Value = value; } /// <summary> /// Gets or sets the value this pointer is pointing to. /// </summary> public int Value { get { if (_disposed) throw new InvalidOperationException("This pointer has been disposed."); return Marshal.ReadInt32(_pInt); } set { if (_disposed) throw new InvalidOperationException("This pointer has been disposed."); Marshal.WriteInt32(_pInt, Value); } } /// <summary> /// Returns an IntPtr representation of this SafeIntPtr. /// </summary> /// <returns></returns> public IntPtr ToIntPtr() { return _pInt; } /// <summary> /// Deallocates the memory for this pointer. /// </summary> public void Dispose() { if (!_disposed) { Marshal.FreeHGlobal(_pInt); _disposed = true; } } ~SafeIntPtr() { if (!_disposed) Dispose(); } } //end class SafeIntPtr } //end namespace YourNamespaceHere