Визуализация эквалайзера BASS.DLL

[SoftKoc]

!Здравствуйте!

Пишу плеер хочу сделать визуализацию эквалайзера.
Что-то похожие на вот это :
gui_07.jpg
Подскажите пожалуйста как можно это реализовать!

!Заранее очень благодарен!

[mihali4]

Выбираем "ПОИСК", вводим это умное словечко - "эквалайзер" и получаем кучу ответов. Например:
http://programmersforum.ru/showthrea...E0%E9%E7%E5%F0
http://programmersforum.ru/showthrea...E0%E9%E7%E5%F0
и так далее...
Смотрели?

[SoftKoc]

Честно сказать, смотрел.
Но кроме советов по использованию BASS.DLL я ничего там не видел.
Может что-то пропустил.=-(

[raxp]

если под видуализацией эквалайзера вы понимаете - спектроанализатор, отображение в реальном времени гармонических составляющих (потому-что, эквалайзер это регулятор средних уровней в частотных полосах, каналах), то вот

[SoftKoc]

Ведь там на С
Я к сожалению С не очень =-(

[JTG]

http://programmersforum.ru/attachmen...4&d=1245855699 (экзешник с вируснёй induc.a, перекомпелируй)

Только массив data иначе нужно использовать - допустим на входе звук с частотой 44100 Hz, Bass_ChannelGetData с флагом BASS_DATA_FFT256 и пишем в массив data: array[1..128] of single
Потом находим некий коэффициент по формуле 44100/256 = 172,3
Уровень сигнала (от 0 до 1) на частоте 440 Hz будет лежать в data[round(440/172,3)]

Там запись с микрофона или микшера. Чтоб mp3 проиграть - BASS_StreamCreate вместо BASS_Recordхххххх

[raxp]

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

Ведь там на С
Я к сожалению С не очень =-(

не все так мрачно, смотрите...

до...
...
float fft[512]; // fft data buffer 
Height=H-1; 
X=0; 
Y=0;
if(FrameClear) 
{ 
Form1->PaintBox1->Canvas->Pen->Color=BackColor; 
Form1->PaintBox1->Canvas->Brush->Color=BackColor; 
Form1->PaintBox1->Canvas->Rectangle(0,0,W,H); 
} 
if(BASS_ChannelIsActive(stream)!=BA SS_ACTIVE_PLAYING)

после...
...
procedure draw(....; fft: array [0..511] of extended);
var ...
begin
 Height:= H-1; 
 X:= 0; 
 Y:= 0;

 if(FrameClear) then with PaintBox1.Canvas do begin
  Pen.Color  := BackColor; 
  Brush.Color:= BackColor; 
  Rectangle(0, 0, W, H) 
 end;

 if(BASS_ChannelIsActive(stream) <> BA SS_ACTIVE_PLAYING) then

[SoftKoc]

Простите но я не могу понять как и откуда брать частоту звука.
Что-то пробовал писать по этим примерам. Но ничего не получилось.
Исходник не качал у меня антивирус не очень, а только винду поставил.

[raxp]

Исходник не качал у меня антивирус не очень, а только винду поставил

что до этого, скачайте цей архив и оставьте только- pas, dpr, dfm, bass.dll и вируса не будет и тогда вот этого

Простите но я не могу понять как и откуда брать частоту звука

не будет

[Пепел Феникса]

а демки с самим Bass.dll смотрели?
там же разжевано все.