Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2023, 08:22   #1
leon2009sp
Форумчанин
 
Регистрация: 22.12.2015
Сообщений: 119
Стрелка как узнать частоту звука

Здравствуйте! можно ли узнать частоту звука = эквалайзеры как то же делают.
Код:
MediaPlayer1.FileName := 'sound.mp3';

  if MediaPlayer1.Media <> nil then
  begin
      MediaPlayer1.Play;
end;
если высокая частота то выводить красную картинку JPG
если низкая то зеленую
андройд - delphi 11
leon2009sp вне форума Ответить с цитированием
Старый 04.03.2023, 07:31   #2
leon2009sp
Форумчанин
 
Регистрация: 22.12.2015
Сообщений: 119
Плохо интернет

в интернете не смогу найти, какие то bass.dll готовые программы и.т.п.
частотный спектр звука = только через плагины и библиотеки.
а label1.caption:=30 или 70 не смог найти
leon2009sp вне форума Ответить с цитированием
Старый 08.03.2023, 22:04   #3
Lapita12
Новичок
Джуниор
 
Регистрация: 08.03.2023
Сообщений: 24
По умолчанию

Да, вы можете узнать частоту звука и использовать эквалайзеры для изменения параметров звука в своем приложении на 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;
Lapita12 вне форума Ответить с цитированием
Старый 09.03.2023, 10:42   #4
leon2009sp
Форумчанин
 
Регистрация: 22.12.2015
Сообщений: 119
По умолчанию

MMSystem = для windows
leon2009sp вне форума Ответить с цитированием
Старый 12.03.2023, 08:21   #5
leon2009sp
Форумчанин
 
Регистрация: 22.12.2015
Сообщений: 119
По умолчанию режимы

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как определить частоту звука(NewAC) azaznio Общие вопросы Delphi 0 13.06.2013 23:37
Определить частоту звука с микрофона Pasha_Sh Общие вопросы Delphi 4 03.09.2012 08:59
определить тактовою частоту процессора и узнать название активной видеокарты и объём памяти SalasAndriy C++ Builder 7 14.04.2012 16:17
Как можно узнать какой объем озу и процессорную частоту поддерживает материнская плата Berzhan Компьютерное железо 10 01.06.2009 19:22
Как изменить частоту воспроизводимого WAV звука chandrasecar Мультимедиа в Delphi 3 29.12.2008 15:11