chan1 ＝ BASS_Mixer_StreamCreate (采样率, 声道, #BASS_SAMPLE_16BITS ＋ #BASS_MIXER_END ＋ #BASS_MUSIC_DECODE ＋ #BASS_MIXER_BUFFER) ' 指定输出文件采样率和声道
CN ＝ BASS_Mixer_StreamAddChannel (chan1, chan, 0) ' 将音乐流加入至chan1,实现重新采样转换
转后大小 ＝ ChannelGetLength (chan, #BASS_POS_BYTE)
重定义数组 (BUF, 假, 4000000)
.循环判断首 ()
C ＝ ChannelGetData (chan1, BUF [1], 4000000)
.如果真 (取反 (convert) ＝ 真)
跳出循环 ()
.如果真结束
输出数据 ＝ 输出数据 ＋ 到字节集 (BUF)
处理事件 ()
CHpos ＝ ChannelGetPosition (chan1, #BASS_POS_BYTE)
.循环判断尾 (BASS_ChannelIsActive (chan1) ≠ 0)
返回 (写WAV头信息 (声道, 采样率, CHpos) ＋ 输出数据)
上一篇 获取QQ群和成员和添加好友等工具
下一篇 隐藏硬盘/隐藏光驱软件