Эквалайзер - Мультимедиа в Delphi - Страница 2

kosmosila · 30.03.2008, 13:13

Спасиб большое)
жесть... час сижу пытаюсь понять что есть что)

Пока сидел, думал каким еще путем можно пойти, нашел исходник который принимает и показывает звук с входа "запись"... в общем, получается довольно таки просто все (в плане функций)... но т.к. со звуком работал мало, понимаю не все... если получится сделать подобие на "выход" то выложу... может, у кого еще попроще идеи есть?

mutabor · 30.03.2008, 13:43

Вроде можно получить именно звук одного конкретного медиаплеера (например MediaPlayer1), а не все звуки с микшера подряд. Громкость во всяком случае точно менять можно (правда почему-то только mp3), можно попытаться по аналогии и другие данные получить.
Вот тема про изменение громкости

wexter · 25.11.2013, 16:25

нужно как в эквалайзере обрезать высокие частоты...убрать все больше 400 Гц....
кто-то может знает в какую сторону быстрее рыть....
есть фильтры FIR, IIR, FFt, библиотеки bass но что то не понял как ними пользоваться....
нашел немного на хабре но там дискретный звук(как указано в комментариях....хотя может и можно непрерывно надо смотреть), а мне надо в реальном режиме...
http://habrahabr.ru/post/128140/
http://www.programmersforum.ru/showthread.php?t=242593
здесь как то не понял как использовать DirectSound...и есть ли там обрезка частот...

и какой фильтр использовать для обрезки?

поскольку у меня и так сигнал идет в буфер, то можно для него вычислять коэффициенты....

короче может кто-то решал данную проблему...

wexter · 25.11.2013, 21:06

ну раз вариантов нет.... то буду реализовывать скользящое среднее

wexter · 25.11.2013, 21:33

)....реализовал довольно простым способом))))).....

при записи с микрофона поменял частоту с 22000 на 400 ну и размер буфера уменьшил.....

BufSize := 480 ; { Размер буфера }
Bits16 := CheckBox1.Checked;
with header do
begin
wFormatTag := WAVE_FORMAT_PCM;
nChannels := 1; { количество каналов }
nSamplesPerSec := 400; { частота }
wBitsPerSample := integer(Bits16) * 8 + 8; { 8 / 16 бит }
nBlockAlign := nChannels * (wBitsPerSample div 8);
nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
cbSize := 0;

теперь нужно тока это записать в файл....и возможно сгладить острие угли графика...

30.03.2008, 13:43	#12
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	Вроде можно получить именно звук одного конкретного медиаплеера (например MediaPlayer1), а не все звуки с микшера подряд. Громкость во всяком случае точно менять можно (правда почему-то только mp3), можно попытаться по аналогии и другие данные получить. Вот тема про изменение громкости The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как создать эквалайзер в плеере	xakkkkker	Мультимедиа в Delphi	8	12.06.2011 16:52
эквалайзер	DeDoK	Компоненты Delphi	8	02.07.2008 09:40
Эквалайзер...	prizrak1390	Мультимедиа в Delphi	2	04.02.2008 23:47

30.03.2008, 13:13	#11
kosmosila Регистрация: 15.02.2008 Сообщений: 9	Спасиб большое) жесть... час сижу пытаюсь понять что есть что) Пока сидел, думал каким еще путем можно пойти, нашел исходник который принимает и показывает звук с входа "запись"... в общем, получается довольно таки просто все (в плане функций)... но т.к. со звуком работал мало, понимаю не все... если получится сделать подобие на "выход" то выложу... может, у кого еще попроще идеи есть?

25.11.2013, 16:25	#13
wexter Регистрация: 01.04.2010 Сообщений: 8	нужно как в эквалайзере обрезать высокие частоты...убрать все больше 400 Гц.... кто-то может знает в какую сторону быстрее рыть.... есть фильтры FIR, IIR, FFt, библиотеки bass но что то не понял как ними пользоваться.... нашел немного на хабре но там дискретный звук(как указано в комментариях....хотя может и можно непрерывно надо смотреть), а мне надо в реальном режиме... http://habrahabr.ru/post/128140/ http://www.programmersforum.ru/showthread.php?t=242593 здесь как то не понял как использовать DirectSound...и есть ли там обрезка частот... и какой фильтр использовать для обрезки? поскольку у меня и так сигнал идет в буфер, то можно для него вычислять коэффициенты.... короче может кто-то решал данную проблему...

25.11.2013, 21:06	#14
wexter Регистрация: 01.04.2010 Сообщений: 8	ну раз вариантов нет.... то буду реализовывать скользящое среднее

25.11.2013, 21:33	#15
wexter Регистрация: 01.04.2010 Сообщений: 8	)....реализовал довольно простым способом)))))..... при записи с микрофона поменял частоту с 22000 на 400 ну и размер буфера уменьшил..... BufSize := 480 ; { Размер буфера } Bits16 := CheckBox1.Checked; with header do begin wFormatTag := WAVE_FORMAT_PCM; nChannels := 1; { количество каналов } nSamplesPerSec := 400; { частота } wBitsPerSample := integer(Bits16) * 8 + 8; { 8 / 16 бит } nBlockAlign := nChannels * (wBitsPerSample div 8); nAvgBytesPerSec := nSamplesPerSec * nBlockAlign; cbSize := 0; теперь нужно тока это записать в файл....и возможно сгладить острие угли графика...