[Delphinic]

Вот дошел наконец то до индикатора уровня звука.
Вот только незнаю даже с чего начать то..
Как это дело осуществляется??
Чтоб ProgressBar мне уровень звука показывал.
И причем не тормозил, а выводил без запозданий..
Мне надо не с линейного входа а когда воспроизвожу Mp3.

Мож библиотека спецовая есть?

[CyberM@D]

Конечно есть - Mmtools называется. Правда триальные они, если программу запускаешь не из Дельфина, то ругается с требованием регистрации, но это не проблема - если подойдут тебе компоненты, то я без проблем помогу с лекарством :-)

[Delphinic]

А с Bass-ом я могу ченть соорудить? Потому что я на нем плеер начал уже делать, точне сделал почти, осталось тока индикатор.

[Ferra]

с басс можно.. ты не пробовал у них главную демку на сайте качать?

да и вообще что ты хочешь ? какой именно уровень звука?

[Delphinic]

Я не уровень хочу. А когда музыка звучит чтоб прогрессбары показывали уровень звука во время игры. (ну по простому, чтоб дергались под музыку 2 полоски). :d Блин посинел от такого описания аж.. :d
Я сгенерю файл в адобу аудишне, например частотой 2000 кгц. И уровнем 0 децибел. И вот буду на своем плеере воспроизводить и индикатор уровня должен тоже так же показывать 0 децибел, но градуировку сделать не сложно.
А вот как сообразить индикатор. Например в винампе не индикатор уровня и просто куча полосочек бегает, это все туфта, и показывают они непойми чего. Хотя называется это чудо Анализатор спектра частот.
Я сам электронщик и понимаю для чего это все надо.

[Delphinic]

С индикатором разобрался но на половину. Он моно получился.
Стерео не получается. А кстати в этой библиотеке басс отлично работает анализатор спектра, показывает реальную частоту! Это радует!
Клево чел шарит в этом деле раз написал такой модуль!
Да и индикатор уровня получился точный!! Просто супер!
Вот тока с ДПС эффектами разобраться надо и эквалайзер ну никак не получается.. Копался я в исходниках копался но для начинающего это дебри, так и не докопался!
Вот так сделал просто попробовать, ничего не меняется но и ошибку не выдает.

Bass.BASS_FXSetParameters(Hand,@eqparam);
eqparam.fCenter := 3000; // частота
eqparam.fBandwidth := StrToInt(ED1.Text); //непонял для чего
eqparam.fGain := 15; // уровень частоты.
Bass.BASS_FXSetParameters(Hand,@eqparam);

Подскажите плиз.