Частотная Визуализация

  • Автор темы INTELlect
  • Дата начала
I

INTELlect

#1
Пишу программу для прослушивания радио через интернет. Все замечательно но есть одно но. Пишу на bass.dll. Никак не могу настроить частотную визуализацию. Есть 2 TProgressBar которые отвечают за левый и правый каналы соответственно. Но почему то реакции при воспроизведении никакой. Помогите пожалуйста разобраться. Заранее спасибо!

""
procedure TForm1.Timer1Timer(Sender: TObject);
var
wavedata:twavedata;
r,l:SmallInt;
begin
BASS_ChannelGetData(chan,@wavedata,BASS_DATA_FFT1024);
R := SmallInt(LOWORD(WaveData[0]));
L := SmallInt(HIWORD(WaveData[0]));
Progressbar1.position:=r;
Progressbar2.position:=l;
end;
""
Вот код изъятия из потока данных о звуке