Faça o delphi falar

Aprendendo a fazer o Delphi falar

By Daniel Inojosa
Eng. De Software __________________ [e-mail] Capitulo 1 - Os Ingredientes:
Nesse exemplo vou utilizar o delphi 2007 for win32. Vamos precisar de um aplicativo para modificar a voz padrão do Windows XP para português. Esse aplicativo você vai encontrar no link abaixo: >> http://www.megaupload.com/pt/?d=O122HOFQ e dê dois cliques em “FALA”

Capitulo 4 - Desenvolvendo a aplicação:
Nesse capitulo vou mostrar como fazer o sistema falar, depois você vai utilizar como bem entender. Crie um novo projeto do tipo: VCL Forms Application – Delphi for Win32

Monte o seu Form como o da imagem abaixo, utilizando os componentes da paleta “Standard”.

Edit1

Modifique a propriedade “Text” para: Digite seu texto aqui

CheckBox1

Modifique a propriedade “Caption” para: Ouvir a mensagem do sistema E modifique a propriedade “TabOrder” para: 0 (zero)

Button1

Modifique a propriedade “Caption” para: Falar

Seu Form deve ficar como o da imagem abaixo:

Salve seu projeto e vamos começar a codificar.

Capitulo 5 - Codificando o projeto:
Você deve dar um “uses” na biblioteca “ComObj”, como vemos na imagem abaixo:

No Evento OnClick do botão “Falar” você deve colocar o seguinte código: procedure TForm1.Button1Click(Sender: TObject); var voz: OLEVariant; begin voz := CreateOLEObject ('SAPI.SpVoice'); if CheckBox1.Checked then begin //Digite sua propria mensagem. voz.Speak('O Projeto foi desenvolvido por, Daniel Inojosa'); end else if (Edit1.Text'Digite seu texto aqui') and (Edit1.Text '') then begin voz.Speak(Edit1.Text,0); //o sistema vai falar o texto digitado no Edit1 end; end; O código deve ficar como a imagem abaixo:

Salve seu projeto e Rode o projeto clicando em F9

Pronto seu projeto esta funcionando e falando, agora use sua criatividade para dar uma aplicação que possa lhe render uma venda ou ate mesmo uma promoção em sua empresa.

Boa sorte e ate a próxima.

Em caso