Вниз
Скачать: 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.016 c
3-1189651379
Девушка
2007-09-13 06:42
2008.01.20
PostgreSQL наследование и fk


2-1197993742
IvanS
2007-12-18 19:02
2008.01.20
Интерфейсы


15-1197634269
Piter
2007-12-14 15:11
2008.01.20
Обсудим if?


2-1197967319
ZLinX
2007-12-18 11:41
2008.01.20
MySQL


10-1141419809
DillerXX
2006-03-04 00:03
2008.01.20
IWebBrowser2 и FTP




   Наверх