判断TTS语音朗读是否结束

判断TTS语音朗读是否结束

分类： Delphi 2013-02-04 14:38 338人阅读 评论(0) 收藏 举报

delphiDelphiDELPHIttsTTS语音朗读

最近玩语音朗读的时候比较多，也在两个软件中应用过。其实大多语音朗读的代码还是很好写的，只是像判断TTS语音朗读是否结束或者当前语音引擎的状态稍微要查找一下参数。这里记录一下：

原本在网上查到的一条关于判断TTS朗读完成事件的代码WaitForSingleObject(spvoice.SpeakCompleteEvent, 200);在delphi 中使用时并没有达到原本看似应该有的功效，测试时发现这东西只是在TTS合成朗读流后就返回了，说白了就是TTS刚要朗读，就被判定成朗读完成了。仔细查找了一下spvoice的参数，里面有个statdus属性，这个返回的对象中可以获取一些有用的属性参数如：RunningState（运行状态）, inputWordLegth（朗读句子所有词汇长度总和）,inputWordPosition（当前朗读词汇的末位置）……

其中RunningState有三个状态：    朗读文本被全部渲染合成后返回 SRSEDone = 1    正在朗读中会返回 SRSEIsSpeaking = 2 暂停朗读时会返回0

利用这三个属性就可以判断朗读是否已经完成，加两个计时器，朗读句子开始时，启动判断朗读状态的计时器，完成后再重新激活计时器进行朗读：

[delphi] view plaincopy

1. procedure TForm1.Timer1Timer(Sender: TObject);  
2. begin  
3. timer1.Enabled:=false;  
4. learnTTS.Speak('this is voa explorations in special english!',1);  
5. WaitForSingleObject(learnTTS.SpeakCompleteEvent, 200);  
6. timer2.Enabled:=true;  
7. end;  
8.   
9. procedure TForm1.Timer2Timer(Sender: TObject);  
10. begin  
11. edit1.Text:=inttostr(learnTTS.Status.RunningState);  
12. if learnTTS.Status.RunningState=1 then //朗读完成后会返回1  
13. timer1.Enabled:=true;  
14. end;