Управление звуком и событиями Core Audio API в Delphi XE5

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

Введение

В данной статье рассматривается реализация событий для управления звуком с использованием Windows Core Audio API (Win7 64-bit, среда разработки Delphi XE5). Основная цель - отслеживание приложений в микшере громкости и регулирование аудио сессий, которые не входят в интересующий нас список. Также описывается необходимость получения уведомлений о добавлении новых сессий и закрытии существующих для последующего перечисления.

Проблема

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

Реализация интерфейсов

В статье представлены классы, реализующие необходимые для работы с Core Audio API интерфейсы. Это включает IAudioEndpointVolumeCallback, IMMNotificationClient и другие, которые переопределяются в Delphi-компонентах для использования событий.

Примеры кода

type
  TEndpointVolumeCallback = class(TInterfacedObject, IAudioEndpointVolumeCallback)
    function OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
  end;

function TEndpointVolumeCallback.OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT;
var
  audioLevel : Integer;
begin
  // Обновление уровня громкости в пользовательском интерфейсе
  audioLevel := Round(pNotify.fMasterVolume * 100);
  Form1.trackVolumeLevel.Position := audioLevel;
  // Обновление состояния мута (отключения звука)
  if pNotify.bMuted then
  begin
    Form1.trackVolumeLevel.Enabled := False;
    Form1.spdMute.Caption := 'X';
  end
  else
  begin
    Form1.trackVolumeLevel.Enabled := True;
    Form1.spdMute.Caption := 'O';
  end;

  Result := S_OK;
end;

Проблема с контекстом многопоточности

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

// Пример инициализации COM для использования многопоточности
initialization
  CoInitializeEx(nil, COINIT_APARTMENTTHREADED);

Рекомендации и решения

• Использование TInterfacedObject в Delphi позволяет автоматически управлять счетами интерфейсов, поэтому явные вызова функций _AddRef не требуются.
• Важно корректно реализовать многопоточную инициализацию для получения событий в пользовательском интерфейсе.

// Пример создания объекта с инициализацией многопоточности
inherited Create;
CoInitializeEx(nil, COINIT_APARTMENTTHREADED);

• Проверка типов данных и их соответствия между C/C++ и Delphi для корректной реализации кода.

Примечание

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

Пример кода для реализации класса, использующего PostMessage в смеси с обработкой событий:

// Код для хранения данных события и последующей передачи их через PostMessage не представлен.

Заключение

В статье был рассмотрен подробный пример реализации событий для управления звуком на уровне Core Audio API. Освещены наиболее типичные проблемы при работе с многопоточностью, а также предложены методы решения возникающих сложностей.

Подтверждённый ответ и альтернативные варианты

Для успешного получения уведомлений о новых сессиях необходимо использовать корректную модель COM-потоков. В частности, для интерфейсов, взаимодействующих с пользовательским интерфейсом, следует инициализировать COM в многопоточном режиме (COINIT_APARTMENTTHREADED). Это позволит получать события от системы без использования таймеров.

// Важно: Подробности реализации класса для работы с PostMessage и передачей событий в главный поток опущены.

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

Управление звуком и событиями Core Audio API в среде разработки Delphi XE5.

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

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

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