Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > как получить частоту звука

Автор: leon2009 4.3.2023, 12:28

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

Код


MediaPlayer1.FileName := 'sound.mp3';

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

Delphi 11, android
можно примерчик? если высокая то красная картинка в image1
низкая, то зеленая.

Автор: leon2009 8.3.2023, 09:36

понимаю, что прошло много времени: но этот код размножен по всему инету... и бегаешь по ссылкам по 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

Автор: leon2009 8.3.2023, 10:04

это что??? smile

http://delphiworld.narod.ru/new/sound_volume.html
http://www.delphisite.ru/faq/kak-opredelit-uroven-zvuka-v-dannyi-moment
https://www.delphi-club.ru/delphi/sound_volume.html?ysclid=lezaqdakk389818846
https://www.kansoftware.ru/?tid=4220
и.т.п... есть еще ссылки.... smile