Como fazer o seu Delphi ler textos

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja como fazer o Delphi ler textos, neste artigo de Danilo Bertholini.

 

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!

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?