Вниз
Скачать: CL | DM;

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

← →
Radgar ©   (2007-03-01 22:03) [0]

Здраствуйте.

Подскажите, пожалуйста, как изменить громкость воспроизводимого звука. Заранее Спасибо.


← →
DevilDevil ©   (2007-03-02 01:11) [1]

через что производишь звук: MCI, DSound, DMusic, DShow, TMediaPlayer?


← →
Radgar ©   (2007-03-02 01:35) [2]

2 DevilDevil ©

TMediaPlayer


← →
DevilDevil ©   (2007-03-02 01:43) [3]

значит MCI :)
если получится взять WaveHandle (в чём я сомневаюсь), тогда waveOutGetVolume(), waveOutSetVolume()

Иначе менять микшерные настройки. Привожу Сишный код (сам не разбирался):

INT GetMasterVolumeControlID()
{
 // get dwLineID
 MIXERLINE mxl;
 mxl.cbStruct = sizeof(MIXERLINE);
 mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
 if (::mixerGetLineInfo((HMIXEROBJ)ghmx, &mxl,
   MIXER_OBJECTF_HMIXER | MIXER_GETLINEINFOF_COMPONENTTYPE)
   != MMSYSERR_NOERROR)
   return 34;
 // get dwControlID
 MIXERCONTROL mxc;
 MIXERLINECONTROLS mxlc;
 mxlc.cbStruct = sizeof(MIXERLINECONTROLS);
 mxlc.dwLineID = mxl.dwLineID;
 mxlc.dwControlType = MIXERCONTROL_CONTROLTYPE_VOLUME;
 mxlc.cControls = 1;
 mxlc.cbmxctrl = sizeof(MIXERCONTROL);
 mxlc.pamxctrl = &mxc;
 if (::mixerGetLineControls((HMIXEROBJ)ghmx, &mxlc,
   MIXER_OBJECTF_HMIXER | MIXER_GETLINECONTROLSF_ONEBYTYPE)
   != MMSYSERR_NOERROR)
   return 34;
 return mxc.dwControlID;
}

BOOL SetMasterVolume(DWORD dwVolume)
{
  MIXERCONTROLDETAILS mxcd;
  MIXERCONTROLDETAILS_UNSIGNED mxcd_u;
  mxcd.cbStruct = sizeof(mxcd);
  mxcd.dwControlID = MasterVolumeControlID;
  mxcd.cChannels = 1;
  mxcd.cMultipleItems = 0;
  mxcd.cbDetails = 4;
  mxcd.paDetails = &mxcd_u;
  mmr = mixerGetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
  if (MMSYSERR_NOERROR != mmr) return FALSE;
  mxcd_u.dwValue = dwVolume;
  mmr = mixerSetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
  if (MMSYSERR_NOERROR != mmr) return FALSE;
  return TRUE;
}



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
15-1197781334
van
2007-12-16 08:02
2008.01.20
iis + apache


9-1165725158
Архипелаг-ГУЛАГ
2006-12-10 07:32
2008.01.20
Как была создана картинка для демки Archipelago из GLScene ?


15-1197374566
PEAKTOP
2007-12-11 15:02
2008.01.20
Вертикальная совместимость - Ваше мнение


15-1197847647
Почтальон
2007-12-17 02:27
2008.01.20
Как создать в Gmail.com папку?


5-1164372214
DevilDevil
2006-11-24 15:43
2008.01.20
ограничить клиентскую область




   Наверх