Улучшение опыта работы с аудиосистемой: как настраивать уведомления о системном звуке

Delphi , Мультимедиа , Запись звука

Введение в тему

Системы управления звуком играют важную роль для пользователей, работающих с комбинированные компьютерными и аудио технологиями. Одно из ключевых задач это возможность отслеживать изменения уровня системного звука и его состояние (включение/отключения). Это может использоваться в различных приложениях: от музыкальных плееров до систем автоматизации работы с громкости в играх, где пользовательский интерфейс показывает текущий статус аудио воспроизведения.

Шаг 1: Компоненты для уведомлений о изменениях звука

Согласно требованиям API Windows Vista и выше, для обработки событий изменения уровня системного звука может быть использован функционал IAudioEndpointVolume из Core Audio API. Для регистрации функции обратного вызова необходимо использовать метод:

function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;

Шаг 2: Класс для реализации обратных связей

При разработке в Delphi, важно правильно реализовать класс, который будет реализовывать интерфейс IAudioEndpointVolumeCallback. Это даст возможность получать уведомления о смене уровня звука:

type
  TAudioEndpointVolumeCallback = class(TInterfacedObject)
    function OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
  end;

Шаг 3: Пример реализации функции обратного вызова

При получении уведомления, ваша функция обратного вызова будет вызвана с параметром структуры PAUDIO_VOLUME_NOTIFICATION_DATA, содержащей информацию о типе события.

function OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
begin
  if pNotify = nil then
    Exit(E_POINTER);
  try
    // Здесь ваш код для обработки уведомления, например:
    PostMessage(Handle, WM_VOLNOTIFY, WPARAM(pNotify.bMuted <> False), LPARAM(Round(100 * pNotify.fMasterVolume)));
    Result := S_OK;
  except
    Result := E_UNEXPECTED;
  end;
end;

Шаг 4: Пример использования уведомлений в приложении Delphi

unit OSD;

interface

uses
  // Включаем необходимые модули для работы с аудио API
  Winapi.Windows, ActiveX, AudioEndpoint;

type
  TSoundVolumeForm = class(TForm, IAudioEndpointVolumeCallback)
    procedure FormCreate(Sender: TObject);
    function OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
  private
    FDeviceEnumerator: IMMDeviceEnumerator;
    FAudioEndpointVolume: IAudioEndpointVolume;
  public
  end;

var
  SndVolFrm: TSoundVolumeForm;

implementation

uses
  // Инициализация компонентов интерфейса
{$R *.dfm}

procedure TSoundVolumeForm.FormCreate(Sender: TObject);
begin
  if not Succeeded(CoInitialize(nil)) then
    ExitProcess(1);

  OleCheck(CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER,
    IID_IMMDeviceEnumerator, FDeviceEnumerator));
  // Получаем доступ к основному аудио устройству и активируем интерфейс для управления уровнем звука
  OleCheck(FDeviceEnumerator.GetDefaultAudioEndpoint(0, 0, nil).Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, FAudioEndpointVolume));
  // Регистрируем функцию обратного вызова для получения уведомлений о изменениях уровня звука
  OleCheck(FAudioEndpointVolume.RegisterControlChangeNotify(Self));

end;

// Остальная часть реализации формы и обработки событий...

// Функция OnNotify будет вызываться при изменении уровня системного звука.
function TSoundVolumeForm.OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
begin
  // Тут вы можете обработать уведомление, например обновить пользовательский интерфейс или выполнить действия в зависимости от состояния звука.
end;

Заключение:

В статье были приведены примеры реализации функционала для получения уведомлений о изменениях системного уровня звука на базе Windows API. Разработчики могут использовать эти знания для улучшения взаимодействия пользователя с аудиосистемой, например в музыкальных плеерах, игровых приложениях и т.д.

Подтверждённый ответ:

Следует обратить внимание, что при использовании функций Windows Audio API необходима корректная инициализация компонентов COM и освобождение ресурсов после использования. Это важно для избежания утечек памяти и других проблем связанных с некорректным управлением объектами COM.

Альтернативный ответ:

Для получения дополнительной информации о состоянии аудиосистемы можно использовать методы, такие как:

function GetMasterVolumeLevel(out fLevelDB: single): HRESULT; stdcall;
function GetMute(out bMute: BOOL): HRESULT; stdcall;

Эти функции могут быть использованы для получения текущего уровня громкости и статуса тишины соответственно.

// Пример использования метода GetMasterVolumeLevel
var
  VolumeDB: Single;
begin
  if Succeeded(FAudioEndpointVolume.GetMasterVolumeLevel(VolumeDB)) then
    // Обновляем интерфейс пользователя текущим уровнем громкости
end;

// Пример использования метода GetMute
var
  Muted: BOOL;
begin
  if Succeeded(FAudioEndpointVolume.GetMute(Muted)) then
    // Выполняем действия в зависимости от того, включен ли звук
end;

Ответ на комментарии пользователя:

Для тех кто столкнулся с ошибкой доступа к памяти при изменении уровня микрофона:

if not Succeeded(pEndpointVolume.SetChannelVolumeLevelScalar(1, 0.7, nil)) then
    RaiseLastOSError;

Необходимо реализовать интерфейс IMMNotificationClient и обработать уведомление об изменении стандартного устройства:

function OnDefaultDeviceChanged(pNewId: LPWSTR; pNextDevNode: PIMMDeviceNode): HRESULT; stdcall;
begin
  // Здесь код для переподключения к новому аудио устройству
end;

Этот метод позволит вам отслеживать изменения, которые могут вызвать сбой приложения при использовании устаревшей ссылки на аудио выход.

Конец структурированного ответа.

Создано по материалам из источника по ссылке.

Системы управления звуком обеспечивают мониторинг и контроль за изменениями уровня системного звука, а также состояния его включения или отключения в контексте использования комбинированных компьютерных и аудио технологий.

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

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

:: Главная :: Запись звука ::