Kak mozhno v Delphi narisovat zvuk iz mikrofona?

← →
NEEDHelp (2004-06-18 14:26) [0]

Zdravstvujte.
Mne nado sdelat" programku kotoraja budet risovat" zvuk iz mikrofona. A vot kak zastavit" programku ego risoat"? <-- vot eto voprosss! neznaju kak ego reshit" :(
Zaranee blogadarna tomu kto pomozht :D

← →
PVOzerski © (2004-06-18 14:36) [1]

Ну, так несжатые форматы вроде wav - это цепочки byte или smallint, отражающие амплитуду сигнала через стандартный промежуток времени. Так что, с поправкой на уместные коэффициенты, по X берем смещение, по Y - амплитуду. Если мы вводим звук низкоуровневым API (wavein***), при обработке MM_WIM_DATA мы получаем блоки аналогичной структуры. Единственное: надо успевать обрабатывать блок обрабатывать до получения следующего. В принципе, у меня написана рабочая прога (FreePascal+Delphi6), хотя, видимо, и не эталон по коду. Но если очень надо, могу поделиться.

← →
NEEDHelp (2004-06-18 14:45) [2]

PVOzerski :D
O4en" nado :))
BUDU ZHUTKO BLAGODARNA!
:)))) Poshlite pozhalujsta na chris-m@yandex.ru

← →
NEEDHepl (2004-06-18 15:10) [3]

Nu vot. :( PVOzerski vi propali :(((((
Ktonibud", POMOGITE, ja sama ne spravljus" :((

← →
lena19 (2004-06-18 15:24) [4]

напиши адрес вышлю пример тока там придется разбиратся.

← →
PVOzerski © (2004-06-18 15:24) [5]

Отправил уже :^)

← →
NEEDHelp (2004-06-18 15:35) [6]

PVOrzhevki, tak ne risuet :((( pustoe okno pokazivaet :((<--tam 4toto neto. No tak i tak BIG THANKS :))
Lena19, a vi nemoglibi sbrosit" mne na chris-m@yandex.ru vashu programku? Budu blagodarna :)

← →
PVOzerski © (2004-06-18 15:43) [7]

>tak ne risuet :((( pustoe okno pokazivaet :((<--tam 4toto neto. No tak i tak BIG THANKS :))
Даже если нажать "Start" и ввести имя файла? Правда, прога в таком виде использует 1-е вводное устройство, и если это не та карта, в к-рую вставлен микрофон, то ничего не запишется.

← →
NEEDHelp (2004-06-18 15:53) [8]

PVOrzhevski :((( eh.... nekompiliruet moj Delphik etot fail i ni4e nepolu4aetsja. NEVEZET mne :((((((((

>etot fail
Который? Там, по сути, 2 проекта - osc (для Delphi) и Sndrec (для FreePascal). А бинарник-то заработал?

← →
NEEDHelp (2004-06-18 16:13) [10]

u menja kompik visnit kogda ja kompiliruju osc v Delphi :((((((

PVOzerski скинте и мне пожалуйста. Если влом, то кинте ссылочку. Заранее благодарен. olexander@inbox.ru

Kak mozhno v Delphi narisovat zvuk iz mikrofona? Найти похожие ветки