Voces

[Antonio Linares]

Listando las voces disponibles

Code: Select all  Expand view

#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

[Antonio Linares]

Escuchando las descripciones:

Code: Select all  Expand view

// 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

[Antonio Linares]

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

[Antonio Linares]

http://www.aksel.com/whitepapers/sapi.htm

[Antonio Linares]

Para hacerle leer un texto externo:

Code: Select all  Expand view

#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
 

[Antonio Linares]

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

[Antonio Linares]

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: Select all  Expand view

<input type="text" x-webkit-speech />

[Antonio Linares]

Convertir un texto en un archivo wav de sonido:

Code: Select all  Expand view

#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

[acuellar]

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

[Antonio Linares]

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() )

[acuellar]

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

[Antonio Linares]

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...

[JmGarcia]

Me dan problemas en la ejecución estos:

oVoice:Speak( "D:\Programa\Pruebas\Voces.txt", 4 ) // 4 significa que es un fichero externo

Code: Select all  Expand view

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: Select all  Expand view

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: Select all  Expand view

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

[Antonio Linares]

JM,

Es XP ?

Tiene SAPI instalado ?

[JmGarcia]

Es Windows 7 profesional.

¿ Como instalo el SAPI ?