[valvl63]

Привет.
Продолжаю делать 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;

Подкиньте, пожалуйста, идею.

[Uniq!]

Я запутался: вам нужен индикатор громкости?
в библиотеке BassDll должно быть событие OnLevelChange, т.е. событие возникающее при изменении громкости. Вот его нужно отловить и в нём менять положение в ProgressBar.

Если этого события нет, то в TimerOnTimer просто считывайте Level и присваивайте его ProgressBar. (но это как-то фу... )

[Alegun]

Возможно так

Код:

...
ProgressBar1.position:=HiWord (Level) * Trackbar1.Position;
ProgressBar2.Position:=LoWord (Level) * Trackbar1.Position;
...

[valvl63]

Сообщение от Alegun

Возможно так

Код:

...
ProgressBar1.position:=HiWord (Level) * Trackbar1.Position;
ProgressBar2.Position:=LoWord (Level) * Trackbar1.Position;
...

Большое спасибо.
Да, это то, что мне нужно.
Только выходит очень большой max где то:

Код:

Progressbar1.max:=300000;

Так это должно быть?

[Alegun]

Это всё же пример был, тогда разделите на 20 (как у вас в коде)

[valvl63]

Крутил-вертел и сделал:

Код:

ProgressBar max = 8
...
ProgressBar1.position:=(HiWord (Level) * Trackbar1.Position) div 65535;
...

Я думаю сойдет.