Buscar

faça seu delphi falar

Código

\Abra o delphi e nele coloque um Botão e um Edit. \No OnClick do botão coloque esse código:

var
  voz: OLEVariant;
begin
  voz := CreateOLEObject('SAPI.SpVoice');
  if (Edit1.Text <> 'Digite seu texto aqui') and (Edit1.Text <> '') then
    voz.Speak(Edit1.Text, 0); //o sistema vai falar o texto digitado no Edit1
end;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 24/02/10
Por: Felipe
Visualizada: 4298 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009