Mis programas FW hablan

Mis programas FW hablan

Postby Busmatic_wpb » Sat Oct 27, 2018 5:37 pm

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
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Postby cmsoft » Sat Oct 27, 2018 9:34 pm

Gracias por el aporte... Lo investigare para un proyecto de llamador de turnos que tengo...
Muchas gracias!
User avatar
cmsoft
 
Posts: 1189
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Mis programas FW hablan

Postby cnavarro » Sat Oct 27, 2018 9:49 pm

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

Code: Select all  Expand view


   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
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Mis programas FW hablan

Postby Busmatic_wpb » Sun Oct 28, 2018 2:07 am

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
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Postby cnavarro » Sun Oct 28, 2018 1:31 pm

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
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Mis programas FW hablan

Postby Busmatic_wpb » Sun Oct 28, 2018 10:19 pm

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
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am

Re: Mis programas FW hablan

Postby TOTOVIOTTI » Mon Dec 17, 2018 1:16 pm

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.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 387
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Mis programas FW hablan

Postby Busmatic_wpb » Mon Dec 17, 2018 1:47 pm

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
User avatar
Busmatic_wpb
 
Posts: 162
Joined: Wed Feb 22, 2017 2:19 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 66 guests