Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Мар

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

Posted by obzor under Delphi

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

Код:

MediaPlayer1.FileName := 'sound.mp3';

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

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

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;