Sound_ProgressBar1
Люди у меня такая проблемка! :(
Я хочу сделать чтобы при воспроизведении музыки (На форме есть медиа плеер) ProgressBar1 реагировал на музыку!
И мне еще необходимо за счет Label1 чтоб там выводили цифры как бы громкости звука!
Чтоб Label1 также реагировал как ProgressBar1 только выводил цифры!
К сожалению кода для примера нету!:(
Заранее спасибо!
Я хочу сделать чтобы при воспроизведении музыки (На форме есть медиа плеер) ProgressBar1 реагировал на музыку!
И мне еще необходимо за счет Label1 чтоб там выводили цифры как бы громкости звука!
Чтоб Label1 также реагировал как ProgressBar1 только выводил цифры!
К сожалению кода для примера нету!:(
Заранее спасибо!
Есть отличная библиотека для работы с аудио: BASS library http://www.un4seen.com/. В ней всего полно: графический эквалайзер, регулировка громкости, чтение тегов и т.д. Есть примеры на Делфи.
Ну с прогрессбаром будет что то типо этого:
при открытии файла:
Кинь на форму таймер
при открытии файла:
Код:
Gauge1.MaxValue:=MediaPlayer1.Length;
Кинь на форму таймер
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Gauge1.AddProgress(1);
end;
begin
Gauge1.AddProgress(1);
end;