判断TTS语音朗读是否结束

最新推荐文章于 2023-02-08 11:46:48 发布
最新推荐文章于 2023-02-08 11:46:48 发布
阅读量5.7k 收藏 2
点赞数 1
分类专栏： Delphi 文章标签： delphi Delphi DELPHI tts TTS 语音朗读
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cyistudio/article/details/8568799
版权

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

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

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

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


procedure TForm1.Timer1Ti
最低0.47元/天 解锁文章
cyistudio
关注
  • 1
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
android 中TextToSpeech的用法
CBirdLG的专栏
10-10 1万+
目前只支持5种语言，分别是English、 French 、 German 、 Italian 和 Spanish.系统要求为android 1.6以上直接上代码啦： public class TTSActivity extends Activity implements TextToSpeech.OnInitListener { private static final String TAG = "TextToSpeechDemo";private TextToSpeech mTts;//首
DELPHI基于MSTTS语音控制的三种办法(源码和控件)
08-09
基于MSTTS的DELPHI例程网上有很多没控件或不能说明问题。本例程特提供控价包和安装办法，根据不同控件实现文本的语音朗读，希望能抛砖引玉，给初学者或其他做语音的开发者提供些参考。环境为D7+Neospeech+MsTTS5.1，从调试来看个人觉得TSpvoice控件比较好，简单实用。TTxtToSpeech有变声和演示嘴型的功能。
Android TextToSpeech实现文字转语音，进行播报
gyf651194544的博客
02-08 932
Android 文字转语音，利用自带的texttospeech配合语音引擎完成
TextToSpeech文本转语音，从开始说话到结束的监听
xiaoyifeishuang1的博客
01-15 3970
最近需要做一些文本转语音的东西，然后自己查找了 各种方法 。然后自己整理了下。TTS文字转语音，Google原生的不支持中文，如果我们需要他支持中文，那么需要添加相关语音引擎。安装好了之后，在手机设置里面设置使用即可。一般使用的都是科大讯飞的语音引擎。 在init方法里面初始化TTP： /** * 初始化语音播放 */ textToSpeech=new TextToSpeech(...
Delphi语音朗读程序
11-24
Delphi语音朗读程序是一种基于Delphi编程环境开发的应用，用于将文本转化为语音输出，方便用户听觉上获取信息。这种技术通常被称为TTS（Text-to-Speech）技术，是人机交互领域的一个重要组成部分，尤其对视力障碍者...
1350多个精品易语言模块
07-26
中文语音朗读模块.ec 二进制到三十六进制.ec 互 联网扩展模块1.1.ec 互联网扩展模块1[1].1.ec 五笔编码查询模块.ec 代码编辑器部分模块.ec 仿 vista截图.ec 仿WinXP窗口v3.1版.ec 仿XP界面3.0特别版模块 3.0.ec 仿XP...
易语言模块914个
03-12
判断XP外观支持文件是否存在.ec 判断字符模块.ec 判断数据库.ec 判断进程是否存在的模块.ec 到文本.ec 办公组件密码管理模块.ec 功能集一模块 1.0.ec 功能集一模块.ec 加入好友.ec 加密.ec 加密解密文本....
delphi开发的TTS语音demo
05-09
delphi开发的TTS语音demo,使用前下载我上传的TTS语音驱动，安装好之后注册DLL就行了
Delphi中英文语音朗读程序（含控件及源码）调试OK
06-20
Delphi中英文语音朗读程序（控件及源码）调试OK 先安装Microsoft Speech SDK 5.1，这是微软的声音支持控件 前面安装不多做介绍，一步一步安装即可 安装完成后，需要加载Delphi控件 在Delphi IDE中选择菜单Project，Import Type Library—点击按钮Add(C:\Program Files\Common Files\Microsoft Shared\Speech\ sapi.dll)—点击按钮Install-在Install对话框中点击按钮OK—在Confirm对话框中点击按钮Yes—在对话框中点击按钮OK。至此，共19个控件被添加到Delphi组件板ActiveX页上。其中spvoice控件是我们要使用的 Microsoft Speech SDK 5.1下载地址：http://intraweb.5d6d.com/thread-280-1-1.html SpVoice详解 属性 描述 AlertBoundary 取得或设置停顿分界线。 AllowAudioOutputFormatChangesOnNextSet 设置是否允许声音自动调整到合适状态以适应其音频输出。 AudioOutput .取得或设置当前声音使用的的音频输出对象 AudioOutputStream 取得或设置当前声音使用的的音频输出流对象。 EventInterests 取得或设置当前声音返回的事件类型。 Priority 取得或设置声音的优先级。 Rate 取得或设置阅读的速度。 Status 返回一个ISpeechVoiceStatus 对象用于显示当前阅读和事件的状态 SynchronousSpeakTimeout 取得或设置一个时间间隔，用于标识多久未获得一个输出设备后，一个同步的Speak 和SpeakStream将终止，以毫秒计算。 Voice 取得或设置发音对象。 Volume 取得或设置声音的大小 。 方法 描述 DisplayUI 是否在控制面板中展示详细设置。 GetAudioOutputs 返回一个可用的音频输出标记。 GetVoices 返回一个可用的发音对象。 IsUISupported 决定是否能通过控制棉板的音频设置来控制。 Pause 暂停朗读。. Resume 恢复暂停，继续播放。 Skip 在当前输入的文本流中向前或向后跳一定距离再播放。 Speak 阅读一个字符串。 SpeakCompleteEvent 得到一个朗读完毕的时间句柄 SpeakStream 朗读一个文本流或一个声音文件。 WaitUntilDone 阻塞进程，直到声音播放完毕或者超时。
Delphi 实现简易语音发音（基于TTS方式）
阳光小飞鱼's Blog
03-22 1987
uses Comobj;      procedure TForm1.Button1Click(Sender: TObject);    var      voice: OLEVariant;    begin      voice := CreateOLEObject('SAPI.SpVoice');      voice.Speak('Hello World!', 0);   
delphi读音_Delphi 实现简易语音发音（基于TTS方式）
weixin_39517560的博客
12-20 650
uses Comobj;procedure TForm1.Button1Click(Sender: TObject);varvoice: OLEVariant;beginvoice := CreateOLEObject('SAPI.SpVoice');voice.Speak('Hello World!', 0);end;Delphi_TTS_1unitUnit1;interfaceusesWind...
如何用delphi语言实现结束指定进程的功能
hbqjzx的专栏
06-14 972
如何用delphi语言实现结束指定进程的功能做一个防止聊天的软件，禁止QQ进程。        uses Tlhelp32;function KillTask(ExeFileName:string):integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL
Delphi 基于TTS方式语音朗读
我是谁
02-11 5970
uses Comobj; procedure TTS(TempStr: String); var   voice: OLEVariant; begin   voice := CreateOLEObject('SAPI.SpVoice');   voice.Speak(TempStr, 0); end;
ie浏览器语音播报功能实现
hijunmeng的专栏
10-31 3442
文章目录ie浏览器语音播报spvoice详细接口示例代码异步播报语音播报完毕事件参考 ie浏览器语音播报 在ie下用 SpVoice实现语音播报功能 spvoice详细接口 SpVoice Interface (SAPI 5.3) | Microsoft Docs 示例代码 <!DOCTYPE html> <html> <hea
tts 检测说话完毕
点点滴滴
01-12 242
public class TTSActivity extends Activity implements OnUtteranceCompletedListener, ... { private TextToSpeech mTts; ........... private void speak(String text) {    if(text != null) {       Has...
探究 TextToSpeech 语音播报中的speak与setOnUtteranceCompletedListener方法以及相应的替换方法
u013034335的博客
08-17 3573
     最近在做一个有关于语音播报的功能，在安卓原生TextToSpeech 中可以支持文字转语音的语音播报功能，对于英文的文字，应该都会支持转成语音，但是对于中文的文字，你手机中不一定有中文语言包，所以不一定可以转成中文语音。据研究现在的大部分机型都支持中文，如华为，小米之类的手机中的TTS都是“科大讯飞”或者“度秘”的TTS,这类的TTS是可以支持中文的，具体可以到设置中搜索TTS查看，我就...
微软tts语音引擎实现文本朗读代码
最新发布
05-02
微软TTS语音引擎可以通过编写代码实现文本朗读功能。具体步骤如下： 1.先下载安装Microsoft Speech SDK。 2.在代码中引用Microsoft Speech SDK中的对象库。 3.创建SpVoice对象。 4.使用SpVoice对象的Speak方法，将需要朗读的文本传递给该方法。 5.设置朗读语音的声音、语速等属性，可以使用SpVoice对象的SetProperty方法进行设置。 6.最后，执行程序即可朗读文本。 以下是一个实现朗读“Hello world”的示例代码： Dim Sapi Set Sapi = CreateObject("SAPI.SpVoice") Sapi.Speak "Hello world." Sapi.Rate = -2 '语速：-10到10，默认值为0，-10为最慢 Sapi.Volume = 100 '音量：0到100,默认值为100 该代码可以直接在Windows操作系统的VBScript环境中执行，也可以将其嵌入到其他编程语言的程序中，实现文本朗读功能。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值