Ejemplo de lenguaje Delphi usando el motor de voz Microsoft TTS

Microsoft sigue el estándar COM y proporciona un conjunto de API de voz para programar MSTTS. Para utilizar este conjunto de API en un programa, debe asegurarse de que el sistema tenga instalados los paquetes de software MSTTS y Spchapi.

Se puede hacer referencia a la API de voz en Delphi como una biblioteca de tipos. El método es: abra la Biblioteca de tipos de importación en el menú Proyecto, haga clic en "Agregar" para agregar el archivo Vtxauto.tlb en Windows\Speech. directorio y haga clic en Importar de Delphi. El archivo VTxtAuto-TLB.pas se generará en el directorio, que define la unidad VTxtAuto-TLB y la agrega al miembro Usos. Diseñe la ventana como se muestra en la Figura 2 y defina variables globales:

var VoTxt: IVTxtAuto

Luego agregue el evento OnCreate del formulario:

VoTxt; : =CoVTxtAuto_.Create;

VoTxt.Register(′′,′Speech Test′);{Register}

El código del botón "Leer" es:

VoTxt .Speak(Memo1.Lines.Text, 10); {Leer en voz alta}

El código del botón "Detener" es:

VoTxt.StopSpeaking; p>

En este punto, la aplicación tiene una función de lectura y 10 significa usar un tono normal. Con las propiedades y métodos de VoTxt, también podemos controlar la velocidad y el tono de lectura, e implementar funciones como pausar y saltar frases.