Supervisão de Linha
|
Início Anterior Próximo |
· | Sinal de Ocupado
|
· | Detecção de Fax
|
· | Detecção de sinal de discagem
|
· | Detecção de sinal de chamada
|
· | Detecção de Atendimento
|
A partir da versão 2.61, o método SetToneTwist permite controlar a sensibilidade de detecção destes tons quando gerados em cima de uma mensagem. Este método deve ser utilizado caso a detecção de tons (notadamente o ocupado) esteja gerando situações de talk-off
|
|
Private Sub VoicerLibX1_OnBusyDetected(Port As Integer)
|
lblStatus.Caption = "Sinal de Ocupado..."
|
VoicerLibX1.DisableCallProgress 1
|
End Sub
|
|
Private Sub VoicerLibX1_OnFaxDetected(Port As Integer)
|
lblStatus.Caption = "Transferindo para o Fax..."
|
'executa comando de flash para transferencia
|
VoicerLibX1.Flash(1,600,1000)
|
'disca para o ramal do fax
|
VoicerLibX1.Dial(1,"202',1000)
|
End Sub
|
|
|
Private Sub VoicerLibX1_OnAnswerDetected(Port As Integer)
|
'Primeiro desabilita a detecao para nao entrar aqui
|
'de novo
|
VoicerLibX1.DisableAnswerDetection(1)
|
lblStatus.Caption = "Atendeu, discando para o ramal"
|
VoicerLibX1.Dial(1,"220',0)
|
End Sub
|
|
|
'Habilita Supervisão de linha
|
'e toma a linha para discar a partir do click do botão
|
Private Sub cmdAtende_Click()
|
VoicerLibX1.EnableCallProgress(1)
|
x = VoicerLibX1.PickUp(1,0)
|
End Sub
|
|
'Quando o tom de discagem for detectado
|
'esta rotina é chamada
|
Private Sub VoicerLibX1_OnDialToneDetected(Port as Integer)
|
'disca
|
VoicerLibX1.Dial("0,72952557")
|
End Sub
|
|
|
Private Sub VoicerLibX1_OnCalling(Port As Integer)
|
nToques = nToques + 1
|
lblStatus.Caption = "Chamando... " & nToques
|
if nToques = 5 then
|
VoicerLibX1.HangUp(1)
|
End if
|
End Sub
|
|