
18.01.2011, 10:47
|
 |
Начинающий
|
|
Регистрация: 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;
|
Спасибо, буду пробовать!
|