Bass.dll 音频连播问题

maozaiba

问题描述：
鼠标快速连击各按钮
效果1：下一次播放前会先停止/释放上一次播放
效果2：前后播放互不干扰
问题来了，因为想做个类似钢琴按键的程序，效果2才是想要的效果，但如果不先停止/释放句柄的话内存占用会一直上升，求解决方法，谢谢！

测试源码：
TEST.e (294.24 KB, 下载次数: 13)

2019-3-27 14:43 上传

点击文件名下载附件

流星暴雨

句柄应该没限制的吧，直接用一个加锁数组，播放的时候开个新句柄，加进去
时钟定时检测状态，失效的删掉
类似于GC的原理

流星暴雨

开个时钟，把播放完的句柄释放掉

流星暴雨

每次播放都新开个句柄就行了

流星暴雨

没觉得笨，很正常的解决方案

maozaiba

附上能解决此问题的代码，虽然测试可用，但套到自己的程序上会经常崩溃

  

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

播放音效2 ( #A )

子程序名	返回值类型	公开	备 注
播放音效2			0
参数名	类 型	参考	可空	数组	备 注
音频	字节集

' 调试输出 (I)
I ＝ I ＋ 1  ' 2
如果真 (I ＞ 50)
调试输出 (“句柄”, 音乐句柄1)
I ＝ 10
清除 ()
' 清除数组 (音乐句柄)
' 数组清零 (音乐句柄)
' 调试输出 (“句柄”, 音乐句柄)
' BASS_ChannelStop (音乐句柄 [110])  ' 停止
' BASS_StreamFree (音乐句柄 [110])  ' 释放

加入成员 (音乐句柄1, I)
BASS_ChannelStop (音乐句柄1 [I － 5])  ' 停止
BASS_StreamFree (音乐句柄1 [I － 5])  ' 释放
音乐句柄1 [I] ＝ BASS_StreamCreateFile_内存 (真, 音频, 0, 取字节集长度 (音频), 0)
BASS_ChannelPlay (音乐句柄1 [I], 真)
BASS_ChannelSetAttribute (音乐句柄1 [I], 2, 1)
' I ＝ I ＋ 1
调试输出 (I)

子程序名	返回值类型	公开	备 注
清除

变量名	类 型	静态	数组	备 注
A

调试输出 (“数组成员”, 取数组成员数 (音乐句柄1))
计次循环首 (取数组成员数 (音乐句柄1), A)
BASS_ChannelStop (音乐句柄1 [A])  ' 停止
BASS_StreamFree (音乐句柄1 [A])  ' 释放
计次循环尾 ()
数组清零 (音乐句柄1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 播放音效2 (#A)<br /> <br /> .子程序 播放音效2, , , 0<br /> .参数 音频, 字节集<br /> <br /> ' 调试输出 (I)<br /> I ＝ I ＋ 1  ' 2<br /> .如果真 (I ＞ 50)<br />     调试输出 (“句柄”, 音乐句柄1)<br />     I ＝ 10<br />     清除 ()<br />     ' 清除数组 (音乐句柄)<br />     ' 数组清零 (音乐句柄)<br />     ' 调试输出 (“句柄”, 音乐句柄)<br />     ' BASS_ChannelStop (音乐句柄 [110])  ' 停止<br />     ' BASS_StreamFree (音乐句柄 [110])  ' 释放<br /> .如果真结束<br /> <br /> 加入成员 (音乐句柄1, I)<br /> BASS_ChannelStop (音乐句柄1 [I － 5])  ' 停止<br /> BASS_StreamFree (音乐句柄1 [I － 5])  ' 释放<br /> 音乐句柄1 [I] ＝ BASS_StreamCreateFile_内存 (真, 音频, 0, 取字节集长度 (音频), 0)<br /> BASS_ChannelPlay (音乐句柄1 [I], 真)<br /> BASS_ChannelSetAttribute (音乐句柄1 [I], 2, 1)<br /> ' I ＝ I ＋ 1<br /> 调试输出 (I)<br /> <br /> .子程序 清除<br /> .局部变量 A<br /> <br /> <br /> 调试输出 (“数组成员”, 取数组成员数 (音乐句柄1))<br /> .计次循环首 (取数组成员数 (音乐句柄1), A)<br /> <br />     BASS_ChannelStop (音乐句柄1 [A])  ' 停止<br />     BASS_StreamFree (音乐句柄1 [A])  ' 释放<br /> <br /> .计次循环尾 ()<br /> 数组清零 (音乐句柄1)