dotnet interop: I am getting "An event was unable to invoke any of the subscribers (Exception
from HRESULT: 0x80040201)" on what appears to have been a properly subscribed
transient event.

I have an Event Class in a signed library, LceEvent.dll, registered in COM+
via
regsvcs LceEvent.dll


--------------------------------------------------------------------------------
Imports System.Runtime.InteropServices
Imports System.EnterpriseServices

<ComVisible(True)> _
Public Interface ITheEvent
Sub Fire()
End Interface

<ComVisible(True), _
EventClass()> _
Public Class TheEvent
Inherits ServicedComponent
Implements ITheEvent
Public Sub Fire() Implements ITheEvent.Fire

End Sub
End Class


--------------------------------------------------------------------------------
above class registers appropriately

I have a sink library, LceSink.dll with an Event Sink :


--------------------------------------------------------------------------------
Imports System.EnterpriseServices
Imports System.Runtime.InteropServices
Imports LceEvent

<ComVisible(True)> _
Public Class TheEventSink
Implements ITheEvent
Public Event Fired As EventHandler
Private _subId As String
Public Sub New()
End Sub
Public Sub Fire() Implements LceEvent.ITheEvent.Fire
RaiseEvent Fired(Me, EventArgs.Empty)
End Sub
End Class


--------------------------------------------------------------------------------


I have a helper class for transient subscriptions:


--------------------------------------------------------------------------------
Public Class LceHelper
Public Shared Function CreateTransientSubscription( _
ByVal clsid As String, ByVal subscriber As Object) As String
Dim catalog As New COMAdmin.COMAdminCatalog
Dim catalogCollection As COMAdmin.COMAdminCatalogCollection = _
catalog.GetCollection("TransientSubscriptions")
catalogCollection.Populate()
Dim subscription As COMAdmin.ICatalogObject = catalogCollection.Add()
subscription.Value("SubscriberInterface") = subscription
subscription.Value("EventCLSID") = "{" & clsid & "}"
subscription.Value("Name") = "TransientSubscription"
catalogCollection.SaveChanges()
' POINT 1
Return subscription.Value("ID").ToString()
End Function
Public Shared Sub DeleteTransientSubscription(ByVal subid As String)
Dim catalog As New COMAdmin.COMAdminCatalog
Dim catalogCollection As COMAdmin.COMAdminCatalogCollection = _
catalog.GetCollection("TransientSubscriptions")
catalogCollection.Populate()
' POINT 5
For i As Integer = 0 To catalogCollection.Count - 1
Dim subscription As COMAdmin.COMAdminCatalogObject =
catalogCollection.Item( i )
If subscription.Value("ID").ToString() = subid Then
catalogCollection.Remove( i )
Return
End If
Next
End Sub
End Class


--------------------------------------------------------------------------------


I am trying to use in a form:


--------------------------------------------------------------------------------
Public Class Form1

Private WithEvents _TheSink As LceSink.TheEventSink
Private _thesub As String

Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Dim t As Type
t = Type.GetTypeFromProgID("LceEvent.TheEvent")
_TheSink = New LceSink.TheEventSink()
Try
_thesub = LceSink.LceHelper.CreateTransientSubscription( _
t.GUID.ToString(),
_TheSink)
' POINT 2
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
MyBase.OnLoad(e)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim evt As LceEvent.ITheEvent = New LceEvent.TheEvent
Try
' POINT 3
evt.Fire()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Disposed
' POINT 4
LceSink.LceHelper.DeleteTransientSubscription(_thesub)
End Sub
End Class



--------------------------------------------------------------------------------


At POINT 1 (LceHelper.CreateTransientSubscription), catalogCollection.Count
has increased by 1

At POINT 2 (Form1 above), it appears the subscription succeeds as the call
to CreateTransientSubscription assigns a giud string to _subID

At POINT 3 (Form1 above), I get exception An event was unable to invoke any
of the subscribers (Exception from HRESULT: 0x80040201)

At POINT 4 (Form1 above), trace into LceHelper.DeleteTransientSubscription

At POINT 5 (LceHelper.DeleteTransientSubscription )CatalogCollection.Count >
1, the subid is found and the subscription is released

What am i doing wrong? Why isnt the subscription being called?

Hi,

Currently I am researching the issue and we will reply here with more
information as soon as possible.
If you have any more concerns on it, please feel free to post here.

Thanks for your understanding!

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.

Hi,

I think you may try to go through the link below, which works at my side.
Generally your code seems to be OK.
You may try to compare with the code in the link.

http://groups.google.com/group/microsoft.public.dotnet.framework.component_s
ervices/browse_frm/thread/3b6846145a4c937f/d5922fb1d4f29ab7?lnk=st&q=EventCL
SID+TransientSubscription+ServicedComponent&rnum=1&hl=en#d5922fb1d4f29ab7

Also You are set the subscription.Value("SubscriberInterface") =
subscription , but I think we need to set to "subscriber"

Public Shared Function CreateTransientSubscription( _
ByVal clsid As String, ByVal subscriber As Object) As String
Dim catalog As New COMAdmin.COMAdminCatalog
Dim catalogCollection As COMAdmin.COMAdminCatalogCollection = _
catalog.GetCollection("TransientSubscriptions")
catalogCollection.Populate()
Dim subscription As COMAdmin.ICatalogObject =
catalogCollection.Add()
subscription.Value("SubscriberInterface") = subscription
subscription.Value("EventCLSID") = "{" & clsid & "}"
subscription.Value("Name") = "TransientSubscription"
catalogCollection.SaveChanges()
' POINT 1
Return subscription.Value("ID").ToString()

If you still have any concern, please feel free to post here.
Also for ServicedComponent issue it would better post in the dedicated
newsgroup.
microsoft.public.dotnet.framework.component_services

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.

thanks peter. . . when I get to work I will try the code on that newsgroup
post.
It appears he is using late-binding. . . would there be any difference in
interoping the COMAdmin library?

as far as
subscription.Value("Subscriber") = subscription

that throws "not in valid range" exception.

if you have a chance, heres a link to my solution . . .

http://www.obj-tec.com/msdnforums/lcedemo2.zip

just be sure to register LceEvent.dll via:

regsvcs /u LceEvent.dll

oh, microsoft.public.dotnet.framework.component_services does not list in
the menu of available newsgroups. I fudged my URL to get there (don't want to
subscribe to google)

hey peter. . . I appreciate your help, but still no joy.

changing to late binding . . .

and implementing the solution posted in that link yields is not a valid LCE
test. . . he is calling a method on some object p - neither p nor the method
are defined.

his code:
------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
p.RealizarPedido(1)
End Sub
------------------------

there is no declaration for p nor the method. In the event, the method is
"PedidoRealizado"

if you change his code to:
------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim p As New LceEvent.EventosPedidos
p.PedidoRealizado(1)
End Sub
---------------------------------
you get the same error that I received. "Unable to invoke..."

furthermore, his subscription release methodology throws an error

If you get a chance. . . please take a look at my code here:
http://www.obj-tec.com/msdnforums/lcedemo2.zip

(I have messed around with switching the event from server/library.)
the sink shouldnt have to be a serviced component. . . should it???

or please send me an email containing the code you got to work based on the
link that you referenced in the google mirror.

Hi

Commonly the latebinding should worked as expeced with early binding.
But if we use the COMAdmin in .NET, there will be Interop Layer which is
produced by .NET IDE.
Because there is no official tested COMAdmin PIA, there may be problem to
use the generated interop assembly.
So to use latebinding will be a good alternative in this scenario to
isolate and workaround problem.
Alsp regsvcs /u is do the reverse job to regsvcs LceEvent.dll.
Every time you recompile the event dll, I suggest you regsvcs /u first and
then call regsvcs to refresh the com+ setting.

Also thanks for your solution, if you still have any concern, please feel
free to post here.

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.