воспроизведение из Едита

[myxosran]

народ, помогите с воспроизведением текста из TEdit с помощью speechapi или другой голосовой движок.

[Terran]

Используя компонент Speech можно воспроизвести текст так:

Procedure TfrmMain.Button2Click(Sender: TObject);
Begin
Speech.Text.Clear;
Speech.Text.Add(Edit1.Text);
Speech.Speak;
End;

Скачать сам компонент и демки к нему можно здесь: http://programmersforum.ru/showthread.php?t=54689

[raxp]

дополню... для русского вам также нужен будет языковый движок TTS3000 (2.8МВ) или любой другой.

для работы с DirectSS подключаете uses ACTIVEVOICEPROJECTLib_TLB после установки spchapi (824кБ) и импорта ActiveX... воспроизводить так:

var dss: TDirectSS;
begin
 dss.Initialized:= 0;
 with dss do begin
  pitch:= 270;
  speed:= 180;
  LanguageID($409);
  Speak('111')
 end

если будете работать из консоли или с невизуальной частью, перед созданием компонента CoInitialize(nil) и CoUninitialize по-завершении.


upd
-------
дополню еще ...порылся тут в старых архивах, откопал утилитку озвучки буфера обмена (см. статью) и текста находящегося под курсором (по технологии DirectUI)... обязательное условие - наличие движка TTS3000