Los foros del Guille

dotNetManía + el sitio del Guille:
¡La mejor información de punto NET!
¡Suscríbete ya! y consigue un 10% de descuento

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

18/Nov/2008
El primer libro de C# escrito por el Guille:

Aprenda C# 3.0 desde 0.0 - Parte 3, lo nuevo


Cónsiguelo desde aquí: http://www.elguille.info/NET/AprendaCSharp3/parte3_lo_nuevo.aspx

  Foro: .NET VB Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 52041 - Grabador con mciSendString
IDAsuntoFechaNick 
52041 Grabador con mciSendString05/03/10 18:26Zuly Jansen   
Hola a todos!

Estoy desarrollando una aplicación de escritorio en vb.net, el cual grabe llamadas entrantes (tipo call center) y estoy utilizando la api multimedia de windows (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í lo que llevo de código, 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!! rie

 
(c) Guillermo 'guille' Som, 2005-2010  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.1433)
 
Usuarios activos: 261 - App. iniciada: 9/9/2010 1:11:11 AM GMT - La hora GMT del servidor es: 10/09/2010 05:04:55 GMT