Hola a todos.

Estoy con la centralita Avaya y necesito capturar las llamadas entrantes.

Lo primero me he declarado unas variables a nivel de clase:

    Public CallerID As String
    Private Const MediaAudio As Integer = 8
    Private Const MediaModem As Integer = 16
    Private Const MediaFax As Integer = 32
    Private Const MediaVideo As Integer = 32768
    Private WithEvents oTAPI As TAPI3Lib.TAPI '
    Private oAddress As ITAddress
    Private RegCookie As Integer
 

Lo primero es realizar la conexión con la centralita:

Try
 
            Dim m_TAPI As New TAPIClass
 
            Dim MediaTypes As Integer
            m_TAPI.Initialize()
            oTAPI = m_TAPI
 
            m_TAPI = Nothing
 
            Dim AddressCollection As ITCollection = oTAPI.Addresses()
 
            For Each Address As ITAddress In AddressCollection
 
                If Address.State = ADDRESS_STATE.AS_INSERVICE Then
 
                    Dim MediaSupport As ITMediaSupport = Address
 
                    MediaTypes = MediaSupport.MediaTypes
 
                    MediaSupport = Nothing
 
                    If MediaTypes And MediaModem = MediaModem Then
 
                        If MediaTypes And MediaAudio = MediaAudio Then
 
                            oAddress = Address
 
                            MsgBox(oAddress.AddressName)
 
                            Exit For
                        End If
                    End If
 
                End If
 
            Next Address
 
            If Not oAddress Is Nothing Then
 
                RegCookie = oTAPI.RegisterCallNotifications(oAddress, True, False, MediaTypes, 1)
                oTAPI.EventFilter = (TAPI_EVENT.TE_CALLNOTIFICATION Or TAPI_EVENT.TE_CALLSTATE Or TAPI_EVENT.TE_CALLINFOCHANGE)
            Else
                MsgBox("No se encontró ninguna extensión.")
            End If
 
        Catch ex As Exception
            MsgBox("Error TAPI:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
        End Try
 

El siguiente código es para capturar los eventos.

 
 Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object) Handles oTAPI.Event
 
        Dim thAsyncCall As System.Threading.Thread
 
        Select Case TapiEvent
            Case TAPI_EVENT.TE_CALLNOTIFICATION
                thAsyncCall = New Threading.Thread(AddressOf CallNotificationEvent)
                CallNotificationObject = CType(pEvent, ITCallNotificationEvent)
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLSTATE
                thAsyncCall = New Threading.Thread(AddressOf CallStateEvent)
                CallStateObject = CType(pEvent, ITCallStateEvent)
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLINFOCHANGE
                thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent)
                CallInfoObject = CType(pEvent, ITCallInfoChangeEvent)
                thAsyncCall.Start()
        End Select
 
    End Sub
 
Private CallNotificationObject As ITCallNotificationEvent
 
    Private Sub CallNotificationEvent()
        Select Case CallNotificationObject.Event
            Case CALL_NOTIFICATION_EVENT.CNE_MONITOR
            Case CALL_NOTIFICATION_EVENT.CNE_OWNER
        End Select
    End Sub
 
    Private CallStateObject As ITCallStateEvent
 
    Private Sub CallStateEvent()
        Select Case CallStateObject.State
            Case CALL_STATE.CS_IDLE
            Case CALL_STATE.CS_INPROGRESS
            Case CALL_STATE.CS_OFFERING
            Case CALL_STATE.CS_CONNECTED
 
               Form2.ShowDialog()
 
            Case CALL_STATE.CS_QUEUED
            Case CALL_STATE.CS_HOLD
            Case CALL_STATE.CS_DISCONNECTED
 
 
        End Select
    End Sub
 
    Private CallInfoObject As ITCallInfoChangeEvent
 
    Private Sub CallInfoEvent()
 
        CallerID = CallInfoObject.Call.CallInfoString(CALLINFO_STRING.CIS_CALLERIDNUMBER) 'CIS_CALLERIDNAME)
 
    End Sub
 

Tal como está el codigo me funciona abriendome el Form2 (eso si, tengo que ponerlo como Showdialog porque con el Show no lo veo y en callinfoevent tengo el numero entrante.

Mi problema está que solamente está funcionando con multihilo y al modificar el código de la siguiente manera  no me funciona.

 Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object) Handles oTAPI.Event
 
        Select Case TapiEvent
            Case TAPI_EVENT.TE_CALLNOTIFICATION
                CallNotificationEvent()
            Case TAPI_EVENT.TE_CALLSTATE
                CallNotificationEvent()
            Case TAPI_EVENT.TE_CALLINFOCHANGE
                CallNotificationEvent()
        End Select
 
    End Sub
 

No debería ser lo mismo?

A ver si me se explicar. Tengo un formlario Form1, en él tengo declarado un array de forms publico. Con un botón voy abriendo las instancias del Form2 y los abiertos los voy guardando en el array. Dentro del Form2 tengo un botón para abrir la instancia del Form3, pasandole en el contructor el número del Form2 que ha abierto el form3 para que pueda hacer referncia a él. Desde el form3 cuando le cierro le paso los parametros al form2

form1.arraydeforms(id).variable = <valor>

donde el id es el número del form (Form2) de array que lo ha abierto (Form3)

Me imagino que es por el multihilo que cuando desde el Form3 hago la referencia al Form2, me dice que el array no lo tengo creado porque cuando hago lo mismo pero con un botón me funciona bien.

Perdonad pero creo que no se explicarme mejor.