Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/16: Рейтинг темы: голосов - 16, средняя оценка - 4.88
6 / 6 / 1
Регистрация: 25.01.2008
Сообщений: 13
1

громкость

25.01.2008, 21:14. Показов 3161. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
как реализовать регулятор громкости в delphi 7 :huh::huh:
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.01.2008, 21:14
Ответы с готовыми решениями:

Громкость музыки
как в delphi регулировать громкость музыки. она в фоновом режиме

Громкость звука Windows 7
Как узнать громкость звука в данный момент в системе...

Повышать или понижать общую громкость в компьютере
Здравствуйте хотелось бы повышать или понижать общую громкость в компьютере скажем понизить на 50%...

BASS - Громкость
Как отрегулировать громкость воспроизводимого трека с помощью библиотеки bass.dll?

1
из интернетов
137 / 34 / 7
Регистрация: 16.01.2008
Сообщений: 392
25.01.2008, 21:24 2
Пользуйся отличным электронным справочником-'Delphi world'
Да всё пpосто. Даже, я бы сказал, тyпо. :-)
Код

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;
 }
Переписывать на Delphi, думаю, ни к чему. Надо лишь не забыть добавить uses MMSystem; Громкость отдельных каналов очень просто устанавливается через auxSetVolume и аналогичные.
0
25.01.2008, 21:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2008, 21:24
Помогаю со студенческими работами здесь

Как регулировать громкость проигрываемого видеофайла?
Помогите. Как можно регулировать громкость проигрываемого видеофайла? Зарание благодарен.

Громкость
У меня есть вопрос - делаю программу для получения громкости. Мне нужна не громкость самого...

Внесистемная громкость
Для плеера нужно написать регулятор громкости, через volume контролирую системную громкость (причем...

Громкость звука
Есть ли возможность с помощью JavaScript оценивать громкость голоса человека, когда он говорит в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru