求助bass.dll问题

羽毛呀

就是bass.dll本身支持外放吗（类似立体声混音，usb设备不支持立体声混音QAQ）？
另外有bass封装好的例子吗录音那块不是很懂

q838210720

易语言没法用这个，正常调试没有任何问题编译出来不是卡死就是闪退，问题特别多，我直接放弃了

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
播放句柄	整数型
录音文件	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

‘置DLL装载目录 (“G:\e\e\osu!”)
录音文件 ＝ 取当前目录 () ＋ “\abcde临时录音文件.wav”
BASS_Init (-1, 44100, 1, 0, 0)
_组合框1_将弹出列表 ()
组合框1.现行选中项 ＝ BASS_GetDevice ()
BASS_RecordInit (-1)
_组合框2_将弹出列表 ()
组合框2.现行选中项 ＝ BASS_RecordGetDevice ()
按钮1.标题 ＝ “开始录”
按钮2.标题 ＝ “播放”

子程序名	返回值类型	公开	备 注
_组合框1_将弹出列表

变量名	类 型	静态	数组	备 注
设备序号	整数型
设备信息	BASS_DEVICEINFO

组合框1.清空 ()
判断循环首 (BASS_GetDeviceInfo (设备序号, 设备信息))
组合框1.加入项目 (设备信息.name, 设备序号)
设备序号 ＝ 设备序号 ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

BASS_Free ()
BASS_Init (组合框1.取项目数值 (组合框1.现行选中项), 44100, 1, 播放句柄, 0)

子程序名	返回值类型	公开	备 注
_组合框2_将弹出列表

变量名	类 型	静态	数组	备 注
设备序号	整数型
设备信息	BASS_DEVICEINFO

组合框2.清空 ()
判断循环首 (BASS_RecordGetDeviceInfo (设备序号, 设备信息))
组合框2.加入项目 (设备信息.name, 设备序号)
设备序号 ＝ 设备序号 ＋ 1
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_组合框2_列表项被选择

BASS_RecordFree ()
BASS_RecordInit (组合框2.取项目数值 (组合框2.现行选中项))

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

变量名	类 型	静态	数组	备 注
a	整数型

如果 (按钮1.标题 ＝ “开始录”)
按钮1.标题 ＝ “停止录”
a ＝ 子程序1WAV文件头构造 (打开文件 (录音文件, #重写, #无限制 ), 44100, 2, 16)
BASS_RecordStart (44100, 2, 0, &录音事件, a)
按钮1.标题 ＝ “开始录”

子程序名	返回值类型	公开	备 注
子程序1WAV文件头构造	整数型
参数名	类 型	参考	可空	数组	备 注
文件号f	整数型
采样率	整数型
声道	短整数型
比特位	短整数型

变量名	类 型	静态	数组	备 注
文件大小	整数型
fmt大小	整数型
音频格式	短整数型
字节率	整数型
块对齐	短整数型
声音大小	整数型

' // RIFF块
写出文本 (文件号f, “RIFF”)
文件大小 ＝ 36
写出数据 (文件号f, 文件大小)
写出文本 (文件号f, “WAVE”)
' // fmt子块
写出文本 (文件号f, “fmt ”)
fmt大小 ＝ 16  ' ; // PCM格式固定为16
写出数据 (文件号f, fmt大小)
音频格式 ＝ 1  ' ; // 1表示PCM
写出数据 (文件号f, 音频格式)
写出数据 (文件号f, 声道)
写出数据 (文件号f, 采样率)
字节率 ＝ 采样率 × 声道 × 比特位 ÷ 8  ' ; // 字节率
写出数据 (文件号f, 字节率)
块对齐 ＝ 声道 × 比特位 ÷ 8  ' ; // 块对齐
写出数据 (文件号f, 块对齐)
写出数据 (文件号f, 比特位)
' // data子块
写出文本 (文件号f, “data”)
声音大小 ＝ 0  ' ; // 初始值（后续会更新为实际数据大小）
写出数据 (文件号f, 声音大小)
返回 (文件号f)

子程序名	返回值类型	公开	备 注
子程序2WAV补全文件大小
参数名	类 型	参考	可空	数组	备 注
文件号f

变量名	类 型	静态	数组	备 注
文件总大小	整数型
声音大小	整数型
RIFF大小	整数型

' 移动读写位置 (文件号f, #文件首, 1)
文件总大小 ＝ 取文件长度 (文件号f)  ' ; // 文件总大小
声音大小 ＝ 文件总大小 － 44  ' ; // 数据部分大小（44是WAV头固定长度）
' // 更新RIFF块的文件大小（总大小 - 8）
移动读写位置 (文件号f, #文件首, 4)
RIFF大小 ＝ 文件总大小 － 8
写出数据 (文件号f, RIFF大小)
' // 更新data子块的数据大小
移动读写位置 (文件号f, #文件首, 40)
写出数据 (文件号f, 声音大小)

子程序名	返回值类型	公开	备 注
录音事件	逻辑型
参数名	类 型	参考	可空	数组	备 注
handle
录音指针
录音大小
文件号F

如果真 (录音大小 ＞ 0)
写出字节集 (文件号F, 指针到字节集 (录音指针, 录音大小))

如果真 (按钮1.标题 ＝ “开始录”)
子程序2WAV补全文件大小 (文件号F)
关闭文件 (文件号F)
返回 (假)
返回 (真)

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

判断 (按钮2.标题 ＝ “播放”)
按钮2.标题 ＝ “停止”
播放句柄 ＝ BASS_StreamCreateFile_文件 (假, 录音文件, 0, 0, 0)
BASS_ChannelPlay (播放句柄, 真)
按钮2.标题 ＝ “播放”
BASS_ChannelStop (播放句柄)
BASS_StreamFree (播放句柄)

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

BASS_RecordFree ()
BASS_Free ()

DLL命令名	返回值类型	公开	备 注
BASS_Init	逻辑型		初始化
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_Init
参数名	类 型	传址	数组	备 注
设备	整数型			默认-1
频率	整数型			采样44100
标记	整数型
句柄	整数型
GUID	整数型

DLL命令名	返回值类型	公开	备 注
BASS_GetDevice	整数型		取设备，失败返回 -1
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_GetDevice
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
BASS_GetDeviceInfo	逻辑型		获取设备信息
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_GetDeviceInfo
参数名	类 型	传址	数组	备 注
device	整数型
info	BASS_DEVICEINFO			BASS_DEVICEINFO

DLL命令名	返回值类型	公开	备 注
BASS_RecordInit	逻辑型		初始化录音
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_RecordInit
参数名	类 型	传址	数组	备 注
device	整数型

DLL命令名	返回值类型	公开	备 注
BASS_RecordGetDeviceInfo	逻辑型		获取录音设备信息
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_RecordGetDeviceInfo
参数名	类 型	传址	数组	备 注
device	整数型
info	BASS_DEVICEINFO			BASS_DEVICEINFO

DLL命令名	返回值类型	公开	备 注
BASS_RecordGetDevice	整数型		获取录音设备
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_RecordGetDevice
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
BASS_RecordFree	逻辑型		释放录音
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_RecordFree
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
BASS_Free	逻辑型		释放Bass
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_Free
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
BASS_RecordStart	整数型		开始录音
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_RecordStart
参数名	类 型	传址	数组	备 注
freq	整数型
chans	整数型
flags	整数型
proc	子程序指针			RECORDPROC
user	整数型

DLL命令名	返回值类型	公开	备 注
BASS_StreamCreateFile_文件	整数型		从文件加载音效
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_StreamCreateFile
参数名	类 型	传址	数组	备 注
分配信息	逻辑型
文件路径	文本型
偏移位置	长整数型
音乐长度	长整数型
标记	整数型

DLL命令名	返回值类型	公开	备 注
BASS_ChannelPlay	逻辑型		播放
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_ChannelPlay
参数名	类 型	传址	数组	备 注
句柄	整数型
重新播放	逻辑型

DLL命令名	返回值类型	公开	备 注
BASS_ChannelStop	逻辑型		停止
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_ChannelStop
参数名	类 型	传址	数组	备 注
句柄	整数型

DLL命令名	返回值类型	公开	备 注
BASS_StreamFree	逻辑型		关闭文件
DLL库文件名:
bass.dll
在DLL库中对应命令名:
BASS_StreamFree
参数名	类 型	传址	数组	备 注
句柄	整数型

数据类型名	公开	备 注
BASS_DEVICEINFO
成员名	类 型	传址	数组	备 注
name	文本型			description
driver	文本型			driver
flags	整数型

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 播放句柄, 整数型<br /> .程序集变量 录音文件, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ‘置DLL装载目录 (“G:\e\e\osu!”)<br /> 录音文件 ＝ 取当前目录 () ＋ “\abcde临时录音文件.wav”<br /> <br /> BASS_Init (-1, 44100, 1, 0, 0)<br /> _组合框1_将弹出列表 ()<br /> 组合框1.现行选中项 ＝ BASS_GetDevice ()<br /> <br /> BASS_RecordInit (-1)<br /> _组合框2_将弹出列表 ()<br /> 组合框2.现行选中项 ＝ BASS_RecordGetDevice ()<br /> <br /> 按钮1.标题 ＝ “开始录”<br /> 按钮2.标题 ＝ “播放”<br /> <br /> .子程序 _组合框1_将弹出列表<br /> .局部变量 设备序号, 整数型<br /> .局部变量 设备信息, BASS_DEVICEINFO<br /> <br /> 组合框1.清空 ()<br /> .判断循环首 (BASS_GetDeviceInfo (设备序号, 设备信息))<br />     组合框1.加入项目 (设备信息.name, 设备序号)<br />     设备序号 ＝ 设备序号 ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> BASS_Free ()<br /> BASS_Init (组合框1.取项目数值 (组合框1.现行选中项), 44100, 1, 播放句柄, 0)<br /> <br /> .子程序 _组合框2_将弹出列表<br /> .局部变量 设备序号, 整数型<br /> .局部变量 设备信息, BASS_DEVICEINFO<br /> <br /> 组合框2.清空 ()<br /> .判断循环首 (BASS_RecordGetDeviceInfo (设备序号, 设备信息))<br />     组合框2.加入项目 (设备信息.name, 设备序号)<br />     设备序号 ＝ 设备序号 ＋ 1<br /> .判断循环尾 ()<br /> <br /> .子程序 _组合框2_列表项被选择<br /> <br /> BASS_RecordFree ()<br /> BASS_RecordInit (组合框2.取项目数值 (组合框2.现行选中项))<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> <br /> .如果 (按钮1.标题 ＝ “开始录”)<br />     按钮1.标题 ＝ “停止录”<br />     a ＝ 子程序1WAV文件头构造 (打开文件 (录音文件, #重写, #无限制), 44100, 2, 16)<br />     BASS_RecordStart (44100, 2, 0, &录音事件, a)<br /> .否则<br />     按钮1.标题 ＝ “开始录”<br /> .如果结束<br /> <br /> <br /> .子程序 子程序1WAV文件头构造, 整数型<br /> .参数 文件号f, 整数型<br /> .参数 采样率, 整数型<br /> .参数 声道, 短整数型<br /> .参数 比特位, 短整数型<br /> .局部变量 文件大小, 整数型<br /> .局部变量 fmt大小, 整数型<br /> .局部变量 音频格式, 短整数型<br /> .局部变量 字节率, 整数型<br /> .局部变量 块对齐, 短整数型<br /> .局部变量 声音大小, 整数型<br /> <br /> ' // RIFF块<br /> 写出文本 (文件号f, “RIFF”)<br /> 文件大小 ＝ 36<br /> 写出数据 (文件号f, 文件大小)<br /> 写出文本 (文件号f, “WAVE”)<br /> <br /> ' // fmt子块<br /> 写出文本 (文件号f, “fmt ”)<br /> fmt大小 ＝ 16  ' ; // PCM格式固定为16<br /> 写出数据 (文件号f, fmt大小)<br /> 音频格式 ＝ 1  ' ; // 1表示PCM<br /> 写出数据 (文件号f, 音频格式)<br /> 写出数据 (文件号f, 声道)<br /> 写出数据 (文件号f, 采样率)<br /> <br /> 字节率 ＝ 采样率 × 声道 × 比特位 ÷ 8  ' ; // 字节率<br /> 写出数据 (文件号f, 字节率)<br /> 块对齐 ＝ 声道 × 比特位 ÷ 8  ' ; // 块对齐<br /> 写出数据 (文件号f, 块对齐)<br /> 写出数据 (文件号f, 比特位)<br /> <br /> ' // data子块<br /> 写出文本 (文件号f, “data”)<br /> 声音大小 ＝ 0  ' ; // 初始值（后续会更新为实际数据大小）<br /> 写出数据 (文件号f, 声音大小)<br /> 返回 (文件号f)<br /> <br /> .子程序 子程序2WAV补全文件大小<br /> .参数 文件号f<br /> .局部变量 文件总大小, 整数型<br /> .局部变量 声音大小, 整数型<br /> .局部变量 RIFF大小, 整数型<br /> <br /> ' 移动读写位置 (文件号f, #文件首, 1)<br /> 文件总大小 ＝ 取文件长度 (文件号f)  ' ; // 文件总大小<br /> 声音大小 ＝ 文件总大小 － 44  ' ; // 数据部分大小（44是WAV头固定长度）<br /> <br /> ' // 更新RIFF块的文件大小（总大小 - 8）<br /> 移动读写位置 (文件号f, #文件首, 4)<br /> RIFF大小 ＝ 文件总大小 － 8<br /> 写出数据 (文件号f, RIFF大小)<br /> <br /> ' // 更新data子块的数据大小<br /> 移动读写位置 (文件号f, #文件首, 40)<br /> 写出数据 (文件号f, 声音大小)<br /> <br /> .子程序 录音事件, 逻辑型<br /> .参数 handle<br /> .参数 录音指针<br /> .参数 录音大小<br /> .参数 文件号F<br /> <br /> .如果真 (录音大小 ＞ 0)<br />     写出字节集 (文件号F, 指针到字节集 (录音指针, 录音大小))<br /> .如果真结束<br /> <br /> .如果真 (按钮1.标题 ＝ “开始录”)<br />     子程序2WAV补全文件大小 (文件号F)<br />     关闭文件 (文件号F)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .判断开始 (按钮2.标题 ＝ “播放”)<br />     按钮2.标题 ＝ “停止”<br />     播放句柄 ＝ BASS_StreamCreateFile_文件 (假, 录音文件, 0, 0, 0)<br />     BASS_ChannelPlay (播放句柄, 真)<br /> .默认<br />     按钮2.标题 ＝ “播放”<br />     BASS_ChannelStop (播放句柄)<br />     BASS_StreamFree (播放句柄)<br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> BASS_RecordFree ()<br /> BASS_Free ()<br /> <br /> .版本 2<br /> <br /> .DLL命令 BASS_Init, 逻辑型, "bass.dll", "BASS_Init", 公开, 初始化<br />     .参数 设备, 整数型, , 默认-1<br />     .参数 频率, 整数型, , 采样44100<br />     .参数 标记, 整数型<br />     .参数 句柄, 整数型<br />     .参数 GUID, 整数型<br /> <br /> .DLL命令 BASS_GetDevice, 整数型, "bass.dll", "BASS_GetDevice", 公开, 取设备，失败返回 -1<br /> <br /> .DLL命令 BASS_GetDeviceInfo, 逻辑型, "bass.dll", "BASS_GetDeviceInfo", 公开, 获取设备信息<br />     .参数 device, 整数型<br />     .参数 info, BASS_DEVICEINFO, 传址, BASS_DEVICEINFO<br /> <br /> .DLL命令 BASS_RecordInit, 逻辑型, "bass.dll", "BASS_RecordInit", 公开, 初始化录音<br />     .参数 device, 整数型<br /> <br /> .DLL命令 BASS_RecordGetDeviceInfo, 逻辑型, "bass.dll", "BASS_RecordGetDeviceInfo", 公开, 获取录音设备信息<br />     .参数 device, 整数型<br />     .参数 info, BASS_DEVICEINFO, 传址, BASS_DEVICEINFO<br /> <br /> .DLL命令 BASS_RecordGetDevice, 整数型, "bass.dll", "BASS_RecordGetDevice", 公开, 获取录音设备<br /> <br /> .DLL命令 BASS_RecordFree, 逻辑型, "bass.dll", "BASS_RecordFree", 公开, 释放录音<br /> <br /> .DLL命令 BASS_Free, 逻辑型, "bass.dll", "BASS_Free", 公开, 释放Bass<br /> <br /> .DLL命令 BASS_RecordStart, 整数型, "bass.dll", "BASS_RecordStart", 公开, 开始录音<br />     .参数 freq, 整数型<br />     .参数 chans, 整数型<br />     .参数 flags, 整数型<br />     .参数 proc, 子程序指针, , RECORDPROC<br />     .参数 user, 整数型<br /> <br /> .DLL命令 BASS_StreamCreateFile_文件, 整数型, "bass.dll", "BASS_StreamCreateFile", 公开, 从文件加载音效<br />     .参数 分配信息, 逻辑型<br />     .参数 文件路径, 文本型<br />     .参数 偏移位置, 长整数型<br />     .参数 音乐长度, 长整数型<br />     .参数 标记, 整数型<br /> <br /> .DLL命令 BASS_ChannelPlay, 逻辑型, "bass.dll", "BASS_ChannelPlay", 公开, 播放<br />     .参数 句柄, 整数型<br />     .参数 重新播放, 逻辑型<br /> <br /> .DLL命令 BASS_ChannelStop, 逻辑型, "bass.dll", "BASS_ChannelStop", 公开, 停止<br />     .参数 句柄, 整数型<br /> <br /> .DLL命令 BASS_StreamFree, 逻辑型, "bass.dll", "BASS_StreamFree", 公开, 关闭文件<br />     .参数 句柄, 整数型<br /> <br /> .版本 2<br /> <br /> .数据类型 BASS_DEVICEINFO, 公开<br />     .成员 name, 文本型, , , description<br />     .成员 driver, 文本型, , , driver<br />     .成员 flags, 整数型

bass录音例子.e (28.59 KB, 下载次数: 0)

3 天前 上传

点击文件名下载附件