Gravando uma Conversa
|
Início Anterior Próximo |
|
Private Sub DeixarRecado()
|
'.... código para falar a mensagem ....
|
'Inicia gravação
|
VoicerLibX1.RecordFile(1,"c:\recado.sig,"#")
|
'Lembre que o programa segue o fluxo normal após iniciada
|
'a gravação
|
|
End Sub
|
|
'Rotina de tratamento do click de um botão para o caso de o
|
'operador parar a gravação manualmente
|
Private Sub cmdParaGravar_Click()
|
VoicerLibX1.StopRecordFile(1)
|
End Sub
|
|
'Evento que ocorre quando a gravação é finalizada
|
'É necessário analisar o motivo
|
Private Sub VoicerLibX1_OnRecordStop(ByVal Port as Integer,
|
Status As VoicerLib.TxStopStatus)
|
Select Case Status
|
Case ssStopped:
|
'Gravação interrompida pelo operador
|
VoicerLibX1.HangUp 1
|
Case ssDigitReceived:
|
'Recebeu o digito finalizador
|
'Transfere para a telefonista
|
if Digits = "#" then
|
VoicerLibX1.Flash 1,600,1000
|
VoicerLibX1.Dial 1,"200",1000
|
VoicerLibX1.HangUp 1
|
end if
|
End Select
|
End sub
|
|