Bass 1.3

[Кольша]

ребят опишите все функции этой старенькой библы и их применение просто у меня плеер на ней ((( а вот перевести на более новую немогу((

[p51x]

возьмите доку и прочитайте

[Anfall]

А в чем проблема перевести на последнюю версию?
подключаешь bass.pas
bass.dll кидаешь рядом с экзэшником.

oncreate

BASS_init(-1,44100,0,form1.handle,nil);

openfile (для юникодной делфи)

var
  channel: HStream;
begin
  BASS_StreamFree(channel); {если уже был открыт файл. Если что никаких ошибок не вылезет}
  channel :=  BASS_StreamCreateFile(False, PChar(FILEPATH), 0, 0, BASS_UNICODE);
end;

play/pause/stop

BASS_ChannelPlay(channel, false);
BASS_ChannelPause(Channel);
BASS_ChannelStop(Channel)

Ну и все в таком стиле. Если надо, могу поискать у себя еще разных функций, типа определение текущей позиции, продолжительность и т.д.

[Кольша]

проблема в том что я не умею делать эквалайзер и анализатор звука на новой версии bass.dll((((((
ну и кстати зацените http://ka4kavk.ks8.ru/komp/K.O.M.P.exe

[Anfall]

Сообщение от Кольша

проблема в том что я не умею делать эквалайзер и анализатор звука на новой версии bass.dll((((((
ну и кстати зацените http://ka4kavk.ks8.ru/komp/K.O.M.P.exe

В эквалайзере ничего сложного нет.
Объявляем переменные (в примере использую глобальные, но лучше их не использовать, а сделать отдельный класс):

var
 p: BASS_DX8_PARAMEQ;
 fx: array[1..10] of integer;

Кидаем на форму 10 трэкбаров: Trackbar1,Trackbar2.....Trackbar10. У всех max: 30, min: 0, position:15.
А также назначаем каждому трэкбару tag. Первому (Trackbar1) ставим tag=1, Второму (Trackbar2) ставим tag=2 и так до последнего (10-го) трэкбара.

Сделаем для них один общий обработчик onchange:

procedure TForm1.TrackBarChange(Sender: TObject);
begin
  SetEQ((sender as Ttrackbar).Tag,(sender as Ttrackbar).Position);
end;

Далее создадим 3 процедуры:

1) данную процедуру мы должны вызывать как только открыли файл (можно сделать конечно в цикле, но так наглядней).

procedure TForm1.inieq;
begin
    fx[1] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//первый канал эквалайзера
    fx[2] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);//второй канал
    fx[3] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[4] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[5] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[6] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[7] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[8] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[9] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);
    fx[10] := BASS_ChannelSetFX(channel, BASS_FX_DX8_PARAMEQ, 1);

    p.fBandwidth := 18; //ширина полосы пропускания

    p.fGain := 15-formeq.TrackBar1.Position;
    p.fCenter := 80;
    BASS_FXSetParameters(fx[1], @p);

    p.fGain := 15-formeq.TrackBar2.Position;
    p.fCenter := 170;
    BASS_FXSetParameters(fx[1], @p);

    p.fGain := 15-formeq.TrackBar3.Position;
    p.fCenter := 310;
    BASS_FXSetParameters(fx[3], @p);

    p.fGain := 15-formeq.TrackBar4.Position;
    p.fCenter := 600;
    BASS_FXSetParameters(fx[4], @p);

    p.fGain := 15-formeq.TrackBar5.Position;
    p.fCenter := 1000;
    BASS_FXSetParameters(fx[5], @p);

    p.fGain := 15-formeq.TrackBar6.Position;
    p.fCenter := 3000;
    BASS_FXSetParameters(fx[6], @p);

    p.fGain := 15-formeq.TrackBar7.Position;
    p.fCenter := 6000;
    BASS_FXSetParameters(fx[7], @p);

    p.fGain := 15-formeq.TrackBar8.Position;
    p.fCenter := 12000;
    BASS_FXSetParameters(fx[8], @p);

    p.fGain := 15-formeq.TrackBar9.Position;
    p.fCenter := 14000;
    BASS_FXSetParameters(fx[9], @p);

    p.fGain := 15-formeq.TrackBar10.Position;
    p.fCenter := 16000;
    BASS_FXSetParameters(fx[10], @p);
end;

2) Данная процедура удаляет настройки эвалайзера (можно вызывать перед освобождением канала)

procedure Tform1.RemoveEQ;
var
  i: Integer;
begin
  for i := 1 to 10 do
  begin
    BASS_ChannelRemoveFX(channel, Fx[i]);
  end;
end;

3) Ну и сам обработчик события onchange для наших трэкбаров:

procedure Tform1.SetEQ(x:integer;z:integer);
begin
  BASS_FXGetParameters(fx[x], @p);
  p.fgain := 15-z;
  BASS_FXSetParameters(fx[x], @p);
end;

Если что не работает, пиши. Может чего забыл.

[Кольша]

спасиб время будет начну переводить на новую кстати мне никто так и не сказал во первых как плеер? во 2 а как же сделать анализатор звука за помощь спасибо))

[ZuBy]

эквалайзер на bass_fx
Учимся писать анализаторы

[Кольша]

спасибо Zuby,скажи а как ты в своем плеере сделал редактор тегов????

[ZuBy]

а что именно интересует?

[Кольша]

Ваще интересует все но можеш хотябы сказать как твой плеер загружает обложку альбома я вчера себе голову сломал не смог загрузить((