用多媒體庫 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(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure FormDestroy(Sender: TObject);  private    procedure TrackChange(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses Bass;var  hs: HSTREAM;  {流控制代碼}  parameq: BASS_DX8_PARAMEQ; {頻率均衡器的參數結構}  fx: array[0..5] of HFX;    {DX 的效果控制代碼}  track: array[0..5] of TTrackBar;procedure TForm1.FormCreate(Sender: TObject);var  i: Integer;begin  Panel1.Align := alRight;  Panel1.BevelOuter := bvLowered;  Panel1.BevelWidth := 2;  Panel1.Caption := '';  Panel1.Width := 6*24 + 2;  for i := 0 to 5 do  begin    track[i] := TTrackBar.Create(Self);    track[i].Parent := Panel1;    track[i].Orientation := trVertical;    track[i].Width := 23;    track[i].Height := Panel1.Height;    track[i].ShowSelRange := False;    track[i].Left := i * 24 + 1;    track[i].Max := 15;    track[i].Min := -15;    track[i].Position := 0;    track[i].Tag := i;    track[i].OnChange := Self.TrackChange;  end;  if HiWord(BASS_GetVersion)  BASSVERSION then    MessageBox(0, '"Bass.dll" 檔案版本不合適! ', nil, MB_ICONERROR);  if not BASS_Init(-1, 44100, 0, 0, nil) then ShowMessage('初始化錯誤');end;{開啟}procedure TForm1.Button1Click(Sender: TObject);var  Mp3Path: AnsiString;  i: Integer;begin  BASS_StreamFree(hs);  OpenDialog1.Filter := 'Mp3 檔案(*.mp3)|*.mp3|Wav 檔案(*.wav)|*wav';  if OpenDialog1.Execute then    Mp3Path := AnsiString(OpenDialog1.FileName);  {實現混響等效果, 需要指定 BASS_SAMPLE_FX 參數}  hs := BASS_StreamCreateFile(False, PAnsiChar(Mp3Path), 0, 0, BASS_SAMPLE_FX);  if hs 

表單檔案:

object Form1: TForm1  Left = 222  Top = 114  Caption = 'Form1'  ClientHeight = 132  ClientWidth = 254  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  Position = poDesigned  OnCreate = FormCreate  OnDestroy = FormDestroy  PixelsPerInch = 96  TextHeight = 13  object Button1: TButton    Left = 8    Top = 17    Width = 75    Height = 25    Caption = #25171#24320    TabOrder = 0    OnClick = Button1Click  end  object Button2: TButton    Left = 8    Top = 56    Width = 75    Height = 25    Caption = #25773#25918    TabOrder = 1    OnClick = Button2Click  end  object Button3: TButton    Left = 8    Top = 93    Width = 75    Height = 25    Caption = #26242#20572    TabOrder = 2    OnClick = Button3Click  end  object Panel1: TPanel    Left = 92    Top = 47    Width = 141    Height = 41    Caption = 'Panel1'    TabOrder = 3  end  object OpenDialog1: TOpenDialog    Left = 80    Top = 88  endend