Speaking Text

[Blod]

Hi,

I came upon this code example when actually looking for something else.


Let the computer speak! (Microsoft Voice API)
- Add a Button and Edit box
- Add this uses statement: uses Comobj;
- Add this coding for the button (the program will read the contents of Edit1):

procedure TForm1.Button1Click(Sender: TObject);
var
CompVoice : OLEVariant;
sText : String;
begin
sText := Edit1.Text;
CompVoice := CreateOLEObject('SAPI.SpVoice');
CompVoice.Speak(sText, 0);
end;

It works on Memos as well as edits and speaks out the text contained in these controls.
What I'd like to know is whether there is anyway of controlling the speed of the speaking voice etc?

Thanks

Blod

[geowink]

And is there a way to change the voice itself? Female, Southern, etc.

George

[Kambiz]

All speaking parameters are configurable.
Here is the link to SpVoice interface: http://msdn.microsoft.com/en-us/library/ms723602%28v=vs.85%29.aspx

[Blod]

Thanks for that

Blod

[Blod]

Hi,

Regarding my post on speech code for use with Delphi.

It works fine in my Delphi 5 IDE but not as an executable.

I googled it and found that somebody else had the same problem.

He reported that it worked in the IDE and also as an executable in XP but not in Vista.
How can Microsoft have files to support it in XP but not in Vista which replaced XP ?
Are they trying to wind us up? (g)

Any solutions gratefully received.

Blod

[Blod]

Hi,

Further on this subject

Somebody had kindly but erroneously advised downloading and installing

Speechsdk51.exe at 67mb from the Microsoft' Website.
When I downloaded and installed Speechdsk51msm.exe at 131mb I was able

to run the program as an executable in Vista.
That said I can hardly ask my Vista using users to download and install a 131mb file just to use my 400k program.
I don't know if Microsoft has a motto, perhaps I can suggest "Why be Helpful?"

Blod