|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Зависимый индикатор уровня от регулятора громкости
Привет.
Продолжаю делать 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; |