Threaded Mode | Linear Mode

***drdebcol*** · 09-25-2009, 06:33 AM

This is tut that describes how to use Microsoft Speech API in Delphi application.
This option is enabled for a long time, and it is pretty simple to use it !
I used this function when you Enter with mouse in one of labels in this program : http://www.pro9ramming.com/file-info-by-...t-274.html
Okay, let's start, first of all, you need to register library, in "uses" :

Code:

uses Comobj;

Now after we registered or lib, we need to make a procedure for speech :

Code:

procedure speak(s:string);

var

  voice: OLEVariant;

begin

  voice := CreateOLEObject('SAPI.SpVoice');

  voice.Speak(s, 0);

end;

As you can see you have in argument "s" and out is voice !
Now you just need to call that procedure, let's say you have a button and edit in which is string you need your program to say :

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

  speak(edit1.text);

end;

That's all, you have attachment with source and exe file, so you can play with it and include it in your programs.
P.S. It is silly how it telly "bad" words . . .

kcscm · 11-19-2009, 04:05 PM

intresting dont know about this

thakns for share dude +1

***drdebcol*** · 11-19-2009, 08:10 PM

(11-19-2009 04:05 PM)kcscm Wrote: intresting dont know about this

thakns for share dude +1

Well that is the least i can do !