随笔 - 2146  文章 - 97 评论 - 11758 trackbacks - 253

随笔分类 - 71.多媒体函数库Bass.dll
用多媒体库 Bass.dll 播放 mp3 [17] : 如何从内存流播放 - 回复 "小李子子" 的问题
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/12/20/1022124.html#1408043 这是从 http://www.cnblogs.com/del/archive/2008/08/17/1269958.html 修改来的. 代码文件: unit Unit1; interface uses Windows, Messages,...阅读全文
posted @ 2008-12-20 21:30 万一 阅读(5583) | 评论 (23) 编辑
用多媒体库 Bass.dll 播放 mp3 [16] - 小节
摘要: Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了. 另外: 1、如果喜欢动态引入函数, 可以使用其中的 \delphi\dynamic\Dynamic_Bass.pas 单元; 2、建议使用 \mp3-free\bass.dll, 这是免费的; 3、有不少的音乐播放器使用了不同版本的 Ba...阅读全文
posted @ 2008-08-22 23:17 万一 阅读(4360) | 评论 (15) 编辑
用多媒体库 Bass.dll 播放 mp3 [15] - 设置与获取播放速度
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) OpenDialog1: ...阅读全文
posted @ 2008-08-22 23:04 万一 阅读(3287) | 评论 (5) 编辑
用多媒体库 Bass.dll 播放 mp3 [14] - 频率均衡器
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-22 19:50 万一 阅读(3433) | 评论 (4) 编辑
用多媒体库 Bass.dll 播放 mp3 [13] - 混响(Reverb)效果
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) OpenDialog1: ...阅读全文
posted @ 2008-08-22 16:04 万一 阅读(3039) | 评论 (0) 编辑
用多媒体库 Bass.dll 播放 mp3 [12] - 绘制动态频谱 FFT
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-22 10:51 万一 阅读(5401) | 评论 (11) 编辑
用多媒体库 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) ...阅读全文
posted @ 2008-08-21 16:36 万一 阅读(3638) | 评论 (6) 编辑
用多媒体库 Bass.dll 播放 mp3 [10] - 使用回调函数
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-21 13:14 万一 阅读(3649) | 评论 (0) 编辑
用多媒体库 Bass.dll 播放 mp3 [9] - 绘制波形图
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-20 00:55 万一 阅读(5586) | 评论 (13) 编辑
用多媒体库 Bass.dll 播放 mp3 [8] - 实时显示左右声道的峰值
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-19 15:48 万一 阅读(3678) | 评论 (4) 编辑
用多媒体库 Bass.dll 播放 mp3 [7] - 获取当前的播放状态
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: ...阅读全文
posted @ 2008-08-19 13:55 万一 阅读(3320) | 评论 (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(Sender: TOb阅读全文
posted @ 2008-08-19 00:53 万一 阅读(3188) | 评论 (0) 编辑
用多媒体库 Bass.dll 播放 mp3 [5] - 设置与获取音量、相位
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Ope...阅读全文
posted @ 2008-08-18 22:03 万一 阅读(4476) | 评论 (12) 编辑
用多媒体库 Bass.dll 播放 mp3 [4] - 显示与设置播放进度
摘要: //获取文件流的长度, 单位是字节 function BASS_ChannelGetLength( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE} ): QWORD; stdcall; external bassdll; //获取流的当前指针位置, 单位是字节 funct...阅读全文
posted @ 2008-08-17 23:25 万一 阅读(5229) | 评论 (6) 编辑
用多媒体库 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; stdcall; exter阅读全文
posted @ 2008-08-17 23:23 万一 阅读(6827) | 评论 (18) 编辑
用多媒体库 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_DEVICE...阅读全文
posted @ 2008-08-17 21:22 万一 阅读(5404) | 评论 (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...阅读全文
posted @ 2008-08-17 20:42 万一 阅读(13456) | 评论 (8) 编辑