Private Sub tapiGenerate_Event(ByVal sender As Object, _
ByVal e As TapiDigitGenerationEventArgs) Handles MyTAPI.TE_GENERATEEVENT
Label4.Text = "GENERATE EVENT"
End Sub
Private Sub tapiSpecific_Event(ByVal sender As Object, _
ByVal e As TapiAddressDeviceSpecificEventArgs) Handles MyTAPI.TE_ADDRESSDEVSPECIFIC
Label4.Text = "ADDRESS EVENT"
End Sub
Private Sub tapiObject_Event(ByVal sender As Object, _
ByVal e As TapiObjectEventArgs) Handles MyTAPI.TE_TAPIOBJECT
Label4.Text = "TAPI OBJECT EVENT"
End Sub
Private Sub tapiDigit_Event(ByVal sender As Object, _
ByVal e As TapiDigitDetectionEventArgs) Handles MyTAPI.TE_DIGITEVENT
Label4.Text = "DIGIT EVENT"
End Sub
Вам нужны эти события.У меня была такая же проблема в начале.Без этих событий CallInfo не будет запущен.
Извините, я также забыл это:
Dim m_TAPI As New JulMar.Tapi3.TTapi
m_TAPI.Initialize()
MyTAPI = m_TAPI
m_TAPI = Nothing
For Each Phone As TPhone In MyTAPI.Phones
For Each Address As TAddress In MyTAPI.Addresses()
If Address.State = ADDRESS_STATE.AS_INSERVICE Then
If Address.AddressName.ToLower.StartsWith("cisco") Then
Try
Address.OpenAndMonitor(TAPIMEDIATYPES.AUDIO)
Catch ex As Exception
Address.Close()
Address.OpenAndMonitor(TAPIMEDIATYPES.AUDIO)
End Try
Label2.Text = Label2.Text & vbNewLine & Address.AddressName.ToLower & Address.State.ToString
If Address.AddressName.ToLower.Contains("6591") Then
TapiAddress = Address
End If
End If
End If
Next Address
Next Phone
Требуется также для запуска.
Address.OpenAndMonitor(TAPIMEDIATYPES.AUDIO)