FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mis programas FW hablan
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Mis programas FW hablan
Posted: Sat Oct 27, 2018 05:37 PM
Muy estimados un saludito.
Como siempre agradeciendoles la ayudas y sus aportaciones que sin ellos nos harian falta :-)


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



*/
Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Mis programas FW hablan
Posted: Sat Oct 27, 2018 09:34 PM

Gracias por el aporte... Lo investigare para un proyecto de llamador de turnos que tengo...
Muchas gracias!

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Mis programas FW hablan
Posted: Sat Oct 27, 2018 09:49 PM
Gracias por el aporte
En Windows 10, esto funciona sin instalar nada, no puedo probarlo en anteriores versiones

Code (fw): Select all Collapse
聽 聽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
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: Mis programas FW hablan
Posted: Sun Oct 28, 2018 02: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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Mis programas FW hablan
Posted: Sun Oct 28, 2018 01: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
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: Mis programas FW hablan
Posted: 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
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Mis programas FW hablan
Posted: Mon Dec 17, 2018 01: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.ar
Posts: 162
Joined: Wed Feb 22, 2017 02:19 AM
Re: Mis programas FW hablan
Posted: Mon Dec 17, 2018 01: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

Continue the discussion