首页 / 软件开发 / Delphi / Delphi中用多媒体库Bass.dll播放mp3 [1] - 安装调试

Delphi中用多媒体库Bass.dll播放mp3 [1] - 安装调试2011-04-23 博客园 万一最近要写个小程序, 用到 mp3 播放; 因为需要非常复杂的控制与功能, 想到了 Bass.dll.

以前我曾以为 Bass.dll 是 Windows 系统自带的库, 后来才知道原来是第三方的: http://www.un4seen.com/.

Bass.dll 一直在更新, 现在最新版本是 2.411, 下载地址: http://us2.un4seen.com/files/bass24.zip

在 Delphi 中使用前, 有三步工作要做:

1、复制 Bass.dll 到系统可以识别的文件夹, 譬如: WindowsSystem32、Windows、WindowsSystem, 也可以是系统或用户的环境变量 Path 指定的任何目录, 还可以在做程序时 放在当前目录, 随便放一个文件夹然后在程序中指定路径也可以.

2、把专为 Delphi 写的头文件 bass.pas 放在某个目录（譬如: C:Program FilesCodeGearRAD Studio6.0ImportsBass24）.

3、然后从 Delphi 菜单 -> Tools -> Options -> Library-Win32 -> Library path -> 然后 Add 这个目录 （例子）.

好了, 写几句测试一下:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class（TForm）
procedure FormCreate（Sender: TObject）;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Bass;
procedure TForm1.FormCreate（Sender: TObject）;
begin
ShowMessageFmt（"%x", [BASSVERSION]）; {204}
ShowMessageFmt（"%x", [BASS_GetVersion]）; {2040101}
if HiWord（BASS_GetVersion） <> BASSVERSION then
ShowMessage（"当前 Bass.dll 版本不可用"）
else
ShowMessage（"OK！"）;
end;
end.程序说明:

在使用 Bass 前, 一般要先验证版本（因为不同版本功能有区别）;

BASS_GetVersion 函数可以获取系统中 Bass.dll 的版本号, 这里是: $2040101（十六进 制数）;

BASSVERSION 是 Bass.pas 中的常量, 表示 Bass.pas 文件的版本, 这里是 $204;

只要主版本号（譬如2.4）统一即可, 我们可以用 HiWord 函数 从