Fórum como identificar se existe uma library instalada no pc? #227293
21/04/2004
0
:)
Salsa
Curtir tópico
+ 0Posts
21/04/2004
Tatuweb
uses ComObj; procedure TForm1.Button1Click (Sender: TObject); var Speech: OLEVariant; begin try Speech := CreateOLEObject (´SAPI.SpVoice´); except on EOLESysError do ShowMessage (´Não é possível iniciar Micro$oft Speech!´); end; end;
Só por curiosidade se, por exemplo, vc quiser que o seu texto seja reproduzido por meio do Micro$oft Speech, bastara adicionar a seguinte linha:
Speech.Speak (´ClubeDelphi: o melhor fórum sobre Delphi!´, 0);
:wink:
Gostei + 0
21/04/2004
Salsa
mas valeuz a ajuda
Gostei + 0
21/04/2004
Tatuweb
O exemplo acima é bem simples mas existe um outro mais completo que mostra como mudar a voz, tom, velocidade e outras coisas mais. Pelo que vi será necessário instalar um componente (open-source) que acompanha o pacote. Dentro do pacote parece ter tres exemplos. Não cheguei a testar mas o endereço para baixar é:
:arrow: [url]http://www.undu.com/LIBS/TextToSpeech.zip[/url]
Se quiser pode ler o artigo (em inglês) pelo link:
:arrow: [url]http://www.undu.com/Articles/990120b.html[/url]
Gostei + 0
21/04/2004
Tatuweb
:arrow: [url]http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=20757[/url]
Gostei + 0
21/04/2004
Salsa
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)