Создание мультиплатформенных системных звуков в Delphi FireMonkey: инструкция по воспроизведению на Windows и macOS

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

Статья: Создание мультиплатформенных системных звуков в Delphi FireMonkey

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

Воспроизведение системного звука в Windows

Для воспроизведения системных звуков в операционной системе Windows обычно используется функция PlaySound. Однако, начиная с версии XE4 FireMonkey, рекомендуется использовать компонент TMediaPlayer для унификации подходов и обеспечения мультиплатформенности.

Пример кода на Object Pascal (Delphi) для воспроизведения системного звука в Windows:

{$IFDEF MSWINDOWS}
procedure TForm1.PlaySystemSound;
begin
  MediaPlayer1.FileName := 'C:\Windows\Media\Windows Default.wav';
  if FileExists(MediaPlayer1.FileName) then
    MediaPlayer1.Play;
end;

Воспроизведение системного звука в macOS

Для macOS также рекомендуется использовать TMediaPlayer. Однако, стоит отметить, что пути к системным звукам будут отличаться от Windows. Например:

{$IFDEF MACOS}
procedure TForm1.PlaySystemSound;
begin
  MediaPlayer1.FileName := '/System/Library/Sounds/Sosumi.aiff';
  if FileExists(MediaPlayer1.FileName) then
    MediaPlayer1.Play;
end;

Универсальный подход

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

function TForm1.PlaySound: Boolean;
begin
  {$IFDEF MSWINDOWS}
    MediaPlayer1.FileName := 'C:\Windows\Media\Windows Default.wav';
  {$ELSEIF DEFINE MACOS}
    MediaPlayer1.FileName := '/System/Library/Sounds/Sosumi.aiff';
  {$ENDIF}
  Result := FileExists(MediaPlayer1.FileName);
  if Result then
    MediaPlayer1.Play;
end;

Поддержка кодеков

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

Заключение

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

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

Обратите внимание! Данная статья написана на основе контекста использования компонента TMediaPlayer в Delphi FireMonkey XE4. Для более подробной информации рекомендуется обратиться к официальной документации Embarcadero.

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

Создание мультиплатформенных системных звуков в Delphi FireMonkey для работы на Windows и macOS.

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

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

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