<sqlranger.mvp@mvps.org> wrote:

>Thank you Slava,
>
>The solution is a very simple test for transient subscriptions.
>
>I Have a project "EventClass". This is the code:
>
>Imports System.EnterpriseServices
>Imports System.Runtime.InteropServices
>
><Guid("57CD98DE-81A5-4a0e-AED9-972428DA26EF")> _
>Public Interface IEventosPedidos
> Sub PedidoRealizado(ByVal IdPedido As Integer)
>End Interface
>
><Guid("DE1D42F4-3538-4d9d-B587-1B5F014D834F"), _
>EventClass(FireInParallel:=True), _
>JustInTimeActivation(True), _
>ObjectPooling(True)> _
>Public Class EventosPedidos
> Inherits ServicedComponent
> Implements IEventosPedidos
>
> Public Sub PedidoRealizado(ByVal IdPedido As Integer) Implements
>IEventosPedidos.PedidoRealizado
> Throw New NotImplementedException("Esta clase debe llamarse por
>medio de eventos COM+")
> End Sub
>End Class
>
>And here is the AssemblyInfo.vb:
>
><Assembly: AssemblyVersion("1.0.0.0")>
><Assembly: AssemblyKeyFile("c:\eidos.snk")>
><Assembly: ApplicationName("EventosPedidos")>
><Assembly: ApplicationActivation(ActivationOption.Server)>
><Assembly: ApplicationAccessControl(False)>
>
>I have generated this project, put the assembly into the GAC and registered
>it into COM+ using RegSvcs.exe
>
>I also have a project "Subscriptor". And here is the code:
>
>Imports System.EnterpriseServices
>
>Public Class Subcriptor
> Inherits ServicedComponent
> Implements EventClass.IEventosPedidos
>
> Public Sub PedidoRealizado(ByVal IdPedido As Integer) Implements
>EventClass.IEventosPedidos.PedidoRealizado
> Debug.WriteLine("Pedido nº" & IdPedido & " realizado")
> End Sub
>End Class
>
><Assembly: AssemblyVersion("1.0.0.0")>
><Assembly: AssemblyKeyFile("c:\eidos.snk")>
><Assembly: ApplicationName("Subscriptor")>
><Assembly: ApplicationActivation(ActivationOption.Library)>
><Assembly: ApplicationAccessControl(False)>
>
>And a Windows project, the client:
>
>Public Class Form1
> Inherits System.Windows.Forms.Form
>
> Dim s As Object = New Subscriptor.Subcriptor
> Dim st As New SubscripcionesTransitorias.SubscripcionesTransitorias
> Dim Id As String
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
>System.EventArgs) Handles Button1.Click
> p.RealizarPedido(1)
> End Sub
>
> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
>System.EventArgs) Handles MyBase.Load
> Id = st.Añadir(s)
> End Sub
>End Class
>
>the exception is raised when calling st.Añadir(s).
>SubscripcionesTransitorias is implemented in a separate dll:
>
>Public Class SubscripcionesTransitorias
>
> Public Function Añadir(ByVal Objeto As Object) As String
> Dim cat As Object = CreateObject("COMAdmin.COMAdminCatalog")
>
> Dim Subscripciones As Object =
>cat.GetCollection("TransientSubscriptions")
> Dim Subscripción As Object = Subscripciones.Add()
> If Subscripción Is Nothing Then
> Throw New Exception("No se pueden añadir subscripciones
>transitorias")
> End If
>
> Subscripción.Value("Name") = "TransientSubscription"
> Subscripción.Value("EventCLSID") =
>"{DE1D42F4-3538-4D9D-B587-1B5F014D834F}"
>
>
> ' COMException "member not found." What member is not found ????
> Subscripción.Value("SubscriberInterface") = Objeto
>
> Subscripciones.SaveChanges()
> Añadir = Subscripción.Key
>
> Marshal.ReleaseComObject(Subscripción)
> Marshal.ReleaseComObject(Subscripciones)
> Marshal.ReleaseComObject(cat)
>
> End Function
>
> Public Sub Quitar(ByVal Id As String)
> Dim cat As Object = CreateObject("COMAdmin.COMAdminCatalog")
> Dim Subscripciones As Object =
>cat.GetCollection("TransientSubscriptions")
> Subscripciones.PopulateByKey(New String() {Id})
> If Subscripciones.Count = 1 Then
> Subscripciones.Remove(0)
> Subscripciones.SaveChanges()
> End If
> Marshal.ReleaseComObject(Subscripciones)
> Marshal.ReleaseComObject(cat)
>
> End Sub
>End Class
>
>I'm using Windows XP Service Pack 1a, Visual Studio 2003, and .NET Framework
>1.1
>
>Regards,
>
>Jesús López
>
>
>
>
>
>