BASS播放问题

liujielan

软件是文字转语音用的，语音播放用的BASS模块

有时候软件莫名无声了，停止工作 在 启动工作 又有了；（是什么乱七八糟的原因不管他了）

有什么简单有效的办法来知道软件这时候没声音了吗？
就是说我不用管他什么原因，也不用修复，我只想知道这个时候没声音了。

10秒检测一次，如果没声音了  直接执行 停止工作 在执行 启动工作 子程序

尛龍科技

请贴出你的代码来看看

liujielan

尛龍科技 发表于 2025-1-12 23:50
请贴出你的代码来看看

不用管我代码呢 bass方法应该很多 用频谱都能判断是否停止了吧

尛龍科技

liujielan 发表于 2025-1-13 00:07
不用管我代码呢 bass方法应该很多 用频谱都能判断是否停止了吧

音量 ＝ BASS_ChannelGetLevel (音频通道)
音量只要不=0 就是有声音

liujielan

  

子程序名	返回值类型	公开	备 注
_按钮_工作_被单击

判断 (按钮_工作.标题 ＝ “开始工作”)
配置_保存_易语言组件 (窗口_主窗口, 取运行目录 () ＋ “\other\Config_Window.ini”, , , , )
按钮_工作.标题 ＝ “停止工作”
播放线程句柄 ＝ 线程_启动 (&播放线程, , )
关键词发音句柄 ＝ 线程_启动 (&关键词发音线程, , )
时钟3.时钟周期 ＝ 到数值 (编辑框_监控周期.内容) × 1000
启动线程 (&开始工作, , )
按钮_工作.标题 ＝ “开始工作”
时钟3.时钟周期 ＝ 0
线程_销毁 (播放线程句柄)
线程_销毁 (关键词发音句柄)
' 线程_销毁 (监控Log句柄)
' bass.停止播放 (音效句柄)
清除数组 (播放队列)
清除数组 (关键词队列)
bass.销毁音效 (音效句柄)
时钟2.时钟周期 ＝ 0

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮_工作_被单击<br /> <br /> .判断开始 (按钮_工作.标题 ＝ “开始工作”)<br />     配置_保存_易语言组件 (窗口_主窗口, 取运行目录 () ＋ “\other\Config_Window.ini”, , , , )<br />     按钮_工作.标题 ＝ “停止工作”<br />     播放线程句柄 ＝ 线程_启动 (&播放线程, , )<br />     关键词发音句柄 ＝ 线程_启动 (&关键词发音线程, , )<br />     时钟3.时钟周期 ＝ 到数值 (编辑框_监控周期.内容) × 1000<br />     启动线程 (&开始工作, , )<br /> .默认<br />     按钮_工作.标题 ＝ “开始工作”<br />     时钟3.时钟周期 ＝ 0<br />     线程_销毁 (播放线程句柄)<br />     线程_销毁 (关键词发音句柄)<br />     ' 线程_销毁 (监控Log句柄)<br />     ' bass.停止播放 (音效句柄)<br />     清除数组 (播放队列)<br />     清除数组 (关键词队列)<br />     bass.销毁音效 (音效句柄)<br />     时钟2.时钟周期 ＝ 0

这是程序的  停止与启动工作