|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
микрофон и амплитуда (сила) звука на нем в данный момент
ув. форумчане, помогите с задачей. нужно реализовать прием сигнала с микрофона (или лайн-ин, без разницы) и чисельно (не обязательно в дБ) показывать амплитуду уровня сигнала (или силу звука, неважно) в данный момент. помогите, плз.
|
#2
|
||||
|
||||
Актуально или нет, но мало ли кому понадобится.
Код:
uses bass; var Chan : DWORD; function DuffRecording(handle : HRECORD; const Buffer : Pointer; Length : DWORD; user : Pointer) : Boolean; stdcall; begin Result := True; // continue recording end; procedure TForm1.FormShow(Sender: TObject); begin BASS_RecordInit(-1); Chan := BASS_RecordStart(44100, 2, 0, @DuffRecording, NIL); end; procedure TForm1.Timer1Timer(Sender: TObject); var level:cardinal; l,r:word; begin level:=BASS_ChannelGetLevel(chan); L:=HIWORD(level); //уровень левого канала R:=LOWORD(level);//уровень правого канала end; Програмистами не рождаются, ими становятся! Последний раз редактировалось SCrat.ORS, 28.11.2011 в 14:58. |