• Lunes 23 de Diciembre de 2024, 04:29

Autor Tema:  CallbackOnCollectedDelegate Error  (Leído 1207 veces)

josep_lluis

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
CallbackOnCollectedDelegate Error
« en: Viernes 20 de Marzo de 2009, 13:11 »
0
Estoy desarrollando un componente net, el cual llama a una DLL que dispara eventos, por lo que he definido unas variables Delegate para llamar a las funciones CallBack de la DLL . Todo funciona bien pero de vez en cuando se dispara un error CallbackOnCollectedDelegate que no se como solucionar. En la pagina de microsoft me informa que debo mantener una referencia a mi variable delegate ya que el Garbagge del sistema borra esta referencia. He probado diferentes formas pero no consigo solucionarlo.

Alguien puede ayudarme.??? Os escribo un trozo de la parte de control..

Gracias y saludos

                  ' Declaracion de variable delegate
Public Delegate Sub POnCodeline(ByVal codeline As String)

                   ' Declaracion de la funcion externa en la DLL que genera los eventos
Private Declare Function rdOnCodeLine Lib "xevent" (ByVal lpx As POnCodeline) As Integer


    ' Evento generados por el componente NET
Event OnCodeline(ByVal codeline As String)

' Inicializacion de la funcion de disparo de evento
Private Sub Init()
      Dim xr as Integer
      xr = rdOnCodeLine (AddressOf MyEvento)
end Sub

' Funcion que dispara el evento de mi componente
Private Function MyEvento (ByVal Cadena as String)
  RaiseEvent  OnCodeline ("Funciona")
end Function