FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Voces
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Voces
Posted: Sun Jun 09, 2013 08:44 PM
Listando las voces disponibles

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

聽 聽local oVoice := TOleAuto():New( "Sapi.SPVoice" )
聽 聽local voice

聽 聽for each voice in oVoice:GetVoices()
聽 聽 聽 MsgInfo( voice:GetDescription )
聽 聽next 聽 

return 聽nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Sun Jun 09, 2013 08:46 PM
Escuchando las descripciones:

Code (fw): Select all Collapse
// Listing voices

#include "FiveWin.ch"

function Main()

   local oVoice := TOleAuto():New( "Sapi.SPVoice" )
   local voice

   for each voice in oVoice:GetVoices()
      oVoice:Speak( voice:GetDescription )
   next   

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Sun Jun 09, 2013 10:01 PM

SAPI.SpVoice Properties:

'.Pause = pause speaking
'.resume = resume after pause
'.Rate = speed at which voice speaks
'.Voice = you can use set and a voice value to change the voice (if multiple exist on machine)
'.Volume = volume of voice (not system volume, just voice)
'.WaitUntilDone = wait until done

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Sun Jun 09, 2013 11:50 PM
http://www.aksel.com/whitepapers/sapi.htm
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Mon Jun 10, 2013 07:29 AM
Para hacerle leer un texto externo:

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

   local oVoice := TOleAuto():New( "Sapi.SPVoice" ) 

   oVoice:Speak( "c:\texto.txt", 4 ) // 4 significa que es un fichero externo

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Mon Jun 10, 2013 07:38 AM
Aqui teneis voces en Espa帽ol y en Latino que funcionan realmente bien:

Recomiendo "Isabel" en Espa帽ol. Curiosamente he visto que esta voz se usa en el control del bluetooth en algunos coches :-)

http://www.freedomscientific.com/downloads/RealSpeak-Solo-Direct-Voices/RealSpeak-Solo-Direct-Downloads.asp

Estas nuevas voces se instalan bien en un Windows (8) 32 bits, no se instalan correctamente en un WIndows (8) 64 bits.
Si alguien lo consigue por favor que lo comparta :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Mon Jun 10, 2013 08:01 AM
Si quereis que el ordenador reconozca lo que dice el usuario, podeis usar el API de Google de una forma muy sencilla:

http://blogs.sitepointstatic.com/examples/tech/speech-input/index.html

html:
Code (fw): Select all Collapse
<input type="text" x-webkit-speech />
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Mon Jun 10, 2013 08:24 AM
Convertir un texto en un archivo wav de sonido:

Code (fw): Select all Collapse
#include "FiveWin.ch"

#define SSFMCreateForWrite 3

function Main()

   local oVoice := TOleAuto():New( "Sapi.SPVoice" )
   local oFile := TOleAuto():New( "SAPI.SpFileStream.1" )

   oFile:Open( "c:\reading.wav", SSFMCreateForWrite, .F. )
   oVoice:AudioOutputStream = oFile
   oVoice:Speak( "c:\text.txt", 4 )
   oFile:Close()
   
return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Voces
Posted: Thu Oct 24, 2013 10:56 PM

Antonio

Una vez instalada la voz RealSpeak Solo direct Javier
C贸mo se hace para elegirla.

Me sigue saliendo la original.

Gracias por la ayuda

Saludos,

Adhemar

Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Fri Oct 25, 2013 08:05 AM

Adhemar,

En teoria debe hacerse asi:

oVoice:Voice = oVoice:GetVoices():Item( 0 )

贸:

oVoice:Voice = oVoice:GetVoices( "gender=female" ):Item( 0 )

pero ambos dan error y deber铆an funcionar...

Adem谩s, esto parece correcto:

MsgInfo( oVoice:GetVoices():Item( 0 ):ClassName() )

regards, saludos

Antonio Linares
www.fivetechsoft.com
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Voces
Posted: Fri Oct 25, 2013 02:42 PM

Gracias Distinguido

Hice pruebas de todas formas y no funciona, siempre sale la voz original
oVoice:Voice = oVoice:GetVoices():Item( 0 )
En Win8 sale en Espa帽ol y en Win7 en Ingl茅s
oVoice:Voice = oVoice:GetVoices():Item( 1 )
En Win8 sale en Espa帽ol y en Win7 da error como si no tuviera la voz en espa帽ol.

Saludos,

Adhemar

Saludos,



Adhemar C.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Fri Oct 25, 2013 05:29 PM

Adhemar,

Por lo visto tambien se le puede interrogar por el pais del lenguaje:

oVoice:GetVoices( "", "Language=809" ):Item( 0 )

y algunos criterios m谩s...

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Voces
Posted: Fri Oct 25, 2013 08:02 PM
Me dan problemas en la ejecuci贸n estos:

oVoice:Speak( "D:\Programa\Pruebas\Voces.txt", 4 ) // 4 significa que es un fichero externo
Code (fw): Select all Collapse
Firma con problemas:
聽 Nombre del evento de problema:聽 聽 APPCRASH
聽 Nombre de la aplicaci贸n:聽Voces.exe
聽 Versi贸n de la aplicaci贸n:聽 聽0.0.0.0
聽 Marca de tiempo de la aplicaci贸n:聽 聽 00000000
聽 Nombre del m贸dulo con errores:聽 聽MSTTSFrontendENU.dll
聽 Versi贸n del m贸dulo con errores:聽2.0.4319.0
聽 Marca de tiempo del m贸dulo con errores:聽 4a5bda68
聽 C贸digo de excepci贸n:聽 聽 c000008e
聽 Desplazamiento de excepci贸n:聽000145b6
聽 Versi贸n del sistema operativo:聽 聽6.1.7601.2.1.0.256.48
聽 Id. de configuraci贸n regional:聽 聽3082
聽 Informaci贸n adicional 1:聽c574
聽 Informaci贸n adicional 2:聽c57486187c219641a7e79574ce67d4fa
聽 Informaci贸n adicional 3:聽31d6
聽 Informaci贸n adicional 4:聽31d6b0319d019a3517c668943c3e6a14

Lea nuestra declaraci贸n de privacidad en l铆nea:
聽 http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0c0a

Si la declaraci贸n de privacidad en l铆nea no est谩 disponible, lea la declaraci贸n de privacidad sin conexi贸n:
聽 C:\Windows\system32\es-ES\erofflps.txt

oVoice:Speak( voice:GetDescription ) // Escuchando las descripciones
Code (fw): Select all Collapse
Firma con problemas:
聽 Nombre del evento de problema:聽 聽 APPCRASH
聽 Nombre de la aplicaci贸n:聽Voces.exe
聽 Versi贸n de la aplicaci贸n:聽 聽0.0.0.0
聽 Marca de tiempo de la aplicaci贸n:聽 聽 00000000
聽 Nombre del m贸dulo con errores:聽 聽MSTTSFrontendENU.dll
聽 Versi贸n del m贸dulo con errores:聽2.0.4319.0
聽 Marca de tiempo del m贸dulo con errores:聽 4a5bda68
聽 C贸digo de excepci贸n:聽 聽 c000008e
聽 Desplazamiento de excepci贸n:聽000145b6
聽 Versi贸n del sistema operativo:聽 聽6.1.7601.2.1.0.256.48
聽 Id. de configuraci贸n regional:聽 聽3082
聽 Informaci贸n adicional 1:聽765d
聽 Informaci贸n adicional 2:聽765d25a9ed95cd3bbc613e8c416f72a2
聽 Informaci贸n adicional 3:聽c69c
聽 Informaci贸n adicional 4:聽c69c580869263388bac12288d0765723

Lea nuestra declaraci贸n de privacidad en l铆nea:
聽 http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0c0a

Si la declaraci贸n de privacidad en l铆nea no est谩 disponible, lea la declaraci贸n de privacidad sin conexi贸n:
聽 C:\Windows\system32\es-ES\erofflps.txt

Y "Convertir un texto en un archivo wav de sonido"
Code (fw): Select all Collapse
Firma con problemas:
聽 Nombre del evento de problema:聽 聽 APPCRASH
聽 Nombre de la aplicaci贸n:聽Voces.exe
聽 Versi贸n de la aplicaci贸n:聽 聽0.0.0.0
聽 Marca de tiempo de la aplicaci贸n:聽 聽 00000000
聽 Nombre del m贸dulo con errores:聽 聽MSTTSFrontendENU.dll
聽 Versi贸n del m贸dulo con errores:聽2.0.4319.0
聽 Marca de tiempo del m贸dulo con errores:聽 4a5bda68
聽 C贸digo de excepci贸n:聽 聽 c000008e
聽 Desplazamiento de excepci贸n:聽000145b6
聽 Versi贸n del sistema operativo:聽 聽6.1.7601.2.1.0.256.48
聽 Id. de configuraci贸n regional:聽 聽3082
聽 Informaci贸n adicional 1:聽c574
聽 Informaci贸n adicional 2:聽c57486187c219641a7e79574ce67d4fa
聽 Informaci贸n adicional 3:聽a08c
聽 Informaci贸n adicional 4:聽a08c5f63096afa0669f8034b6f47200f

Lea nuestra declaraci贸n de privacidad en l铆nea:
聽 http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0c0a

Si la declaraci贸n de privacidad en l铆nea no est谩 disponible, lea la declaraci贸n de privacidad sin conexi贸n:
聽 C:\Windows\system32\es-ES\erofflps.txt
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Voces
Posted: Fri Oct 25, 2013 11:05 PM

JM,

Es XP ?

Tiene SAPI instalado ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Voces
Posted: Fri Oct 25, 2013 11:36 PM

Es Windows 7 profesional.

驴 Como instalo el SAPI ?

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Static archive 路 New replies & topics via GitHub Discussions