Visual Basic.NET - Usar mciSendString (SAVE)

 
Vista:

Usar mciSendString (SAVE)

Publicado por Michael (2 intervenciones) el 15/12/2013 20:55:17
Alguien me puede ayudar con esto?

Trato de grabar audio y guardarlo en una ruta de sistema pero no me funciona....

Dim ruta_Guardar As String = Path.Combine(Application.StartupPath, "DATA_MC" & "\" & Audio & ".mp3")
Dim Cadena As String = "save recsound " & Comillas & ruta_Guardar & Comillas
MsgBox("La cadena es " + Cadena, MsgBoxStyle.Information)
mciSendString(Cadena, " ", 0, 0)
mciSendString("close recsound", "", 0, 0)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Usar mciSendString (SAVE)

Publicado por JACRUZF (2 intervenciones) el 09/01/2014 00:47:35
Hola, no sé si en tu formulario tendrás los botones Grabar y Detener, que creo sería lo más conveniente para que especifiques cuando inicia y cuando termina la grabación. Por otro lado, con MCI sólo graba en formato .wav. Finalmente con esto, debería quedar así:

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
Dim Ruta As String = "C:\Carpeta"
Dim Archivo As String = "Nombre_Archivo.wav"

Private Sub cmdGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGrabar.Click
cmdGrabar.Enabled = False
cmdDetener.Enabled = True
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
lblMensaje.Text = "Estado: Grabando..."
lblMensaje.Visible = True
End Sub

Private Sub cmdDetener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDetener.Click
cmdGrabar.Enabled = True
cmdDetener.Enabled = False
mciSendString("save recsound " & Ruta & "\" & Archivo, "", 0, 0)
mciSendString("close recsound", "", 0, 0)
MsgBox("Archivo creado: " & Ruta & "\" & Archivo)
lblMensaje.Text = "Estado: Detenido."
lblMensaje.Visible = True
My.Computer.Audio.Stop()
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Usar mciSendString (SAVE)

Publicado por Michael Monestel (2 intervenciones) el 10/01/2014 01:53:58
Hola JACRUZF.

Gracias por tu respuesta, pero hace unos días atrás me di cuenta cual era el error después de tantas pruebas descubrí que mciSendString tiene un limite en la ruta de almacenamiento es decir si se guarda en "C:\" Lo guarda perfectamente pero si se pone "C:\Users\HACKER-Pc\Desktop\MY FILES\MIS VIDEOS\ Audio como 6 Diseño\Inclusion_Silabas_MiCa\bin\Debug\TEMP" no fusiona porque la cadena es muyyy larga!! Ese es el problema!! Actualmente no se cual es el limite en caracteres pero estoy 100% seguro que si lo existe.

Ademas si tengo los botones de grabar, detener y hasta reproducir... Ahh y si guarda en formato mp3
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar