Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Визуальный спектр звука 
V
    Опции темы
AbverSoft
Дата 11.2.2014, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Доброго времени суток!

В аудио плеере Aimp есть визуальный спектр на подобие движущийся осциллографа. Решил попробывать сделать с применением библиотеки Bass.
И вот что из этого получилось. Есть проблемы с привильностью вытаскивания данных. 
Помогите разобраться как правильно сделать чтобы отображалось визуализация как надо.

Это сообщение отредактировал(а) AbverSoft - 11.2.2014, 23:13

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  mp3_9d.zip 234,68 Kb
PM MAIL   Вверх
AbverSoft
Дата 13.2.2014, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.6.2007

Репутация: нет
Всего: нет
Подскажите правильность заполнения данных
PM MAIL   Вверх
AndreyZ53
Дата 20.3.2014, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: 1
Всего: 2
Создаем спектрум:

Код

   Spectrum:=TSpectrum.Create(PaintBox1.Width,PaintBox1.Height);
   Spectrum.Mode:=1;
   Spectrum.BackColor:=clMenuText;


Затем передаем ему данные для отображения:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
var
FFFData:TFFTData;
begin
   try
    BASS_ChannelGetData(url_radio,@FFFData,BASS_DATA_FFT1024);
    Spectrum.Draw(PaintBox1.Canvas.Handle,FFFData,1,1);
   except
    on e:Exception do
   end;
end;


Пример прилагаю!

Да и я уже писал на форуме про спектрум - http://forum.vingrad.ru/forum/topic-264874...y1913097/0.html

Это сообщение отредактировал(а) AndreyZ53 - 20.3.2014, 14:11

Присоединённый файл ( Кол-во скачиваний: 21 )
Присоединённый файл  Radio_bass.zip 736,32 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
crazynetwork
Дата 13.9.2014, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 16.10.2009

Репутация: нет
Всего: нет
А как насчет под FM ?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0795 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.