SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: luismatute en Jueves 28 de Agosto de 2008, 10:06

Título: convertir texto a mp3
Publicado por: luismatute en Jueves 28 de Agosto de 2008, 10:06

Hola amigos de necesito ayuda, estoy haciendo un sistema en VB 6.0 tengo un RichTextBox que es donde cargo texto desde un archivo, ahora lo que quiero saber es como poder hacer que desde   ese  RichTextBox lo pueda convertir a un archivo mp3 cuadno ya este funcionandoel sistema, tengo muchas dudas  :wub:  de antemano muchas gracias por la ayuda me sirve muchoo.

 :D

Título: Re: convertir texto a mp3
Publicado por: m0skit0 en Jueves 28 de Agosto de 2008, 11:01

:ph34r:  :ph34r:  :ph34r:  :blink:  :blink:  :blink:  :wacko:  :wacko:  :wacko:

MP3 es una compresión de audio, no de texto

Título: Re: convertir texto a mp3
Publicado por: posman en Jueves 28 de Agosto de 2008, 15:44

Puede ser que lo que quiera es convertir ese texto en audio (text to speech) y luego a MP3, para algun tutorial, una presentacion o algo asi  :D

Título: Re: convertir texto a mp3
Publicado por: Jimbenit en Jueves 28 de Agosto de 2008, 19:57

No escribas dos veces el mismo post, (esto es crear SPAM), los spam son muy desagradables.
Saludos.

Título: Re: convertir texto a mp3
Publicado por: luismatute en Viernes 29 de Agosto de 2008, 03:58

aja corecto, ya convierto ese texto a audio con un DirectSS1 ahora quiero poderlo guardar como un archivo mp3 en xx carpeta de mi disco C, esa es mi duda gracias por las respuestas en verdad me sirven mucho y perdon por lo del post :oops:

Título: Re: convertir texto a mp3
Publicado por: m0skit0 en Viernes 29 de Agosto de 2008, 11:05

Necesitas guardar el audio en un fichero WAV y pasarle un compresor MP3 (como el lame (http://lame.sourceforge.net/index.php) por ejemplo) en línea de comandos con la llamada al sistema ShellExecute(). Un saludo.

Título: Re: convertir texto a mp3
Publicado por: luismatute en Sábado 30 de Agosto de 2008, 05:37

OK GRACIAS POR LAS RESPUESTA PERO REALMANTE NO ENTIENDO PUCHO COMO HACERLO, NOSE SI SABEN DE UNBUEN TUTORIAL Q EXPLIQUE COMO HACER ESO, O SI ME PUEDEN PASAR UN EJEMPLO SE LOS AGRADECERIA MUCHO :hola:

Título: Re: convertir texto a mp3
Publicado por: m0skit0 en Sábado 30 de Agosto de 2008, 15:19

Cita de: "luismatute"

COMO HACERLO

¿Qué es lo que no entiendes, cómo guardarlo en un fichero WAV o cómo llamar a lame para convertirlo en mp3?

Título: Re: convertir texto a mp3
Publicado por: luismatute en Domingo 31 de Agosto de 2008, 03:55

sincesaramente y humildemente las dos cosas las entiendo dentro de mi logica, pero nose como hacerlo, osea el codigo q hay q ejecutar, los controles q hay q llamar nosep :huh:

Título: Re: convertir texto a mp3
Publicado por: m0skit0 en Lunes 1 de Septiembre de 2008, 09:52

"Sincesaramente"  ;) yo no tengo ni idea de cómo funciona el

Cita de: "luismatute"

DirectSS1

, así que si me pones un poco del código y a qué audio convierte el texto podría explicarte cómo guardarlo en WAV.

En cuanto a la parte del lame, es muy sencilla:

Código: Visual Basic

1.  
2. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
3.  
4. ShellExecuteA(<el lame con sus parámetros>)
5.  
6.  

Título: Re: convertir texto a mp3
Publicado por: luismatute en Miércoles 3 de Septiembre de 2008, 05:04

***AQUI HAGO Q HABLE EL PROGRAMA DESDE EL RICHTEXTBOX
Private Sub Command1_Click()
DirectSS1.Speak txtText.Text
End Sub

Private Sub Command2_Click()
estado = Not estado
If estado = True Then
 Command2.Caption = "pause"
 DirectSS1.Speak txtText.Text
  Else
Command2.Caption = "play"
DirectSS1.AudioPause
End If
End Sub

**ESTE ES UN CODIGO Q OCNSEGUI PERO NO ME FUNCIONA
Dim AudioFile As New SpeechLib.SpFileStream

AudioFile.Format.Type = SAFT22kHz16BitStereo 'Formato WAV
 With cdlgVarios
  .flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
  .DialogTitle = "Guardar en un archivo WAV"
  .Filter = "Todos los archivos (*.*)|*.*|Archivos Wab" & "(*.wav)|*.wav"
  .FilterIndex = 2
  .ShowSave
  nArAudio = .FileName
 End With
  'Si el usuario no escribe un nombre para el archivo, no se hace nada más
 If nArAudio = "" Then Exit Sub
 
 EscribiendoWav = True 'Para saber que se esta escribiendo un archivo Wab
 DoEvents
 Me.Hide 'Quitamos el form
 DoEvents: DoEvents
 PonerIcono Me, Me.PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio"
 MostrarGlobo Me, PicIcono, "TTS - [text-to-speech] - Guardando como archivo de audio" _
                          , "Speech - [Guardando como archivo de audio]" _
                          , "Esta operación puede tardar varios minutos, para restaurar el programa debe esperar a que el programa termine de crear el archivo"
 DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
 
 
 AudioFile.Open nArAudio, SSFMCreateForWrite, True
 
 Set nNarrador.AudioOutputStream = AudioFile
 nNarrador.Speak txtTexto.Text, SVSFDefault ' SVSFlagsAsync + SVSFPurgeBeforeSpeak 'SVSFlagsAsync
 
 AudioFile.Close
 Set AudioFile = Nothing

 EscribiendoWav = False

Título: Re: convertir texto a mp3
Publicado por: m0skit0 en Miércoles 3 de Septiembre de 2008, 08:40

Échale un vistazo a este enlace (http://www.ex-designz.net/apidetail.asp?api_id=519). También podrías simplemente usar la grabadora de Windows para guardar la salida de audio en WAV y la pasas a mp3, aunque todo esto se haría manualmente. Supongo que también se podrá automatizar, aunque no he investigado cómo.

Título: Re: convertir texto a mp3
Publicado por: luismatute en Miércoles 10 de Septiembre de 2008, 03:33

HEY MUCHAS GRACIAS ME SIRVIO DE MUCHO YA PUDE COMVERTIR :beer:
GRACIAS POR LA AUYDA :hola: