delphi7用speech sdk5.1实现tts
自己喜欢看小说，但是上班的时候不能看不是。
原来有个朗读软件但是年前突然不能用了，不知道是不是我的电脑问题。我用windows speech sdk的spvoice做了个测试程度还是有声音的。
所以决定自己做个
我用的windows speech sdk 5.1安装之后用progect－improt type libary就可以导入好几个控件到activex上。
真人语音库：http://www.hydcd.com/softdown.htm#no3
其他的我也没有看 主要就是用spvoice
spvocie.rate －10到10之间取值 控制语速
spvoice.volume 0..100 控制音量
spvoice.voice ispeechobjecttoken 使用getvoice可以获得ispeechobjecttokens，得到本机所有的可用语音库，设定来使用相应的主意库
朗读就是用spvoice.speak('...............',SVSFlagsAsync);
我spvoice的onstreamend事件来继续读取memo下一行。
简单的用，感觉还不错
文件地址：http://download.csdn.net/detail/jinshaopu/5071464
用到的其他东西
SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)窗体置顶
memo.perform(EM_SCROLL,x,y)滚动条的滚动到特定行
CurrentLine:=memo。Perform(em_ LineFromChar,0,0);获取当前光标行号
memo.CaretPos:=tpoint(x,y)设定在光标的位置但是不会滚动