Delphi7 uses speech sdk5.1 to implement TTS

I like to read novels, but I cannot read novels at work.

I had a reading software, but I suddenly couldn't use it a year ago. I don't know if it was my computer problem. I used the spvoice of the Windows speech SDK to test whether there is sound.

So I decided to do it myself.

After installing the Windows speech SDK 5.1, I can use progect-improt type libary to import several controls to ActiveX.

Real voice Library: http://www.hydcd.com/softdown.htm#no3

I didn't see any other things. I mainly used spvoice.

The value range between spvocie. Rate-10 and 10 controls the language speed.

Spvoice. Volume 0 .. 100 volume control

Spvoice. Voice ispeechobjecttoken you can use getvoice to obtain ispeechobjecttokens, get all the available voice libraries of the local machine, and set to use the corresponding idea library.

To read aloud, use spvoice. Speak ('...', svsflagsasync );

I use the onstreamend event of spvoice to continue reading the next line of memo.

Simple to use, I feel pretty good

File address: http://download.csdn.net/detail/jinshaopu/5071464

Other things used

Setwindowpos (form1.handle, hwnd_topmost, swp_nomove or swp_nosize) form top

Scroll the scroll bar of memo. Perform (em_scroll, x, y) to a specific row.

Currentline: = memo. Perform (EM _ linefromchar,); get the current cursor row number

Memo. caretpos: = tpoint (X, Y) is set at the cursor position but does not scroll