Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Громкость и эквалайзер [D6, WinXP]

Масяня © (2005-07-25 14:03:00)
Господа, подскажите пожалуйста, как программно реализовать регулятор громкости и/или эквалайзера? Очень надо. Заранее благодарен

thaddy (2005-08-19 13:53:00) [1]
If your soundcard supports hardware equalizer (not all do) you can use the TAudioMixer control by vit Kowalcik available from torry.
If it does not support hardware equalizer, you can use the DC_DSP components available from www.dsp-worx.de

Domkrat (2005-08-19 13:40:00) [2]
А как реализовать эквалайзер, мож кто подскажет?

Irinka (2005-07-26 07:31:00) [3]
Выставь на форму 2 тракбара и двигай их. Если у тебя звучит музыка, ты должен услышать изменения громкости правого и левого каналов.

procedure TForm1.TrackBar1Change(Sender: TObject);
var
s: dword;
a,b: word;
h: hWnd;
begin
a:=trackbar1.position;
b:=trackbar2.position;
s:=(a shl 16) or b;
waveOutSetVolume(h,s);
end;

Antonn (2005-07-25 19:35:00) [4]

> как программно реализовать регулятор громкости

function GetWaveVolume: DWord;
var
Woc : TWAVEOUTCAPS;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
WaveOutGetVolume(WAVE_MAPPER,@Volume);
Result := Volume;
end;
end;

procedure SetWaveVolume(const AVolume: DWord);
var
Woc : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;

//??????????? ? ??????? Spin ? Gauge

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
if Gauge1.Progress <> Gauge1.MinValue then
begin
Gauge1.Progress:= Gauge1.Progress-5;
SetWaveVolume(MakeLong (Gauge1.Progress*655,Gauge1.Progress*655));
end;
end;

ЗЫ не мое, но работаеть

Наверх

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