На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Начнем с начальных настроек TrackBar ов эквалайзера. Для этого в инспекторе объектов для всех десяти TrackBar ов эквалайзера устанавливаем свойство Min->0, Max->30, Position->15, TickMarks->tmBoth.
в разделе Var добавляем еще две переменные необходимые для настройки эквалайзера:
//переменные для настройки эквалайзера p: BASS_DX8_PARAMEQ; fx: array[1..10] of integer
Здесь и далее добавляемый код выделен красным цветом.
var Form_player: TForm_player; i:integer; //номер проигрываемой песни в playlist filename: string;//имя файла Channel : DWORD;// Mode: TPlayerMode;//PlayMode //переменные для настройки эквалайзера p: BASS_DX8_PARAMEQ; fx: array[1..10] of integer
procedure TForm_Player.Player; begin //проверяем, если не пауза if mode<>paused then begin //то проверяем существует ли файл загружаемый из PlayList //если файл не существует, то выходим if not FileExists(FileName) then begin ShowMessage('Файл не существует');exit;end; //останавливаем и освобождаем канал воспроизведения BASS_ChannelStop(Channel);BASS_StreamFree(Channel); //пытаемся загрузить файл и получить дескриптор канала Channel := BASS_StreamCreateFile(FALSE, PChar(FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}); //если дескриптор канала=0 (файл по какой то причине не может быть загружен), //выдаем сообщение об ошибке и выходим if Channel=0 then begin ShowMessage('Ошибка загрузки Файла'); exit; end; end;
//командой BASS_ChannelPlay(Channel, False) пытаемся воспроизвести файл, //если это невозможно, то выдаем сообщение об ошибке if not BASS_ChannelPlay(Channel, False) then begin ShowMessage('Ошибка воспроизведения файла');exit;end;
//полоса проигрывания scrollbar1.Min:=0; //минимальное значение scrollbar1.Max:=bass_ChannelGEtLength(Channel, 0)-1;//максимальное значение
//присваеваем заголовку формы имя проигрываемого файла Form_Player.Caption:=ExtractFileName(FileName); //Устанавливаем PlayMode - play mode:=play; end;
procedure TForm_player.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin //устанавливаем позицию воспроизведения трека в зависимости от положения scrollbar bass_ChannelSetPosition(Channel, scrollbar1.position, 0); end;
Для каждого TrackBar эквалайзера в событии OnChange пишем код:
procedure TForm_player.TrackBar3Change(Sender: TObject); begin BASS_FXGetParameters(fx[1], @p);//считываем параметры канала p.fgain := 15-TrackBar3.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[1], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar4Change(Sender: TObject); begin BASS_FXGetParameters(fx[2], @p);//считываем параметры канала p.fgain := 15-TrackBar4.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[2], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar5Change(Sender: TObject); begin BASS_FXGetParameters(fx[3], @p);//считываем параметры канала p.fgain := 15-TrackBar5.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[3], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar6Change(Sender: TObject); begin BASS_FXGetParameters(fx[4], @p);//считываем параметры канала p.fgain := 15-TrackBar6.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[4], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar7Change(Sender: TObject); begin BASS_FXGetParameters(fx[5], @p);//считываем параметры канала p.fgain := 15-TrackBar7.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[5], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar8Change(Sender: TObject); begin BASS_FXGetParameters(fx[6], @p);//считываем параметры канала p.fgain := 15-TrackBar8.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[6], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar9Change(Sender: TObject); begin BASS_FXGetParameters(fx[7], @p);//считываем параметры канала p.fgain := 15-TrackBar9.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[7], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar10Change(Sender: TObject); begin BASS_FXGetParameters(fx[8], @p);//считываем параметры канала p.fgain := 15-TrackBar10.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[8], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar11Change(Sender: TObject); begin BASS_FXGetParameters(fx[9], @p);//считываем параметры канала p.fgain := 15-TrackBar11.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[9], @p);//устанавливаем измененные параметры end;
procedure TForm_player.TrackBar12Change(Sender: TObject); begin BASS_FXGetParameters(fx[10], @p);//считываем параметры канала p.fgain := 15-TrackBar12.position;//задаем усиление в зависимости от позиции TrackBar BASS_FXSetParameters(fx[10], @p);//устанавливаем измененные параметры end;
Вот и все эквалайзе готов. Если вас не устраивает качество регулировки звука, то можно поиграть с параметрами p.fBandwidth и p.fCenter(с полосой пропускания и центральной частотой канала регулирования).
Далее делаем визуализацию проигрывания музыки. Для этого я использую готовую визуализацию из примеров по Bass.dll.
{ Spectrum Visualyzation by Alessandro Cappellozza version 0.8 05/2002 http://digilander.iol.it/Kappe/audioobject}
немного переделав ее под свой проигрыватель.
В разделе Type добавим следующую строку:
TFFTData = array [0..512] of Single;
type TFFTData = array [0..512] of Single; TPlayerMode = (Stop, Play, Paused); TForm_player = class(TForm) pb1: TPaintBox; Label1: TLabel;
В разделе Var добавим строки
//переменные визуализации FFTPeacks : array [0..128] of Integer; FFTFallOff : array [0..128] of Integer;
var Form_player: TForm_player; i:integer; //номер проигрываемой песни в playlist filename: string;//имя файла Channel : DWORD;// Mode: TPlayerMode;//PlayMode //переменные для настройки эквалайзера p: BASS_DX8_PARAMEQ; fx: array[1..10] of integer; //переменные визуализации FFTPeacks : array [0..128] of Integer; FFTFallOff : array [0..128] of Integer;
Создаем процедуру визуализации, для этого в разделе Type перед разделом private описываем процедуру Draw;
procedure TForm_Player.Draw(HWND : THandle; FFTData : TFFTData; X, Y : Integer); var i, YPos : LongInt; YVal : Single; begin //очистка области визуализации pb1.Canvas.Pen.Color := clBlack; pb1.Canvas.Brush.Color := clBlack; pb1.Canvas.Rectangle(0, 0, pb1.Width, pb1.Height); //визуализация // pb1.Canvas.Pen.Color := clRed; for i := 0 to 127 do begin // количество столбиков YVal := Abs(FFTData[i]); YPos := trunc((YVal) * 500); if YPos > pb1.Height then YPos := pb1.Height;
if YPos >= FFTPeacks[i] then FFTPeacks[i] := YPos else FFTPeacks[i] := FFTPeacks[i] - 1;
if YPos >= FFTFallOff[i] then FFTFallOff[i] := YPos else FFTFallOff[i] := FFTFallOff[i] - 3; //рисование пика pb1.Canvas.Pen.Color := clYellow; pb1.Canvas.MoveTo(X + i*(3+1) , Y + pb1.Height - FFTPeacks[i]); pb1.Canvas.LineTo(X + i*(3+1) + 3, Y + pb1.Height - FFTPeacks[i]); //рисование столбика pb1.Canvas.Pen.Color := clRed; pb1.Canvas.Brush.Color := clRed; pb1.Canvas.Rectangle(X + i*(3+1) , Y + pb1.Height - FFTFallOff[i], X + i*(3+1) + 3, Y + pb1.Height);
end;
end;
В событии OnTime компонента Timer1 добавим строки вызова визуализации в var FFTFata : TFFTData;
procedure TForm_player.Timer1Timer(Sender: TObject); var FFTFata : TFFTData; TrackLen, TrackPos: Double; ValPos: Double; ValLen: Double; begin //проверяем режим воспроизведения, если не Play то выходим if mode<>play then Exit;
//воспроизведение следующей песни //если время проигрывания равно длине песни по времени, if BASS_ChannelGetPosition(channel, 0)= BASS_ChannelGetLength(channel, 0) then // в место if BASS_ChannelGetPosition(channel, 0)=BASS_ChannelGetLength(channel, 0)then // можно сделать так: if BASS_ChannelIsActive(channel)=BASS_ACTIVE_STOPPED then // Практика показывает, что второй вариант более предпочтительный, // т.к. проверка по длине трека иногда приводит к ошибкам в работе плеера. begin //то выбираем следующую песню из плейлиста if i<ListBox1.Items.Count-1 then begin inc(i); Filename:=ListBox1.Items.Strings[i]; ListBox1.ItemIndex:=i; mode:=stop; player; end //если лист закончился - выходим else exit; end;
//устанавливаем позицию scrollbar в зависимоти от позиции трека scrollbar1.Position:=bass_channelGetPosition(channel,0);
//время проигрывания трека //считаваем сколько секунд прошло от начала воспроизведения TrackPos:=BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetPosition(Channel,0)); //считываем всю длину песню в секундах TrackLen:=BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel,0)); //переводим секунды в часы ValPos:=TrackPos / (24 * 3600); ValLen:=TrackLen / (24 * 3600); //Выводим данные о времени на форму в Label1 и Label2 Label1.Caption:=FormatDateTime('hh:mm:ss',ValPos); Label2.Caption:=FormatDateTime('hh:mm:ss',ValLen);
|