BASS播放器调用VST插件的例子

BASS.DLL是一个功能强大的、商业收费,个人用户免费的音频函数库,现在最高的版本是2.4,因此可以用来做出自己想要的音频播放器。 BASS音频函数库对插件也支持得比较好,如Winamp的DSP音效插件、Winamp的In解码插件、Winamp的视觉插件, BASS自己的解码插件,连大型音乐平台用的VST效果插件,BASS也支持。如果想了解BASS的相关信息及特性,请移步至http://www.un4seen.com/ 。 此BASS播放器是我用VisualBasic 6.0 基于 Bass 音频库编写的,在“例子”文件夹里。 里面还附带了播放器的源代码,如果想借此用来开发出功能更多的播放器,可以拿来参考。 我的播放器除了实现基本的播放、暂停、停止等操作功能外,还添加了播放速度微调、VST音效插件直接调用等。 播放器在编写的时候没有用到任何OCX控件,包括打开文件,都是用纯API编写,因此无需注册控件也可正常使用,也没有任何许可的限制。 以下是简单的BASS播放器例子代码,能实现标准的播放、暂停、停止等功能; 新建一个标准的EXE工程,在工程里添加BASS.BAS模块(在BASS\BASS24API\里有),然后在窗体中添加四个按钮、一个通用对话框控件,然后键入以下代码: 先声明音频流句柄: Dim ch As Long '检查并初始化BASS Private Sub Form_Load() ChDrive App.Path '设置BASS.DLL为当前目录 ChDir App.Path If (HiWord(BASS_GetVersion) <> BASSVERSION) Then '检测BASS库版本,如果低则退出 End End If If (BASS_Init(-1, 44100, 0, Me.hWnd, 0) = 0) Then '检测并初始化输出 End End If Dim bi As BASS_INFO Call BASS_GetInfo(bi) If (bi.dsver < 8) Then '检测系统是否安装了DX8及以上版本,如果低则退出 Call BASS_Free End End If End Sub '打开文件 Private Sub Command1_Click() With CommonDialog1 .Filter = "mp3文件|*.mp3|WAV文件|*.wav" .ShowOpen End With ch = BASS_StreamCreateFile(BASSFALSE, StrPtr(CommonDialog.filename), 0, 0, 0) End Sub '播放 Private Sub Command2_Click() Call BASS_ChannelPlay(ch, BASSFALSE) End Sub '暂停 Private Sub Command3_Click() Call BASS_ChannelPause(ch) End Sub '停止 Private Sub Command4_Click() Call BASS_ChannelStop(ch) End Sub '关闭设备并退出 Private Sub Form_Unload(Cancel As Integer) Call BASS_Free End End Sub 最后祝大家使用愉快!!! 作者:广西机电工业学校 08计算机网络 LEI耀程 2009年12月