Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2008, 00:56   #1
N-DOGG
 
Регистрация: 02.02.2008
Сообщений: 4
По умолчанию Помогите с параметрическим эквалайзером в BASS.DLL!

Народ! Срочно, help! Переписал всё как в sampl'е, но почему-то не хочет работать....


Код:
fx[1] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 1);
fx[2] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 2);
fx[3] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 3);
fx[4] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 4);
fx[5] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 5);
fx[6] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 6);
fx[7] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 7);
fx[8] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 8);
fx[9] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 9);
fx[10] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 10);

 p.fGain := -15;
 p.fBandwidth := 0;
 p.fCenter := 80;
 BASS_FXSetParameters(fx[1], @p);
 p.fCenter := 170;
 BASS_FXSetParameters(fx[2], @p);
 p.fCenter := 310;
 BASS_FXSetParameters(fx[3], @p);
 p.fCenter := 600;
 BASS_FXSetParameters(fx[4], @p);
 p.fCenter := 1000;
 BASS_FXSetParameters(fx[5], @p);
 p.fCenter := 3000;
 BASS_FXSetParameters(fx[6], @p);
 p.fCenter := 6000;
 BASS_FXSetParameters(fx[7], @p);
 p.fCenter := 12000;
 BASS_FXSetParameters(fx[8], @p);
 p.fCenter := 14000;
 BASS_FXSetParameters(fx[9], @p);
 p.fCenter := 16000;
 BASS_FXSetParameters(fx[10], @p);
И на событие OnChange для компонентов TSlider (Аналог Track Bar):

Код:
 BASS_FXGetParameters(fx[1], @p);
 p.fGain := 15-Slider1.Value;
 BASS_FXSetParameters(fx[1], @p);
Например, для 1-го параметра. Заранее спасибо!
N-DOGG вне форума Ответить с цитированием
Старый 30.12.2008, 19:32   #2
Anti_L@+meR
Подтвердите свой е-майл
 
Регистрация: 03.11.2008
Сообщений: 4
По умолчанию

Ребята помогите кто может у меня та-же проблемма делал так-же только у меня надо подвигать ползунок тракбара чтоб заработал эволайзер и поэтому настройку невозможно сохранить и для каждой новой песни приходится заного его двигать ЧТО НЕ ЕСТЬ ГУД

Последний раз редактировалось Anti_L@+meR; 30.12.2008 в 19:37.
Anti_L@+meR вне форума Ответить с цитированием
Старый 04.01.2009, 16:05   #3
Anti_L@+meR
Подтвердите свой е-майл
 
Регистрация: 03.11.2008
Сообщений: 4
По умолчанию

N-DOGG если нужно то я понял в чём дело вчера часок покопался в хелпе басс и нашёл нужно
Код:
fx[1] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 1);
fx[2] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 2);
fx[3] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 3);
fx[4] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 4);
fx[5] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 5);
fx[6] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 6);
fx[7] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 7);
fx[8] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 8);
fx[9] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 9);
fx[10] := BASS_ChannelSetFX(channel, BASS_FX_PARAMEQ, 10);
делать каждый раз на новый трек например надо это привезать на кнопку плей.
З.Ы.
если знаеш чёнить по работе длл или чёнить по работе с басс или появятся вопросы стучи в асю
370604461
Anti_L@+meR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
библиотека bass.dll, что это такое? дайте ссылку на хелп. vitalik007 Общие вопросы Delphi 2 29.02.2012 18:03
BASS Визуализация Garacio_cain Мультимедиа в Delphi 2 14.08.2008 00:19
Всем кто использует BASS (мультимедиа) MusicMan Помощь студентам 1 27.04.2008 10:56
Компонент для Winampa (Bass Player) DeDoK Компоненты Delphi 1 25.11.2007 09:46
bass.dll - ошибка - Use the step or run to continue. vitalik007 Общие вопросы Delphi 1 20.08.2007 19:59