Привет.
Продолжаю делать PlayerMp3 на bass.dll.
Нужна помощь.
Есть код индикатора уровня (для примера на ProgressBar-е.
ProgressBar1.Max:=28000):
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
L,R,L1,R1: integer;
Level: DWORD; //Переменная для получения данных с канала
begin
if Bass_ChannelIsActive (stream) <> Bass_Active_Playing then exit;
//Если канал не воспроизводится, то выводим отсюда then exit
Level:=Bass_ChannelGetLevel (stream);
L:=HiWord (Level);
R:=LoWord (Level);
ProgressBar1.position:=HiWord (Level);
ProgressBar2.Position:=LoWord (Level);
end;
Нужно сделать индикатор зависимым от положения регулятора громкости
Код:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, Trackbar1.position / 20);
end;
Подкиньте, пожалуйста, идею.