Hlasový vstup / výstup – Delphi – Fórum – Programujte.com

Jak zapracovat Hlasový vstup / výstup do programu v Delphi?
Už jste to někdo dělal? Jedná se mi o nějakou obyč hlasovou knihovnu
z Win (asi Microsoft Speech SDK 5.1)

myslim ze nejak takto

var

  hlas: OLEVariant;

begin

  hlas := CreateOLEObject('SAPI.SpVoice');

  hlas.Speak('Hello World!', 0);

end;

Tak základní naťuknutí jsem našel na zive.cz.
http://www.zive.cz/default.aspx?article=115316

To janc1 :

Ano, o fous. : -)

Naimportuj TLB SpeachLib_TLB a potom mozes pristupovat aj cez Interface, napr. (ale nie je to ziadna slava :)

uses

  ..., SpeachLib_TLB;

  ...

    FSpeechVoice: ISpeechVoice; 

    ...

  FSpeechVoice := CoSpVoice.Create;

  try // FINALLY

    if (CLSIDFromProgID('SAPI.SpVoice', CLSID) = S_OK)  // je API integrovane???

      FSpeechVoice.Speak(Text, {Flags}0);

  finally 

    FSpeechVoice := nil; // i tak by sa uvolnil (je to Interface)

  end; // FINALLY

  if (CLSIDFromProgID('SAPI.SpVoice', CLSID) = S_OK)