[Solved]Win7 Sapi Problem

[codeman]

Hello , when i click an image to my program on win7 x32 i get the below error 
(It works fine on WinXP with no errors ..)

Image

Code: [Select]

http://desmond.imageshack.us/Himg39/scaled.php?server=39&filename=errordh.jpg&res=landing


The Code:

Code: [Select]

var
    SpVoice: Variant;
begin
    SpVoice := CreateOleObject('SAPI.SpVoice');
    SpVoice.Speak('hi', 0);



?

[ludob]

That is a known problem with the fpu interrupt mask. See http://stackoverflow.com/questions/3032739/delphi-sapi-text-to-speech (the Update in the bottom of the first post) for the solution. Happens with sapi only on vista and later but the fpu interrupt mask is a regular problem on all windows system when using dll's that use the fpu. Freepascal and Delphi use a different interrupt mask than C and C++ and will catch floating point errors that C/C++ would not handle with exceptions.

[codeman]

Thanks for your help mate. It works now

[BigChimp]

I've created a wiki page with part of the code from this thread and the stackoverflow page.
http://wiki.lazarus.freepascal.org/SAPI

I'd appreciate corrections/additions (anyone can edit the wiki)- it might be useful for other users as well..

Thanks,
BigChimp

[nsunny]

Thanks to BigChimp for the wiki and others for info as well.

I have found another variation of the  code posted on the wiki. The wiki sends a static text ('hi') to SpVoice.Speak() call. But I wanted to send dynamic text to the TTS engine. For example, reading the current time.

First I tried with a string, then many other things (even StringToOleStr) but no luck. But Finally I found a solution. The trick is to create a WideString, instead of a String/AnsiString. Here is a code that reads the current time  :

Code: [Select]

uses ... , comobj;

var
  SavedCW: Word;
  SpVoice: Variant;

  myWideString : WideString;
begin
  SpVoice := CreateOleObject('SAPI.SpVoice');
  // Change FPU interrupt mask to avoid SIGFPE exceptions
  SavedCW := Get8087CW;

  // Store in the WideChar what needs to be read
  myWideString  := 'Hello, the time is ' + TimeToStr(Time);

  try
    Set8087CW(SavedCW or $4);
    // We send our created WideString to Speak() call
    SpVoice.Speak(myWideString, 0);
  finally
    // Restore FPU mask
    Set8087CW(SavedCW);
  end;



[BigChimp]

Nice.
Additions to the wiki are welcome so we keep as much info in one place as possible