公告

文章分类 - 多媒体函数库Bass.dll

摘要：Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了.另外:1、如果喜欢动态引入函数, 可以使用其中的 \delphi\dynamic\Dynamic_Bass.pas 单元;2、建议使用 \mp3-free\bass.dll, 这是免费的;3、有不少的音乐播放器使用了不同版本的 Bass.dll, 所以程序发布时注意它的发布地址, 不然会覆盖或被覆盖! 阅读全文

posted @ 2012-10-03 21:22 wanliang 阅读(95) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [15] - 设置与获取播放速度

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; TrackBar1: TTrackBar; Label1: TLabel; Button4: ... 阅读全文

posted @ 2012-10-03 21:21 wanliang 阅读(135) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [14] - 频率均衡器

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; Panel1: TPanel; procedure FormCreate(S... 阅读全文

posted @ 2012-10-03 21:21 wanliang 阅读(230) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [11] - 使用回调函数设置反复

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Bass;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; PaintBox1: TPaintBox; Button1: TButton; Button2: TButton; Button3: TBu... 阅读全文

posted @ 2012-10-03 21:20 wanliang 阅读(186) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [12] - 绘制动态频谱 FFT

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; PaintBox1: TPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; ... 阅读全文

posted @ 2012-10-03 21:20 wanliang 阅读(172) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [13] - 混响(Reverb)效果

posted @ 2012-10-03 21:20 wanliang 阅读(171) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [9] - 绘制波形图

摘要：例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; PaintBox1: TPaintBox; Button1: TButton; Button2: TButton; Button3: TButton; ColorBox1: TColor... 阅读全文

posted @ 2012-10-03 21:19 wanliang 阅读(267) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [10] - 使用回调函数

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; TrackBar1: TTrackBar; Timer1: TTimer; Button1: TButton; Button2: TButton; Button3: TButton; ... 阅读全文

posted @ 2012-10-03 21:19 wanliang 阅读(158) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [7] - 获取当前的播放状态

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure For... 阅读全文

posted @ 2012-10-03 21:17 wanliang 阅读(112) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [8] - 实时显示左右声道的峰值

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Timer1: TTimer; Button1: TButton; Button2: TButton; Button3: TButton; ProgressBar1: TProgres... 阅读全文

posted @ 2012-10-03 21:17 wanliang 阅读(87) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [6] - 是否循环播放

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; CheckBox1: TCheckBox; procedure FormCreate(Sende... 阅读全文

posted @ 2012-10-03 21:16 wanliang 阅读(69) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [5] - 设置与获取音量、相位

摘要：本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Button3: TButton; TrackBar1: TTrackBar; TrackBar2: TTrac... 阅读全文

posted @ 2012-10-03 21:15 wanliang 阅读(172) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [4] - 显示与设置播放进度

摘要：//获取文件流的长度, 单位是字节function BASS_ChannelGetLength( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE}): QWORD; stdcall; external bassdll;//获取流的当前指针位置, 单位是字节function BASS_ChannelGetPosition( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE}): Q.. 阅读全文

posted @ 2012-10-03 21:13 wanliang 阅读(153) 评论(0) 推荐(0)

用多媒体库 Bass.dll 播放 mp3 [3] - 打开、播放、暂停、停止

摘要：//播放前先要用 BASS_Init 函数进行播放设备初始化function BASS_Init( device: Integer; {指定输出设备, 第一个是 1、第二个是 2; -1 表示使用当前设备} freq: DWORD; {采样率, 一般是 44100} flags: DWORD; {是 BASS_DEVICE_MONO 等常量的组合值, 是效果参数; 0 是默认值} win: HWND; {指定窗口句柄; 0 表示当前窗口} clsid: PGUID {指定一个 GUID, 用以初始化 DirectSound; nil 表示使用默认}): BOOL; stdcal... 阅读全文

posted @ 2012-10-03 21:10 wanliang 阅读(161) 评论(0) 推荐(0)

用多媒体库 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;本例效果图:代码文件:unit Unit1;i... 阅读全文

posted @ 2012-10-03 21:10 wanliang 阅读(185) 评论(0) 推荐(0)

用多媒体库 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 到系统可以识别的文件夹, 譬如: Windows\System32、Windows、Windows\System, 也可以是系统或阅读全文

posted @ 2012-10-03 21:08 wanliang 阅读(280) 评论(0) 推荐(0)