painel de controle windows

Delphi

09/12/2011

Olá pessoal...

Essa procedure abaixo converte o texto de Memo1 em áudio.

procedure TForm1.Button1Click(Sender: TObject);
var
texto: string;
voz: OLEVariant;
begin
Texto:=Memo1.Text;
voz := CreateOLEObject (SAPI.SpVoice);
voz.Speak(texto, 0);
end;

end.

Seguinte, Se quero mudar o driver de fala, vou ao Menu Iniciar, configurações, Painel de controle, Fala e
seleciono o diver e a velocidade (isso no Windows)

Como faço para fazer isso pelo Delphi?..... Mudar o driver e controlar a velocidade?

Grato pela ajuda
Alexandre

Alexandre

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

09/12/2011

Caracas maluco muito boa pergunta....Vou pesquisar!
GOSTEI 0
Wilson Junior

Wilson Junior

09/12/2011

Deve ter algum registro que deve ser alterado, sío não sei qual é.
GOSTEI 0
Jeferson Zonta

Jeferson Zonta

09/12/2011

O volume é soh acrescentar isso voz.Volume := 100; abaixo do voz := CreateOLEObject(SAPI.SpVoice);
agora o drive não sei..

espero ter ajudado pelo menos um poco att.
GOSTEI 0
Alexandre

Alexandre

09/12/2011

Olá pessoal..

Grato pelas respostas.

Tentei o som desse geito e deu pau.
Tentei tb voz.speed:=100 e tb nao deu.

O problema não está na fonética... Isso resolvi.
O que preciso é fazer o Delphi ir buscar o arquivo de voz sozinho sem
ter que ir lá em Configurações\fala\etc..

Grato pela ajuda
GOSTEI 0
POSTAR