как узнать частоту звука

[leon2009sp]

Здравствуйте! можно ли узнать частоту звука = эквалайзеры как то же делают.

MediaPlayer1.FileName := 'sound.mp3';

  if MediaPlayer1.Media <> nil then
  begin
      MediaPlayer1.Play;
end;

если высокая частота то выводить красную картинку JPG
если низкая то зеленую
андройд - delphi 11

[leon2009sp]

в интернете не смогу найти, какие то bass.dll готовые программы и.т.п.
частотный спектр звука = только через плагины и библиотеки.
а label1.caption:=30 или 70 не смог найти

[Lapita12]

Да, вы можете узнать частоту звука и использовать эквалайзеры для изменения параметров звука в своем приложении на Delphi 11.
Вы можете использовать компонент TMediaPlayer для воспроизведения звуковых файлов в Delphi 11. Он также имеет событие OnNotify, которое вызывается каждый раз, когда происходит изменение состояния медиаплеера. Вы можете использовать это событие для получения текущей частоты звука и изменения параметров эквалайзера.
Чтобы получить текущую частоту звука, вы можете использовать компонент TMediaPlayer в сочетании с компонентом TAudioCaptureDevice. Сначала вы должны создать экземпляр компонента TAudioCaptureDevice. Затем, в обработчике события OnNotify компонента TMediaPlayer, вы можете получить текущую частоту звука из компонента TAudioCaptureDevice.
Примерный код может выглядеть так:

uses
  MMSystem, AudioCapture;

var
  MediaPlayer1: TMediaPlayer;
  AudioCapture1: TAudioCaptureDevice;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1 := TMediaPlayer.Create(Self);
  MediaPlayer1.FileName := 'sound.mp3';

  AudioCapture1 := TAudioCaptureDevice.Create(Self);
  AudioCapture1.DeviceType := dtRecording;
  AudioCapture1.Active := True;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
  Freq: Integer;
begin
  if (MediaPlayer1.State = TMediaState.Playing) and (AudioCapture1.Active) then
  begin
    Freq := AudioCapture1.Frequency;
    // Используйте текущую частоту звука для изменения параметров эквалайзера
    if Freq > 1000 then
    begin
      // Выводите красную картинку JPG, если частота высокая
    end
    else
    begin
      // Выводите зеленую картинку JPG, если частота низкая
    end;
  end;
end;

[leon2009sp]

MMSystem = для windows

[leon2009sp]

я по всякому пробовал не выходит,
AudioCapture это из FMX.Media а mmsystem это windows