Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.12.2010, 15:56
InRock InRock вне форума
Прохожий
 
Регистрация: 10.12.2010
Сообщения: 1
Репутация: 10
Плохо Эквалайзер на Bass.dll

Делаю онлайн мп3 плеер и хочу сделать эквалайзер.
Посмотрел в примере. Сделал как там написано и ничего не работает.
Двигаю ползунок, но 0 реакций(
помогите решить проблему..
Ответить с цитированием
  #2  
Старый 10.12.2010, 18:38
Аватар для ryderx34
ryderx34 ryderx34 вне форума
Активный
 
Регистрация: 22.01.2010
Сообщения: 211
Версия Delphi: 7, 2010
Репутация: 1349
По умолчанию

Я делал примерно так:
Код:
var
  FileStream: HSTREAM; // handle воспроизводящегося потока
  FX: HFX; // handle добавляемого эффекта

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  PE: BASS_DX8_PARAMEQ;
begin
  BASS_ChannelRemoveFX(FileStream, FX); // чтобы убрать предыдущую настройку
  FX := FBASS_ChannelSetFX(FileStream, BASS_FX_DX8_PARAMEQ, 1);
  PE.fCenter := 80; // частота регулируемой полосы (в герцах, от 80 до 16000)
  PE.fGain := TrackBar1.Position; // задаваемое значение (от -15 до 15)
  BASS_FXSetParameters(FX, @PE);
end;
Ответить с цитированием
  #3  
Старый 18.01.2011, 10:47
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию

Цитата:
Сообщение от ryderx34
Я делал примерно так:
Код:
var
  FileStream: HSTREAM; // handle воспроизводящегося потока
  FX: HFX; // handle добавляемого эффекта

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  PE: BASS_DX8_PARAMEQ;
begin
  BASS_ChannelRemoveFX(FileStream, FX); // чтобы убрать предыдущую настройку
  FX := FBASS_ChannelSetFX(FileStream, BASS_FX_DX8_PARAMEQ, 1);
  PE.fCenter := 80; // частота регулируемой полосы (в герцах, от 80 до 16000)
  PE.fGain := TrackBar1.Position; // задаваемое значение (от -15 до 15)
  BASS_FXSetParameters(FX, @PE);
end;

Спасибо, буду пробовать!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:00.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter