Delphi中用多媒体库Bass.dll播放 mp3 [2]

Delphi中用多媒体库Bass.dll播放mp3 [2] - BASS_GetDeviceInfo: 获取当前音频输出设备列表

Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 结构的定义, 不然会乱码:

//把 BASS_DEVICEINFO = record 　 name: PChar;　// description 　 driver: PChar;　// driver 　 flags: DWORD; end; //改为 BASS_DEVICEINFO = record 　 name: PAnsiChar;　// description 　 driver: PAnsiChar;　// driver 　 flags: DWORD; end;

本例效果图:

时间： 2024-07-28 15:11:07

Delphi中用多媒体库Bass.dll播放 mp3 [2]的相关文章

Delphi中用多媒体库Bass.dll播放mp3 [1]

最近要写个小程序, 用到 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 到系统可以识别的文件夹

Delphi中用多媒体库Bass.dll播放mp3 [15]

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton;

Delphi中用多媒体库Bass.dll播放mp3 [14]

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3

Delphi中用多媒体库Bass.dll播放mp3 [13]

Delphi中用多媒体库Bass.dll播放mp3 [12]

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; PaintBox1: TPaintBox; Butto

Delphi中用多媒体库Bass.dll播放mp3 [11]

本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Bass; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; PaintBox1: TPaintBox;