| ID | Asunto | Fecha | Nick | |
| 52041 | Grabador con mciSendString | 05/03/10 18:26 | Zuly 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 Classsaludos!!  |