Громкость и эквалайзер

← →
Масяня © (2005-07-25 14:03) [0]

Господа, подскажите пожалуйста, как программно реализовать регулятор громкости и/или эквалайзера? Очень надо. Заранее благодарен

← →
Antonn © (2005-07-25 19:35) [1]

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

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;

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

← →
Irinka © (2005-07-26 07:31) [2]

Выставь на форму 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;

← →
Domkrat © (2005-08-19 13:40) [3]

А как реализовать эквалайзер, мож кто подскажет?

← →
thaddy (2005-08-19 13:53) [4]

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

Громкость и эквалайзер Найти похожие ветки