Código
Realspeak-português+brasil+Raquel
è gratis
1º instale
2º Vá em Painel de controle/Fala
3º Selecione como padrão: ScanSoft Raquel_Full_22KHz
Crie um form
coloque COMOBJ, VRIANTS, SYSUTILS na seção USES
Coloque um edit e um botão no form
duplo click no botão
e escreva o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
var
texto : string;
voz: OLEVariant;
begin
texto := edit1.Text;
voz := CreateOLEObject ('SAPI.SpVoice');
voz.Speak (texto, 0);
end;
Compile sua aplicação,
escreva algo no edit e aprete o botão.
Como o ScanSoft não prevê o novo acordo ortográfico da lingua portuguesa, é preciso escrever suas frases com a acentuação grafica antiga, com todos os acentos.
Exemplo: Liqüidificador, Cinqüenta (trema) etc.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009