Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Звук   Найти похожие ветки 

 
Jaja ©   (2004-05-01 01:37) [0]

Привет народ! Мне надо получить список аудио устройст. А так же получить список регуляторов громкости и как их изменять(короче! Наподобии Windowсовского регулятора громкости! Заранее Спасибо!!!


 
konstantinov ©   (2004-05-02 19:13) [1]

Модуль mmSystem
список устройств : mixerGetNumDeavs, mixerGetDeavCaps...
регулятор громкости : mixerSetControlDetals...
рабочий пример на Си :

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;


 
*BES* ©   (2004-05-07 22:10) [2]

Вопрос что ты хочешь сделать!!!
Медиаплеер для нескольких девайсов с регулировкой??
Тогда тебе надо Bass и TBassplayer
Надо исходник??? Пиши на Мыло!


 
Ozone ©   (2004-05-08 12:19) [3]

На сайте АП есть много инфы на эту тему.



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

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

Наверх




Память: 0.47 MB
Время: 0.024 c
1-1089578313
TechnoDreamer
2004-07-12 00:38
2004.07.25
Как убрать border у PageControl?


3-1088411549
MORA
2004-06-28 12:32
2004.07.25
InterBase SERVER


1-1089798511
Litr
2004-07-14 13:48
2004.07.25
QReport


1-1089454856
Tahion2
2004-07-10 14:20
2004.07.25
Помогите перевести код из Си в Делфи.


1-1089176228
pupus
2004-07-07 08:57
2004.07.25
Лаба по искусственному интеллекту