程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中用多媒體庫Bass.dll播放mp3 [1] - 安裝調試

Delphi中用多媒體庫Bass.dll播放mp3 [1] - 安裝調試

編輯:Delphi

最近要寫個小程序, 用到 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, 也可以是系統或用戶的環境變量 Path 指定的任何目錄, 還可以在做程序時 放在當前目錄, 隨便放一個文件夾然後在程序中指定路徑也可以.

2、把專為 Delphi 寫的頭文件 bass.pas 放在某個目錄(譬如: C:\Program Files\CodeGear\RAD Studio\6.0\Imports\Bass24).

3、然後從 Delphi 菜單 -> Tools -> Options -> Library-Win32 -> Library path -> 然後 Add 這個目錄 (例子).

好了, 寫幾句測試一下:unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
uses Bass;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessageFmt('%x', [BASSVERSION]);   {204}
  ShowMessageFmt('%x', [BASS_GetVersion]); {2040101}
  if HiWord(BASS_GetVersion) <> BASSVERSION then
   ShowMessage('當前 Bass.dll 版本不可用')
  else
   ShowMessage('OK!');
end;
end.
程序說明:

在使用 Bass 前, 一般要先驗證版本(因為不同版本功能有區別);

BASS_GetVersion 函數可以獲取系統中 Bass.dll 的版本號, 這裡是: $2040101(十六進 制數);

BASSVERSION 是 Bass.pas 中的常量, 表示 Bass.pas 文件的版本, 這裡是 $204;

只要主版本號(譬如2.4)統一即可, 我們可以用 HiWord 函數 從

BASS_GetVersion 函數的返回值中提前主版本號和 BASSVERSION 對比.

先博覽一下 Bass 為我們提供的函數:BASS_Apply3D
BASS_ChannelBytes2Seconds
BASS_ChannelFlags
BASS_ChannelGet3DAttributes
BASS_ChannelGet3DPosition
BASS_ChannelGetAttribute
BASS_ChannelGetData
BASS_ChannelGetDevice
BASS_ChannelGetInfo
BASS_ChannelGetLength
BASS_ChannelGetLevel
BASS_ChannelGetPosition
BASS_ChannelGetTags
BASS_ChannelIsActive
BASS_ChannelIsSliding
BASS_ChannelLock
BASS_ChannelPause
BASS_ChannelPlay
BASS_ChannelRemoveDSP
BASS_ChannelRemoveFX
BASS_ChannelRemoveLink
BASS_ChannelRemoveSync
BASS_ChannelSeconds2Bytes
BASS_ChannelSet3DAttributes
BASS_ChannelSet3DPosition
BASS_ChannelSetAttribute
BASS_ChannelSetDevice
BASS_ChannelSetDSP
BASS_ChannelSetFX
BASS_ChannelSetLink
BASS_ChannelSetPosition
BASS_ChannelSetSync
BASS_ChannelSlideAttribute
BASS_ChannelStop
BASS_ChannelUpdate
BASS_ErrorGetCode
BASS_Free
BASS_FXGetParameters
BASS_FXReset
BASS_FXSetParameters
BASS_Get3DFactors
BASS_Get3DPosition
BASS_GetConfig
BASS_GetConfigPtr
BASS_GetCPU
BASS_GetDevice
BASS_GetDeviceInfo
BASS_GetDSoundObject
BASS_GetEAXParameters
BASS_GetInfo
BASS_GetVersion
BASS_GetVolume
BASS_Init
BASS_MusicFree
BASS_MusicLoad
BASS_Pause
BASS_PluginFree
BASS_PluginGetInfo
BASS_PluginLoad
BASS_RecordFree
BASS_RecordGetDevice
BASS_RecordGetDeviceInfo
BASS_RecordGetInfo
BASS_RecordGetInput
BASS_RecordGetInputName
BASS_RecordInit
BASS_RecordSetDevice
BASS_RecordSetInput
BASS_RecordStart
BASS_SampleCreate
BASS_SampleFree
BASS_SampleGetChannel
BASS_SampleGetChannels
BASS_SampleGetData
BASS_SampleGetInfo
BASS_SampleLoad
BASS_SampleSetData
BASS_SampleSetInfo
BASS_SampleStop
BASS_Set3DFactors
BASS_Set3DPosition
BASS_SetConfig
BASS_SetConfigPtr
BASS_SetDevice
BASS_SetEAXParameters
BASS_SetVolume
BASS_Start
BASS_Stop
BASS_StreamCreate
BASS_StreamCreateFile
BASS_StreamCreateFileUser
BASS_StreamCreateURL
BASS_StreamFree
BASS_StreamGetFilePosition
BASS_StreamPutData
BASS_StreamPutFileData
BASS_Update

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved