摘要: //获取文件流的长度, 单位是字节 function BASS_ChannelGetLength( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BASS_POS_BYTE} ): QWORD; stdcall; external bassdll; //获取流的当前指针位置, 单位是字节 funct... 阅读全文
posted @ 2008-08-17 23:25 万一 阅读(6502) 评论(6) 推荐(0) 编辑
摘要: //播放前先要用 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 万一 阅读(8442) 评论(18) 推荐(1) 编辑
摘要: 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 万一 阅读(7189) 评论(0) 推荐(0) 编辑
摘要: 最近要写个小程序, 用到 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 万一 阅读(15772) 评论(8) 推荐(0) 编辑
摘要: 在 Delphi 2009 中, TStrings 类(包括 TStringList 和包含 TStrings 属性的所有组件, 譬如 Memo.lines 属性、ListBox.Items 属性)、 TStream 类系列(包括 TFileStream、TMemoryStream 等) 的存取方法, 譬如: LoadFromFile、SaveToFile、LoadFromStream、Save... 阅读全文
posted @ 2008-08-17 01:13 万一 阅读(14283) 评论(12) 推荐(0) 编辑