24 de noviembre de 2013

Enumerar las voces instaladas en la PC

Con el siguiente código se pueden enumerar y escuchar las distintas voces instaladas en la PC a traves de la API de Microsoft Speech (SAPI).
LOCAL lnVoces, lcVoz, ln, lc
LOCAL loVoz AS "SAPI.SpVoice"
m.loVoz = CREATEOBJECT("SAPI.SpVoice")
m.lnVoces = m.loVoz.GetVoices().COUNT
FOR m.ln = 1 TO m.lnVoces
  m.lcVoz = m.loVoz.GetVoices().ITEM(ln-1).GetDescription
  m.loVoz.Voice = m.loVoz.GetVoices().ITEM(ln-1)
  m.lc = "Voz número " + TRANSFORM(m.ln) + " de " + TRANSFORM(m.lnVoces) + ": " + m.lcVoz
  ? m.lc
  m.loVoz.Speak(m.lc)
ENDFOR

No hay comentarios. :

Publicar un comentario