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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Визуализатор спетра bass 
V
    Опции темы
Racer
Дата 28.6.2009, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Никак не могу понять как сделать визуализатор спектра bass.  Может мне кто-то поможет, а то в плеере очень не хватает этого.
Интересуюсь именно считыванием данных о уровнях на разных частотах с потока.
PM MAIL   Вверх
AntonN
Дата 29.6.2009, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 18
http://desksoft.ru/index.php?downloads=files&id=11
Цитата

пример плеера на основе bass.dll, графический и звуковой эквалайзеры, эффекты



--------------------
user posted image
PM MAIL WWW   Вверх
AndreyZ53
Дата 2.7.2009, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 2
Я делал так
В uses подлкючил spectrum_vis
На OnCreate написал
Код

Spectrum:= TSpectrum.Create(PaintBox1.Width, PaintBox1.Height);
Spectrum.Pen:=clGreen;
Spectrum.Mode:=1;

На таймер написал
Код

var
  FFTFata : TFFTData;
begin
   BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
   Spectrum.Draw(PaintBox1.Canvas.Handle, FFTFata, 1,1);
end;

И все нормально работает! Файл spectrum_vis.pas приложил

Это сообщение отредактировал(а) AndreyZ53 - 2.7.2009, 20:16

Присоединённый файл ( Кол-во скачиваний: 61 )
Присоединённый файл  spectrum_vis.pas 4,82 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
Racer
Дата 2.7.2009, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А он не компилится: хочет CommonTypes.dcu
Где его взять?
PM MAIL   Вверх
AndreyZ53
Дата 3.7.2009, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 2
Вот дери скинул ещё пару файлов, которые должны пригодиться!

Присоединённый файл ( Кол-во скачиваний: 48 )
Присоединённый файл  ____.rar 3,28 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
Racer
Дата 3.7.2009, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А вот он еще тут ругается: 
Код

procedure TForm1.Timer3Timer(Sender: TObject);
var
 FFTFata : TFFTData; // Что за тип такой TFFTData
begin
 BASS_ChannelGetData(Handle, @FFTFata, BASS_DATA_FFT1024);
 Spectrum.Draw(PaintBox1.Canvas.Handle, FFTFata, 1,1);
end;


Он не хочет его принимать.
PM MAIL   Вверх
AndreyZ53
Дата 3.7.2009, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 2
Цитата(Racer @ 3.7.2009,  11:48)
А вот он еще тут ругается: 
Код

procedure TForm1.Timer3Timer(Sender: TObject);
var
 FFTFata : TFFTData; // Что за тип такой TFFTData
begin
 BASS_ChannelGetData(Handle, @FFTFata, BASS_DATA_FFT1024);
 Spectrum.Draw(PaintBox1.Canvas.Handle, FFTFata, 1,1);
end;


Он не хочет его принимать.

Ну вообще этот тип долже быть в этом модуле spectrum_vis.pas, я не знаю в чем дело, у меня все работет, попробуй ещё подключить модули что я тебе ща скину ещё может в них этот тип


Это сообщение отредактировал(а) AndreyZ53 - 3.7.2009, 19:49

Присоединённый файл ( Кол-во скачиваний: 31 )
Присоединённый файл  ___.rar 6,71 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
Racer
Дата 3.7.2009, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ОПять чето не пашет.
Я приложил проект на квипо-сервер, а то сюда не влазит.
Проект
PM MAIL   Вверх
AndreyZ53
Дата 3.7.2009, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 2
Все ща точно должно работать, прилаживаю файл с типами данных не забудь его подлюкчать также в uses в твоем бы проекте сделал, но нету компонентов тех которые ты использовал у себя. Ещё хотел у тебя спросить, сорри что не по теме, но как ты сделал липкое окно у себя, там где у тебя плэйлист идет? И скажи помог последний файлик, работает?

Присоединённый файл ( Кол-во скачиваний: 41 )
Присоединённый файл  ___.rar 0,92 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
Racer
Дата 3.7.2009, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Липкое окно: 
Код

  private
    { Private declarations }
  procedure noMovePlease(var Message: TMessage); message WM_NCHITTEST;
. . .
procedure TForm2.noMovePlease(var Message: TMessage);
begin
 inherited;
 with Message do
 if Result = HTCAPTION then Result := HTNOWHERE;
end;

И все. Где-то на форумах нашел)))))
Щас проверю с последним файлом. Надеюсь поможет.

Добавлено через 7 минут и 8 секунд
1) Эти файлы ты уже давал и в юзес я их записывал.
2) НЕ заработало!!! smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile  smile 
PM MAIL   Вверх
AndreyZ53
Дата 4.7.2009, 09:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 2
Вот держи я тебе сделал проект, простой открой файл и все появиться, запусти exe у меня работает!!! Использую bass.dll версии 2.4 так что ничего не меняй там должно все работать, отпишись потом!

Присоединённый файл ( Кол-во скачиваний: 179 )
Присоединённый файл  bass.rar 288,69 Kb
--------------------
https://itbases.ru/
PM MAIL WWW Skype   Вверх
Racer
  Дата 12.7.2009, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Все работает. Я так давно не писал т.к. не был дома.Все супер, я уже его к себе в проект вставил. Еще сделаю скины не альфаконтролзом, а будет плеер сам рисовать. Думаю так оперативы будет меньше жрать, а то по моему А..контролз все скины сразу в память грузит, а так не пойдет, надо чем меньше тем лучще. Как сделаю, дам проект.

Большое СПАСИБО за помощь!!!!!!!!!!!! smile  smile  smile  smile  smile  smile


Это сообщение отредактировал(а) Racer - 12.7.2009, 20:55
PM MAIL   Вверх
Racer
Дата 12.7.2009, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Столкнулся с проблемой - надо новый трекбар. Такой чтобы, можно было его стиль менять- ну там сам бегунок и полосу для бегунка. Надо чтоб и в 1 и во 2 вышеукзанное свойство можно было вставить картинки. Альфаконтролз не предлагать (хоть там картинку вставить нельзя), я от этого как раз отказываюсь. Может у кого есть такой ком-т? Или кто умеет писать ком-ты может мне поможет, т.к. я ни разу не писал сам ком-т. Канешно позже попробую а щас не могу
PM MAIL   Вверх
Alexeis
Дата 12.7.2009, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Модератор: Пожалуйста, один топик - один вопрос.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

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

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

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

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

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

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


 




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


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

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