Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как получить частоту звука 
:(
    Опции темы
leon2009
  Дата 4.3.2023, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.3.2016

Репутация: нет
Всего: 1
Здравствуйте! Можно получить как ни будь частоту звука? в интернете ни где не нашел. кроме как base.dll и готовых компонентов.
Код

MediaPlayer1.FileName := 'sound.mp3';

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

Delphi 11, android
можно примерчик? если высокая то красная картинка в image1
низкая, то зеленая. 
PM MAIL   Вверх
leon2009
  Дата 8.3.2023, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.3.2016

Репутация: нет
Всего: 1
понимаю, что прошло много времени: но этот код размножен по всему инету... и бегаешь по ссылкам по 100 раз.
я искал: когда играет музыка изменяется уровень частоты наверное. скрипка одну выдает, барабан другую.
как сделать, что когда играет скрипка в image1 красная картинка загружается, а барабан то зеленая.

если поискать, то можно найти как получить заголовки звука:

Код

if OpenDialog1.Execute then
 begin
  OpenMedia(OpenDialog1.FileName);
  with memo1.Lines do
  begin
  Add('Average Bytes / Sec : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_AVGBYTESPERSEC)));
  Add('Bits / Sample : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_BITSPERSAMPLE)));
  Add('Samples / Sec : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_SAMPLESPERSEC)));
  Add('Channels : ' + IntToStr(GetStatus(MCI_WAVE_STATUS_CHANNELS)));
  end;
  CloseMedia;


а дальше, я не знаю что делать дальше. в интернете пр: то с bass.dll то еще какие нибудь библиотеки - не нужно ни каких библиотек. 
https://forum.vingrad.ru/faq/topic-156350.html  smile 
PM MAIL   Вверх
leon2009
  Дата 8.3.2023, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 26.3.2016

Репутация: нет
Всего: 1
это что???  smile 
http://delphiworld.narod.ru/new/sound_volume.html
http://www.delphisite.ru/faq/kak-opredelit...v-dannyi-moment
https://www.delphi-club.ru/delphi/sound_vol...aqdakk389818846
https://www.kansoftware.ru/?tid=4220
и.т.п... есть еще ссылки....  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0994 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.