Fazer a voz do Delphi parar de falar

[VictorMatheus]

Como fazer para aquela foz que fala no delphi parar de falar, é porque quando ela começa a falar o sistema todo fica parado esperando ela terminar de falar. Se não tiver como fazer ela parar de falar gostaria de alguma forma que ela continuasse falando mas pelo menos o sistema continuasse funcionando corretamente.

[Visitante: Rogerio Candinho]

Boa noite fera. a resposta a sua pergunta esta ai.

var

F_Menu: TF_Menu;

var Voz: OleVariant;

procedure TF_Menu.BtnIniciarClick(Sender: TObject);

begin

Voz:= CreateOleObject('sapi.spvoice');

if (edit1.text<>'') then

begin

voz.speak(edit1.text,1);

end;

end;

procedure TF_Menu.BtnPararClick(Sender: TObject);

begin

Voz:= CreateOleObject('sapi.spvoice');

if (edit1.text<>'') then

begin

voz.speak(' ');

end;

end;

Custei a descobrir não encontrei resposta em nenhum site.

A diferenca esta aqui voz.speak(edit1.text,1); e nao voz.speak(edit1.text,0); que trava o sistema

Boa programação se tiver alguma dica referente a captura de voz no delphi passa ai.

Rogério Candinho

[malepobox]

Olá amigos...

Aproveitando a oportunidade, gostaria de saber se e podem ajudar.

Para ler o texto, o default do windows é o SAM (inglês).

Achei um software para o português chamado Raquel.... Instalei e beleza.

Para setá-lo, preciso fazer manualmente.... Menu Iniciar, Configurações, Painel de Controle e Fala. Aqui abre uma tela no windows onde seto o Raquel.

Gostaria de colocar 2 botões para fazer isso via Delphi, mas não tenho a mínima ideia desse código.... Alguém poderia ajudar?

Grato