Анализатор спектра текущего звука.

[raxp]

...а что мешает его включить? При использовании BASS есть возможность выбора записи со стереомикшера:


остается только активировать его. Может в семерке по-другому, но у меня в XP захват через BASS работает для микшера и в записи и воспроизведении, а последний активирован по дефолту всегда.

[саша40]

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

саша40, зачем постить настолько сырую информацию
1. Создавать нужно массив с типом Single. Размер зависит от параметра. 1024 только для BASS_DATA_FFT1024
2. У меня получилось прикрутить эту функцию только для микрофона. Использование микшера недопустимо. Может у тебя пример есть? Интересно, как это выглядит - на плюсы не скуплюсь, если это можно так реализовать (но я сомневаюсь)
3. Почему именно панель? Рисовать можно где угодно и как угодно.

Сам реализовал всё с помощью BASSWASAPI

1. Да ты прав, третий параметр функции.
2. Спектр частот зависит от параметра канала
(громкость и баланс) и FX- параметров.
Код:

TFFTData  = array [0..512] of Single; //в типы 

//переменные визуализации
FFTPeacks  : array [0..128] of Integer;
FFTFallOff : array [0..128] of Integer; //в глобальные

procedure Draw(HWND : THandle; FFTData : TFFTData; X, Y : Integer); //private у класса формы


//процедура(Рисуем спектрум)
var i, YPos : LongInt; YVal : Single;
       begin
       //очистка области визуализации
          pb1.Canvas.Pen.Color := clBlack;
          pb1.Canvas.Brush.Color := clBlack;
          pb1.Canvas.Rectangle(0, 0, pb1.Width, pb1.Height);
       //визуализация
       // pb1.Canvas.Pen.Color := clRed;
         for i := 0 to 127 do begin // количество столбиков
           YVal := Abs(FFTData[i]);
           YPos := trunc((YVal) * 500);
           if YPos > pb1.Height then YPos := pb1.Height;

           if YPos >= FFTPeacks[i] then FFTPeacks[i] := YPos
             else FFTPeacks[i] := FFTPeacks[i] - 1;

           if YPos >= FFTFallOff[i] then FFTFallOff[i] := YPos
              else FFTFallOff[i] := FFTFallOff[i] - 3;
                     //рисование пика
                     pb1.Canvas.Pen.Color := clYellow;
                     pb1.Canvas.MoveTo(X + i*(3+1) , Y + pb1.Height - FFTPeacks[i]);
                     pb1.Canvas.LineTo(X + i*(3+1) + 3, Y + pb1.Height - FFTPeacks[i]);
                     //рисование столбика
                     pb1.Canvas.Pen.Color := clRed;
                     pb1.Canvas.Brush.Color := clRed;
                     pb1.Canvas.Rectangle(X + i*(3+1) , Y + pb1.Height - FFTFallOff[i], X + i*(3+1) + 3, Y + pb1.Height);

              end;

        end;  

//Timer(onTime)
var FFTFata : TFFTData;

BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024); //параметры: Имя звукового патока, Буфер записи данных, Параметр 3.
Draw (pb1.Canvas.Handle, FFTFata, 0,-5); //параметры: Handle канваса обьекта(pb1=TPaintBox), Переменая, смещение от левого края, поднитие спектра вверх по Y(оси!)

Взято от сюда:
http://basicsprog.ucoz.ru/publ/6-1-0-19

3. PaintBox подойдет?

[TwiX]

Да, басс может захватить микшер. Но можно захватить и сами колонки с помощью того же басса. И при этом включать микшер не надо. Это же куда лучше и коректней - разве нет?

[TwiX]

саша40, брр. Навреное, стоит ещё раз перечитать вопрос из первого особщения. Твой пример для файла

[саша40]

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

Твой пример для файла

Разве? Я пробывал его с любыми патоками. Интернет-радио отлично работает. Хочу использовать и при потоковом приеме.

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

Сообщение от саша40

Разве? Я пробывал его с любыми патоками. Интернет-радио отлично работает. Хочу использовать и при потоковом приеме.

поток данных, это не поток аудио.

[саша40]

Сообщение от Пепел Феникса

поток данных, это не поток аудио.

Bass_StreamCreateUrl создает паток из ссылки на канал(радио или файл кажись). Выходной параметр переменая типа HStream. Вот это ты имеел ввиду.

[raxp]

...Саша прав, BASS прекрасно строит спектр и для потока с интернета, а поскольку он лишь обертка над DirectSound, то работа осуществляется с аудиоданными.

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

прикол в том, что у ТС были проблемы именно с получением звука того что сейчас играет(общий), а не с тем как строить спектрограмму с файла.