Изменить громкость 2

Delphi , Мультимедиа , Аудио

procedure SetVolume(X: Word);
var
  iErr: Integer;
  i: integer;
  a: TAuxCaps;
begin
  for i := 0 to auxGetNumDevs do
  begin
    auxGetDevCaps(i, Addr(a), SizeOf(a));
    if a.wTechnology = AUXCAPS_CDAUDIO then
      break;
  end;

  // Устанавливаем одинаковую громкость для левого и правого каналов.
  // VOLUME := LEFT*$10000 + RIGHT*1

  iErr := auxSetVolume(i, (X * $10001));
  if (iErr‹›0) then
    ShowMessage('No audio devices are available!');
end;

function GetVolume: Word;
var
  iErr: Integer;
  i: integer;
  a: TAuxCaps;
  vol: word;
begin
  for i := 0 to auxGetNumDevs do
  begin
    auxGetDevCaps(i, Addr(a), SizeOf(a));
    if a.wTechnology = AUXCAPS_CDAUDIO then
      break;
  end;
  iErr := auxGetVolume(i, addr(vol));
  GetVolume := vol;
  if (iErr‹›0) then
    ShowMessage('No audio devices are available!');
end;

Программный код, который вы предоставили, является частью приложения, взаимодействующего с звуковым картой для установки и получения уровней громкости. Вот что он делает:

Процедура SetVolume(X: Word): Эта процедура устанавливает уровень громкости для устройства CD аудио. Уровень громкости представлен целочисленным значением Word, которое ranges от 0 до $10000. Левый и правый каналы регулируются равными.

Вот как она работает:

1. Она проходит через все доступные устройства звука с помощью auxGetNumDevs и auxGetDevCaps.
2. Когда она находит устройство CD аудио (опознанное как AUXCAPS_ CDAUDIO), она выходит из цикла.
3. Она рассчитывает значение громкости, умножая входной X на $10001.
4. Она вызывает auxSetVolume, чтобы установить уровень громкости для устройства CD аудио. Если возникает ошибка, она отображает сообщение "Нет доступных устройств звука!".

Функция GetVolume: Word: Эта функция получает текущий уровень громкости для устройства CD аудио.

Вот как она работает:

1. Она проходит через все доступные устройства звука с помощью auxGetNumDevs и auxGetDevCaps.
2. Когда она находит устройство CD аудио (опознанное как AUXCAPS_ CDAUDIO), она выходит из цикла.
3. Она вызывает auxGetVolume, чтобы получить текущий уровень громкости для устройства CD аудио и хранит его в переменной vol.
4. Если возникает ошибка, она отображает сообщение "Нет доступных устройств звука!".

Изменения, которые вы запросили:: Вы запросили изменить громкость с 2 на... не совсем ясно, что вы имели в виду. Пожалуйста, уточните, что вы хотите сделать с громкостью? Хотите ли вы увеличить или уменьшить ее? Или может быть, вам нужно установить конкретное значение? Если вы имели в виду увеличение громкости, вы можете просто умножить входной X на $10001, как делается в процедуре SetVolume. Если вы имели в виду уменьшение громкости, вы бы отняли X от $10000. Если у вас есть конкретное значение громкости в виду, вы можете установить его напрямую. Пожалуйста, дайте мне знать, как я могу помочь!

Статья описывает процедуры и функции для изменения и получения громкости звука на компьютере, написанные на языке Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Аудио ::