机读文本，文本转语音到文件wav音频时间长度获取

雾削木

在使用机读文本，文本到语音和输出声音文件，时用到；
机读文本到语音可以用等待超时参数控制返回，但是因为等待超时会阻塞主线程的执行，导致标签反馈事件被延迟处理，所以最好不要同时使用超时等待和反馈标签。
而默认语音在后台线程播放，不影响程序执行。
而在上一次语音播放完毕之前，再次播放，则会等待上次播放完再播放。
此时可以使用停止发音，中断上一次发音。
下面为具体参数介绍：

  

机读文本.停止发音 ()
机读文本.文本到语音 (0, 编辑框1.内容, , )
参数名称为“等待超时”，数据类型为“整数型（int）”，所处语句为“文本到语音”。注明：如果大于0，本方法将等待直到语音输出完毕或超时才返回；如果小于0，表示不设超时时间，等待直到语音输出完毕；如果等于0，或参数被省略，本方法将在启动语音输出后立刻返回，不等待语音输出完毕（语音在后台线程播放，不影响程序执行）。单位为毫秒。
参数名称为“事件反馈标签”，数据类型为“标签（Label）”，所处语句为“文本到语音”。注明：如果提供了本参数，可通过该标签的“反馈事件”得到语音输出过程中的相关通知。反馈事件的第一个参数指定了通知类型：1: 开始播放语音；2: 结束播放语音。注意1：如果与上一次调用本方法指定的不是同一个标签，会导致之前的标签不再接收通知。注意2：因为等待超时会阻塞主线程的执行，导致标签反馈事件被延迟处理，所以最好不要同时使用超时等待和反馈标签。

i支持库列表	支持库注释
ESpeechEngine	文本语音转换支持库

.版本 2<br /> .支持库 ESpeechEngine<br /> <br /> 机读文本.停止发音 ()<br /> 机读文本.文本到语音 (0, 编辑框1.内容, , )<br /> <br />     参数名称为“等待超时”，数据类型为“整数型（int）”，所处语句为“文本到语音”。注明：如果大于0，本方法将等待直到语音输出完毕或超时才返回；如果小于0，表示不设超时时间，等待直到语音输出完毕；如果等于0，或参数被省略，本方法将在启动语音输出后立刻返回，不等待语音输出完毕（语音在后台线程播放，不影响程序执行）。单位为毫秒。<br /> <br /> <br />     参数名称为“事件反馈标签”，数据类型为“标签（Label）”，所处语句为“文本到语音”。注明：如果提供了本参数，可通过该标签的“反馈事件”得到语音输出过程中的相关通知。反馈事件的第一个参数指定了通知类型：1: 开始播放语音；2: 结束播放语音。注意1：如果与上一次调用本方法指定的不是同一个标签，会导致之前的标签不再接收通知。注意2：因为等待超时会阻塞主线程的执行，导致标签反馈事件被延迟处理，所以最好不要同时使用超时等待和反馈标签。

输出声音到文件则可以根据文件获取音频时间，具体计算如下：
文件偏移量1C位置为字节速率
2A位置为数据大小
总时间=数据大小÷字节速率

  

子程序名	返回值类型	公开	备 注
取音频时间	小数型		返回小数，时间单位s，失败返回0
参数名	类 型	参考	可空	数组	备 注
文件名	文本型				wav

变量名	类 型	静态	数组	备 注
id	整数型
speed	长整数型
data	长整数型
time	小数型

id ＝ 打开文件 (文件名, #读写, #无限制 )
如果真 (id ＝ 0)
' 信息框 (“文件不存在或打开失败！”, 0, , )
返回 (0)
移动读写位置 (id, #文件首, 28)  ' 字节速率 1C
speed ＝ 取字节集数据 (读入字节集 (id, 4), #长整数型, )
移动读写位置 (id, #文件首, 42)  ' 数据大小 2A
data ＝ 取字节集数据 (读入字节集 (id, 4), #长整数型, )
time ＝ data ÷ speed  ' s
关闭文件 (id)
返回 (time)

.版本 2<br /> <br /> .子程序 取音频时间, 小数型, 公开, 返回小数，时间单位s，失败返回0<br /> .参数 文件名, 文本型, , wav<br /> .局部变量 id, 整数型<br /> .局部变量 speed, 长整数型<br /> .局部变量 data, 长整数型<br /> .局部变量 time, 小数型<br /> <br /> id ＝ 打开文件 (文件名, #读写, #无限制)<br /> .如果真 (id ＝ 0)<br />     ' 信息框 (“文件不存在或打开失败！”, 0, , )<br />     返回 (0)<br /> .如果真结束<br /> 移动读写位置 (id, #文件首, 28)  ' 字节速率 1C<br /> speed ＝ 取字节集数据 (读入字节集 (id, 4), #长整数型, )<br /> 移动读写位置 (id, #文件首, 42)  ' 数据大小 2A<br /> data ＝ 取字节集数据 (读入字节集 (id, 4), #长整数型, )<br /> time ＝ data ÷ speed  ' s<br /> 关闭文件 (id)<br /> 返回 (time)

312839751

学习一下怎么获取wav长度，感谢分享

kyo9766

学习一下怎么获取wav长度，感谢分享

jzc123

999999999999999999

bianyuan456

已经顶贴，感谢您对论坛的支持！

ZHuanR

新技能已get√

wh1234567

感谢分享！

qwe111qwe

感谢分享！！！！！

hezeyu

感谢分享！！！！！！！！！

year1970

感谢分享