none
Grabador con mciSendString RRS feed

  • Pregunta

  • Estoy desarrollando una aplicación de escritorio en vb.net, el cual grabe llamadas entrantes (tipo call center) y estoy utilizando la función mciSendString. El problema es que éste me graba el audio del micrófono, pero no la llamada en sí (es decir, no se graba la voz de la persona que está del otro lado del teléfono). Dejo aquí el código que he encontrado, ojalá alguien me pueda orientar, 

    Public Class frmGrabador
    
        Declare Function
             mciExecute Lib "winmm.dll" (ByVal
             lpstrCommand As String) As Long
    
        Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"
             (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As
             Integer, ByVal
             hwndCallback As Integer) As Integer
    
        Private Sub btnGraba
            _Click(ByVal sender As System.Object, ByVal e As
             System.EventArgs) Handles btnGraba.Click
            ' Grabamos desde el micrófono
            mciSendString("open new Type waveaudio Alias recsound", "", 0, 1)
            mciSendString("record recsound", "", 0, 0)
    
            Dim blnIsRecording = True
    
            While blnIsRecording
                Application.DoEvents()
            End While
    
    
        End Sub
    
        Private Sub btnDetiene
            _Click(ByVal sender As System.Object, ByVal e As
             System.EventArgs) Handles btnDetiene.Click
            ' Detener la grabación y guardar el archivo
            mciSendString("save recsound c:\audios\audio.wav", "", 0, 0)
            mciSendString("close recsound", "", 0, 0)
        End Sub
    End Class
    Saludos!
    viernes, 5 de marzo de 2010 18:43