Создание эквалайзера для плеера в Delphi XE10 на Android

Delphi , Компоненты и Классы , TMediaPlayer

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

1. Создание объекта эквалайзера

Для работы с эквалайзером в Android нам понадобится интерфейс JEqualizer, доступный в Androidapi.JNI.Media. Чтобы создать объект эквалайзера, мы можем использовать следующий код:

var
  equ: JEqualizer;
begin
  equ := TJEqualizer.Wrap(TJavaObject.Create(TJObject, (TSharedActivityContext.GetSystemService(TJContext.JavaClass.AUDIO_SERVICE) as ILocalObject).GetObjectID));
end;

2. Получение аудиосессии плеера

Чтобы создать эквалайзер, нам нужен аудиосеанс плеера. К сожалению, в объекте TMediaplayer Delphi этот параметр не экспонируется. Однако мы можем обойти это, создав собственный объект MediaPlayer в Android.

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

var
  mp: JMediaPlayer;
  equ: JEqualizer;
begin
  mp := TJMediaPlayer.Create;
  mp.Reset;
  mp.SetDataSource(StringToJString(Edit1.Text)); // Путь к воспроизводимому файлу в Edit1.Text
  mp.Prepare;
  mp.Start; // Теперь плеер воспроизводит музыку

  equ := TJEqualizer.Wrap(TJavaObject.Create(TJObject, (TSharedActivityContext.GetSystemService(TJContext.JavaClass.AUDIO_SERVICE) as ILocalObject).GetObjectID));
  equ.SetAudioSessionId(mp.GetAudioSessionID);
  // Настройка эквалайзера (здесь вы можете добавить код для настройки частот и уровня усиления)
end;

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

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

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

После множества экспериментов и неудачных попыток было найдено решение: использование аудиоэффектов с объектом TMediaplayer в Delphi не представляется возможным. Однако, создав MediaPlayer в Android самостоятельно, можно воспользоваться функцией эквалайзера. Пример кода для эффекта bassboost приведен выше.

Обратите внимание, что это решение больше не будет кроссплатформенным, так как оно основано на Android-specific функциях. Тем не менее, это может быть полезным для тех, кто хочет добавить эквалайзер в свой плеер на Android, созданный в Delphi XE10.

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

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

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

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

:: Главная :: TMediaPlayer ::