SpeechSynthesize

[skalogryz]

ok. so Finish for the first "say" came after the second "say" was fired. Unfortunately, it doesn't seem like there's truly reliable way to say which "Finish" came in first. I wonder if OnFinish should be forced (if StopSpeech is called).
The order of calls might be logical way to track it (but there's no warranty for that)

Anyways. Here's the way to make it work (without any extra changes to speechsynthesizer.pas)
If you pressed the "say" for the second time, the device will be still "speaking" at the time OnFinish arrives. Thus it should be ignored. If it's a normal stop IsSpeaking would return false.

Code: [Select]

procedure TForm1.OnFinish(Sender: TObject);
begin
  if not sp.IsSpeaking then begin
    MenuItem3.Enabled:=True;
    MenuItem4.Enabled:=False;
  end;
end; 

Kogs, please let me know of your results.
A) It works
B) Still doesn't work exactly the way I need.
C) Something else.

[kogs]

A) It works

speechsynthesize.pas -> speechsynthesizer.pas

testSpeech4
       |
      \/

ok, ok, ok

kogs

[skalogryz]

Beautiful! I guess now you can finish your application.

[kogs]

...speech synthesis: speechsynthesize.pas: ->...speech synthesis: speechsynthesizer.pas:

"unit1.pas" ->  ...
    Memo1: TMemo;
    MenuItemEdit: TMenuItem;
    MenuItemEditSpeech: TMenuItem;
    MenuItemEditSpeechStart: TMenuItem;
    MenuItemEditSpeechStop: TMenuItem;
   ...

ok

kogs