Вопросик по DELPHI7 знатокам

Как в нем считать частоту звука с линейного входа?
Заранее спасибо
За пиво, коньяк или денежку на выбор:-)

[Сообщение изменено пользователем 12.02.2006 16:35]

гыы http://www.e1.ru/talk/forum/list.php?f=37

там тоже спросил:-)

Да легко :-). Лезешь в справку по WinAPI, ищешь функции WaveInOpen, WaveInStart и подобные. Там все написано. Заставляешь его прочитать одну секунду звука. Потом считаешь в полученном буфере количество переходов сигнала через нуль. Это будет частота звука*2. Выводишь. Делаешь все по-новой.

Сенькс
Сейчас попробуем

Во, сварганил на основе своей кривой поделки 3х летней давности мелкую прогу, правда на Delphi 6 (наверняка пофигу).

http://pages.plotinka.ru/~crush/FreqMeter.zip

В архиве есть ехе-шник и исходники, если боитесь вирусов - можете ехе-шник сразу удалить и перекомпилировать.

Меряет частоту на левом и правом каналах и показывает осцилограмму. Звук берется с текущего устройства записи (задается в стандартном виндовом регуляторе громкости записи).
В начале программы константа secPart определяет точность измерений. Сейчас стоит = 3, т.е. точность - 3 Гц. Минимум - 1 Гц, но при этом обновление осцилографа происходит раз в секунду (тормозно).

Пасиб ещё раз
Щас отдам ссылку дитю-это ему надо :-)

Тема автоматически закрыта.