Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

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

← →
arcoant ©   (2002-08-29 15:13) [0]

Добрый |день, ночь, утро, вечер|(подчеркнуть правильное). Кто-нибудь знает как программно изменять громкость проигрывания звукового(видео) файла?

---

← →
arcoant ©   (2002-08-29 20:08) [1]

people! Where are you?

---

← →
Viktor Kushnir ©   (2002-08-31 08:46) [2]

Когда мне надо было менять звук, я делал так:
Только вот хотя звук и меняется, что-то вэ том коде не так,
у меня WaveOutGetVolume(WaveDevice,@w) не всегда срабатывал.




uses mmsystem;
procedure TMainForm.SetVolume(Volume: Word);
Var
W, c ,V :Cardinal;
hw :word;
lw :Word;
m :integer;
prop :Real;
begin
c := mmSystem.WaveOutGetVolume(WaveDevice,@w);
Case c of
// MMSYSERR_NOERROR: DisplayMessage("Sound OK",5);
MMSYSERR_INVALHANDLE: ShowMessage("Sound: Invalide Handle",5);
MMSYSERR_NODRIVER: ShowMessage("Sound: No Driver",5);
MMSYSERR_NOMEM: ShowMessage("Sound: No Memory",5);
MMSYSERR_NOTSUPPORTED: ShowMessage("Sound: Not Supported",5);
End;
hw := HiWord(w);
lw := LoWord(w);
Prop := hw/(lw+1);
m := (Volume - Max(hw,lw));
lw := lw + m;
hw := Round((lw+1)*prop);
v := MakeLong(lw,hw);
mmSystem.waveOutSetVolume(WaveDevice,V);
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c