Mis programas FW hablan

Post Reply
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Mis programas FW hablan

Post by Busmatic_wpb »

Muy estimados un saludito.
Como siempre agradeciendoles la ayudas y sus aportaciones que sin ellos nos harian falta :shock:


Durante mucho tiempo he buscado como pornerle voces a mis programas , encontre un .exe y trabaja muy bien. Creo una carpeta y deposito el dll y el .exe ahi y por medio de un par de comandos ponemos a repetir textos . Ahora dependiendo del idioma del windows asi hablara a menbos que instales una voz Izabela y listo.

A menos windows 10 viene con 2 voces instaladas (en idioma propio del sistema Oerrativo) que podras ver con los comandos del ejecutable

Ademas de eso se puede bajar una par de voces de mujer o hombre que estan el sitio y aunque este en ingles el SO te habalara en español.

Lo facinante de esto es que en base a un TXT puede crear un .wav entre otras cosillas que al final me cae al pelo pues necesito en determinado momento tener un serie de avisos a los usuarios y en realidad esta muy bien para los que deseamos enviar lecturas completas de archivos de TXT.

Les comento que aunque es de terceros lo veo como una herramienta mas.. Dejo aqui in link que pueden bajar y ahi encontraran la informacion necesaria y en google driv podran bajar la version completa , yo baje solo consola que consta de un ejecutable y una dll que es lo unico que necesitas para ponder ver que tu programas hablen.. dejo un jemplo y el link de descarga abajo.

Espero que les sea util pues a mi en lo personal me cayo de perillas..

hay 2 ARCHIVOS AHI LA VOZ Y EL BALCON BAJA LOS DOS(SI TIENES WINDOWS EN ESPAñOL PUES NADA EDITA LAS VOCES disponibles con la opcion que veras en el ejemplo y mas nada .)

https://drive.google.com/file/d/1oH6Ek7 ... sp=sharing

Ahora miren

/**** ejemplo ****\

Local cTexto := "Bienvenido a FiveWin"

MemoWrit( "repetir.txt",cTexto )

WinExec( "balcon.exe v-100 -n helena -F repetir.txt" ,0)


/*** Descripcion de opciones ****\
/* Elena o David
/* Izavel agregas la voz extra que deje en el link

balcon -l prodras ver la voz que esta instaladas o lista si es mas de una..

v- 100 Volumen
n- Helena tipo por voz autilizar
-F repetir.txt fichero tipo txt a repetir

/*** Descripcion de opciones globales de balcon ****\

Usage: balcon [options ...]

-l : print list of voices
-g : print list of audio output devices
-f <file_name> : input text file
-w <file_name> : output file in WAV format
-n <voice_name> : set voice for speech
-id <integer> : set voice by language code (Locale ID)
-m : print voice parameters
-b <integer> : set audio output device by index
-r <text> : set audio output device by name
-c : use text from clipboard
-t <text> : use text from command line
-i : use text from stdin
-o : write sound data to stdout
-s <integer> : speed of speech (from -10 to 10)
-p <integer> : pitch of speech (from -10 to 10)
-v <integer> : volume of speech (from 0 to 100)
-e <integer> : pause between sentences (in milliseconds)
-a <integer> : pause between paragraphs (in milliseconds)
-d <file_name> : file for pronunciation correction

-k : kill other copies of application
-ka : kill active copy of application
-pr : pause or resume reading by active copy of application
-q : add application to queue
-lrc : create LRC file to display synchronized text in audio players
-srt : create SRT file to display synchronized text in video players
-vs <file_name> : create text file with synchronized visemes
-sub : convert subtitles to speech
-tray : show icon in system tray
-ln <integer> : select line from text file by using of line number
-fr <integer> : output audio sampling frequency in kHz (from 8 to 48)
-bt <integer> : output audio bit depth (8 or 16)
-ch <integer> : output audio channel mode (1 or 2)
-?, -h : print usage information

--encoding <encoding> : set input text encoding (ansi, utf8 or unicode)
--silence-begin <integer> : silence at the beginning (in milliseconds)
--silence-end <integer> : silence at the end (in milliseconds)
--lrc-length <integer> : set max length of text lines in LRC file
--lrc-fname <file_name> : set filename for LRC file
--lrc-enc <encoding> : set encoding for LRC file
--lrc-offset <integer> : time offset for LRC file (in milliseconds)
--lrc-artist <text> : artist (ID tag)
--lrc-album <text> : album (ID tag)
--lrc-title <text> : title (ID tag)
--lrc-author <text> : author (ID tag)
--lrc-creator <text> : creator of LRC file (ID tag)
--srt-length <integer> : set max length of text lines in SRT file
--srt-fname <file_name> : set filename for SRT file
--srt-enc <encoding> : set encoding for SRT file
--raw : output is raw PCM data (headerless)
--ignorelength : omit length of data in WAV header
--sub-format <text> : set format of subtitles
--sub-fit : increase speed to fit time intervals in subtitles
--sub-max <integer> : set max speed of speech for subtitles
--deletefile : delete text file when job is done

-enc <encoding> : set input text encoding (ansi, utf8 or unicode)
-sb <integer> : silence at the beginning (in milliseconds)
-se <integer> : silence at the end (in milliseconds)
-sf : increase speed to fit time intervals in subtitles
-sm <integer> : set max speed of speech for subtitles
-df : delete text file when job is done



*/
Last edited by Busmatic_wpb on Mon Oct 29, 2018 12:28 am, edited 1 time in total.
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
User avatar
cmsoft
Posts: 1297
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina
Been thanked: 2 times

Re: Mis programas FW hablan

Post by cmsoft »

Gracias por el aporte... Lo investigare para un proyecto de llamador de turnos que tengo...
Muchas gracias!
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

Re: Mis programas FW hablan

Post by cnavarro »

Gracias por el aporte
En Windows 10, esto funciona sin instalar nada, no puedo probarlo en anteriores versiones

Code: Select all | Expand



   oBj   := CreateObject("SAPI.SpVoice")
   oBj:Speak("FiveWin 32 bits para Harbour ha terminado de construir")

 


Evidentemente, si lo enlazamos con esto
viewtopic.php?f=6&t=35640#p212328
conseguiremos que hable otro ordenador remoto
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Post by Busmatic_wpb »

Gracias conpadre,
Si yo lo he usado pero hay que instalar algunas cosillas y son un poco pezadas, pero la verdad una opcion mas nos facilita, este asunto no se instala solo copias una par de archivos y lo parametrisas y listo.

Tiene cosas increibles como crear .wav al vuelo desde un archivo de TxT , leer archivos de texto y muchas cosillas por ahi que nos pueden de ser de ayuda.
. saludes.
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
User avatar
cnavarro
Posts: 6557
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Been thanked: 3 times

Re: Mis programas FW hablan

Post by cnavarro »

Solo he añadido otra posibilidad, no es comparable, y la descripción de características de tu recomendación es impresionante
Sobre todo me ha llamado la atención lo de poder enviar desde el portapapeles el contenido a reproducir.
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Post by Busmatic_wpb »

Compadres listeros, Saludes ..

De las otras cosillas que he encotrado y he subido a link una voz mas de izabela esta en español y lo alucinate de esta es que no importa el idiama que este el windows pues esta voz esta en español y aunque el Windows este ente en ingles no pasa nada se va derecho en español. Asi que me va de maravillas, otra cosilla que he tenido que hacer es ponerle un .15 segundos entre cada mensaje pues aveces se brinca al proximo pues no se como controlar el Winexec para saber si termino o no reproducir.
Tambien este Balcon puede reproducir documentos entero en .txt para que quieran leer poemas de amor mientras le dan a la Santa tacla..

Espero que esto les caiga de pelos. pue ami me va muy bien
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
User avatar
TOTOVIOTTI
Posts: 430
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina
Has thanked: 5 times

Re: Mis programas FW hablan

Post by TOTOVIOTTI »

Hola..
podrás poner un ejemplito @busmatic_wpb de esto que dices?
Muchas gracias
Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
User avatar
Busmatic_wpb
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Post by Busmatic_wpb »

Estimado buen dia.
arriba esta el ejemplo y donde bajarlo.
Si se te hace dificil dime una hora en la noche y nos conectamos.
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Post Reply