bass.dll

[Elem]

Понял, спасибо за помощь!!! Ещё один вопрос, как мне сделать, так чтобы я получал массив амплитуд и частот для каждой последюющей секнды, но мне, не нужен интерфейс, мне в результате всего лишь нужен текстовый файл. То есть, каким образом мне разбить поток на секунды, и для каждой найти массив? Пробовал:

for i:=1 to long do
 begin
  posit:=posit+round(d/long);
  BASS_ChannelSetPosition(stream,posit,BASS_POS_BYTE);
  BASS_ChannelGetData(stream,@fft,BASS_DATA_FFT1024);
.........................................................................
 end;

где d-длина в байтах, long - длина в секундах.
Так, вроде должно работать.

[iankov]

Ну я бы сделал так:
BASS_ChannelGetData(channel1, @fftdata, BASS_DATA_FFT4096);

for i:=0 to 149 do begin
//сохранить в файл амплитуду fftdata[i];
//сохранить в файл частоту (i*11025/4096)
end;
это закинул бы в таймер с интервалом 1 сек.
В результате в файле получилось бы 150 записей для каждой секунды.
амплитуда
частота
амплитуда
частота
.......

[Elem]

Оно то так, только тогда надо будет ждать 150 секунд, а я бы хотел, чтобы этот цикл быстро прошёл.

[iankov]

Не понял, почему 150 сек?

procedure timer1.timer(лялялял, не помню как там...);
begin

BASS_ChannelGetData(channel1, @fftdata, BASS_DATA_FFT4096);
for i:=0 to 149 do begin
//сохранить в файл амплитуду fftdata[i];
//сохранить в файл частоту (i*11025/4096)
end;

end;

Цикл пройдет настолько быстро, насколько позволяет процессор для обработки данных и диск для записи данных - у меня это выполняется в миг.

[Elem]

А какой интервал на таймере?

[iankov]

1.jpg
Interval на скрине установлен в 1000 - т.е. 1000 миллисекунд что равно 1сек. Каждую 1 сек исполняется код находящийся внутри процедуры, которая автоматически создается если сделать двойной клик по компоненту который находится на форме.

[Berkutfso]

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

[ZuBy]

а зачем вообще это...
посмотри исходник Easy Player, там есть юнит спектр...
там всё что тебе нужно, если ты спектр хочешь сделать...

[ZuBy]

Easy Player есть на форуме...