Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать эквалайзер? [D6, D7, Win95/98, WinME, WinXP]


ArtKil ©   (2005-05-12 20:05:00) 

Помогите, кто может сделать эквалайзер на Bass. Скачал его, но там всё по-английски.


Nik_vr   (2005-05-12 21:37:00) [1]

Найди на Torry компонент BASSPlayer - там есть отличный пример работы с BASS.


programania   (2005-05-12 21:04:00) [2]


const qEQ=9;

type
BASS_FXPARAMEQ = record
 fCenter: FLOAT;
 fBandwidth: FLOAT;
 fGain: FLOAT;
end;

var
EQ:   EQ:BASS_FXPARAMEQ;
fx:array[0..qEQ] of dWord;
...
//инициализация
for i:=0 to qEQ do fx[i]:=BASS_ChannelSetFX(chan,BASS_FX_PARAMEQ);

//установка тембра
for i:=0 to qEQ do begin
 EQ.fCenter:=1000;     //частота 80..20000
 EQ.fBandwidth:=4;    // ширина полосы 0..12
 EQ.fGain:=0;             // усиление -15..+15,
 if fx[n]<>0 then BASS_FXSetParameters(fx[n],@EQ);
end;


Кстати в delphi тоже все по английски так что спрашивай переведу и delphi


Наверх

Титульная страница Поиск, карта сайта Написать письмо