Como fazer o seu Delphi ler textos
Neste artigo veremos como fazer para que nossas aplicações ofereçam recursos como o de ler textos, a pergunta é mas como poderemos fazer tal tarefa? A resposta é bem simples, basta termos instalado no computador o SDK SAPI que pode ser baixado clicando aqui. Após instalar o SDK, no Delphi vá em Component | Import ActiveX Control, como na Figura 1 e selecione a opção: Microsoft Direct Text-to-Speech e clique em Install....
Figura 1 - Importando um controle ActiveX.
Com o controle instalado, um novo componente é adicionado a paleta ActiveX, chamado DirectSS. Veja na Figura 2.
Figura 2 - O componente instalado.
Agora em um nova aplicação adicione os seguintes componentes: 1 Edit, 1 Button (Standard) e 1 DirectSS (ActiveX), limpe a propriedade Text do Edit e configure a propriedade Caption do Button para Falar!, também configure a propriedade name do DirectSS para boca e para pocisione-os de acordo com a Figura 3.
Figura 3 - O formulário da aplicação.
No evento OnClick do Button insira a seguinte linha de código:
Boca.Speak(Edit1.Text);
Pronto! Execute a aplicação, escreva algo no Edit clique no botão e veja o resultado.
Uma ótima utilização deste componente, foi no projeto telefone para surdo e mudo, onde fui o responsável por desenvolver o software que fizesse o reconhecimento da fala e respondesse utilizando este recurso. Este foi um caso de uso, mas pode ser utilizado em diversos tipos de aplicações.
Abraços e até a próxima!