Speech in Russian

← →
Mohamed (2003-10-03 20:30) [0]

Есть в Windows XP функция в Control Panel которы называется Speech!
При печати любая слова в данная строчка и нажать Enter начинает Windows читать то что написано в слух!
Как можно перехватить этой функции, но при печате слова в TMemo или в TRichEdit, и потом при нажатия Button1, потом начинает Windows читать то что написано в слух!!
Please some body help!!!!.

← →
me (2003-10-03 21:02) [1]

Нужно использовать Microsoft Speech SDK:
http://www.microsoft.com/speech/techinfo/apioverview/

← →
Mohamed (2003-10-05 01:20) [2]

← →
me (2003-10-06 13:47) [3]

У MS есть примеры на VB, их очень легко перенести по Delphi

← →
iWorm (2003-10-10 03:33) [4]

не знаю как по-русски, а если по-английски надо поставить активикс компонент TextToSpeech, вроде. В икспи и 2000 такая программа должна работать у всех...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls,
OleCtrls, HTTSLib_TLB;

type
TForm1 = class(TForm)
Button1: TButton;
TextToSpeech1: TTextToSpeech;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
TextToSpeech1.Speak("Please some body help!!!!");
end;

end.

правда глючные они...

с уважением Иван Семенов...

← →
Ketmar (2003-10-10 16:03) [5]

>iWorm © (10.10.03 03:33) [4]
"не путай народ" (ц)
см. [1]. плюс -- надо поставить "словари" для русского языка. в Сети находятся без проблем.

Speech in Russian Найти похожие ветки