Ele tem o tamanho de ~39 MB, o pacote vem com duas aplicações o RealSpeak e o TextAloud, o real... que é o principal não precisa de ativação, já o text... é necessário um serial para ativá-lo pois se trata de uma apliação comercial para fala de textos longos. OBS: o TextAloud não é obrigatório.
1: Instale o RealSpeak.
2: Vá até o painel de controle do windows, se for wXP procure por fala no modo clássico, se for o WindowsVista procure por Speech Recognition Options, abra-o > no windows xp ele abre automaticamente a janela, já no vista no seu menu lateral esquerdo aparecerá um item chamado "text to speech" clique nele para abrir a janela.
3: No groupbox > Seleção de voz escolha o item ScanSoft Raquel_Full_22kHz.
Faça um teste na caixa de texto abaixo, apague o texto, digite um novo e clique em demonstração de voz. Clique em OK e pronto.
Agora vamos ao que nos interessa:
Abra o delphi e seu projeto, e em uma das units que você implementa suas funções e/ou procedimentos, acrescente este procedimento:
declare "ComObj" em uses.
procedure fala(texto:String);
var f: OLEVariant;
begin
if texto = '' then Exit;
f := CreateOLEObject ('SAPI.SpVoice');
f.Volume := 100;//só é necessário caso queira reduzir ou aumentar o volume
f.Speak(texto,0);
end;
Para que seu programa fale uma mensagem de erro por exemplo, basta chamar o procedimento acima desta maneira.
msg := 'Erro! ao salvar alterações no registro.';
fala(msg);
showmessage(msg);
O dispositivo de fala irá detectar o que está escrito em msg e falar para o usuário.
Pergunta
Eder Moraes
Primeiramente instale um recurso para o Speech do Windows. Você pode baixa esta aplicação em:
RealSpeak
Ele tem o tamanho de ~39 MB, o pacote vem com duas aplicações o RealSpeak e o TextAloud, o real... que é o principal não precisa de ativação, já o text... é necessário um serial para ativá-lo pois se trata de uma apliação comercial para fala de textos longos. OBS: o TextAloud não é obrigatório.
1: Instale o RealSpeak.
2: Vá até o painel de controle do windows, se for wXP procure por fala no modo clássico, se for o WindowsVista procure por Speech Recognition Options, abra-o > no windows xp ele abre automaticamente a janela, já no vista no seu menu lateral esquerdo aparecerá um item chamado "text to speech" clique nele para abrir a janela.
3: No groupbox > Seleção de voz escolha o item ScanSoft Raquel_Full_22kHz.
Faça um teste na caixa de texto abaixo, apague o texto, digite um novo e clique em demonstração de voz. Clique em OK e pronto.
Agora vamos ao que nos interessa:
Abra o delphi e seu projeto, e em uma das units que você implementa suas funções e/ou procedimentos, acrescente este procedimento:
declare "ComObj" em uses.
procedure fala(texto:String); var f: OLEVariant; begin if texto = '' then Exit; f := CreateOLEObject ('SAPI.SpVoice'); f.Volume := 100;//só é necessário caso queira reduzir ou aumentar o volume f.Speak(texto,0); end;Para que seu programa fale uma mensagem de erro por exemplo, basta chamar o procedimento acima desta maneira.O dispositivo de fala irá detectar o que está escrito em msg e falar para o usuário.
OK
Só R$ 0,50
hehehe !
Editado por Jonathan QueirozLink para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.