[-sanya-]

Все сам нашел как это делается

Для получения звукового сигнала нужно воспользоваться WinAPI. WaveInOpen открывает доступ к микрофону. Одновременно только одна программа может работать с микрофоном. Заодно Вы указываете, какая нужна частота, сколько бит на значение и размер буфера. От последнего зависит, как часто и в каком объеме информация будет поступать в программу.

Далее нужно выделить память для буфера и вызвать функцию WaveInAddBuffer, которая передаст Windows пустой буфер. После вызова WaveInStart Windows начнет заполнять буфер, и, после его заполнения, пошлет сообщение MM_WIM_DATA. В нем нужно обработать полученную информацию и вновь вызвать WaveInAddBuffer, тем самым указав, что буфер пуст.

Функции WaveInReset и WaveInClose прекратят поступление информации в программу и закроют доступ к микрофону.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

with header do  begin    wFormatTag := WAVE_FORMAT_PCM;    nChannels := 1; { количество каналов }    nSamplesPerSec := 22050; { частота }    wBitsPerSample := integer(Bits16) * 8 + 8; { 8 / 16 бит }    nBlockAlign := nChannels * (wBitsPerSample div 8);    nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;    cbSize := 0;  end;  WaveInOpen(Addr(WaveIn), WAVE_MAPPER, addr(header),  Form1.Handle, 0, CALLBACK_WINDOW);  BufLen := header.nBlockAlign * BufSize;  hBuf := GlobalAlloc(GMEM_MOVEABLE and GMEM_SHARE, BufLen);  Buf := GlobalLock(hBuf);  with BufHead do  begin    lpData := Buf;    dwBufferLength := BufLen;    dwFlags := WHDR_BEGINLOOP;  end;  WaveInPrepareHeader(WaveIn, Addr(BufHead), sizeof(BufHead));  WaveInAddBuffer(WaveIn, addr(BufHead), sizeof(BufHead));  GetMem(p, BufSize * sizeof(TPoint));  stop := true;  WaveInStart(WaveIn);

Но возникла другая проблема, я получаю звук с микрофона звуковой карты, а у меня микрофон usb от веб камеры, что сделать что бы захват звука был с usb микрофона?