Los foros del Guille

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

Google
 

MKN Reservas (Maro - Kayak Nerja)


Kayak Maro - Rutas y alquiler de kayak y tabla
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu inter�s (algunos de los avisos publicados)

01/feb./2019

Como te avisé, desde el 1 de febrero de 2019

No se podrán escribir nuevos mensajes ni editar los existentes

En breve solo se mostrarán los mensajes con respuestas.
Posiblemente para el 1 de marzo, solamente se mostrarán los que tengan respuestas y estén marcados como respuesta válida.

  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-2026  - foros.elGuille v1.0.6.3 (01/Jun/2021 12:45 GMT +2)  - (ASP.NET v4.0.30319.42000)
 
La hora GMT del servidor es: 10/06/2026 11:48:12 GMT