万一 - 博客园

2008年8月21日

摘要：本例效果图: 代码文件: 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 万一阅读(4534) 评论(6) 推荐(0) 编辑

用多媒体库 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 万一阅读(4578) 评论(0) 推荐(0) 编辑

2008年8月20日

用多媒体库 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 万一阅读(6786) 评论(13) 推荐(1) 编辑

2008年8月19日

用多媒体库 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 万一阅读(4515) 评论(4) 推荐(1) 编辑

用多媒体库 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 万一阅读(4077) 评论(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(Sender: TOb 阅读全文

posted @ 2008-08-19 00:53 万一阅读(3926) 评论(0) 推荐(0) 编辑

2008年8月18日

用多媒体库 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 万一阅读(5787) 评论(12) 推荐(0) 编辑

2008年8月17日

用多媒体库 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 万一阅读(6507) 评论(6) 推荐(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; stdcall; exter 阅读全文

posted @ 2008-08-17 23:23 万一阅读(8455) 评论(18) 推荐(1) 编辑

用多媒体库 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 万一阅读(7194) 评论(0) 推荐(0) 编辑