Buscar

Aplicação falando em portugues ( voz de mulher)

Código

Procure no Google o arquivo
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.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 15/08/10
Por: Murilo Ferraz De Almeida
Visualizada: 9826 vezes

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