[Trogov]

Так тоже не работает =(

Код:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

var    WaveIn: HWAVEIN;     WaveHeader: PWAVEHDR;     Stream: TMemoryStream;   WaveFormat: TWaveFormatEx;     //start button     WaveIn := 0;   WaveHeader := nil;   Stream := TMemoryStream.Create;   // инициализация записи   WaveFormat.wFormatTag := WAVE_FORMAT_PCM;   WaveFormat.nChannels := 1;   WaveFormat.nSamplesPerSec := 44100;   WaveFormat.wBitsPerSample := 16;   WaveFormat.nBlockAlign := WaveFormat.nChannels * (WaveFormat.wBitsPerSample div 8);   WaveFormat.nAvgBytesPerSec := WaveFormat.nSamplesPerSec * WaveFormat.nBlockAlign;   WaveFormat.cbSize := 0;   waveInOpen(@WaveIn, WAVE_MAPPER, @WaveFormat, 0, 0, WAVE_FORMAT_DIRECT);   // выделение памяти под буфер   GetMem(WaveHeader, SizeOf(WAVEHDR));   WaveHeader^.lpData := AllocMem(8192);   WaveHeader^.dwBufferLength := 8192;   WaveHeader^.dwBytesRecorded := 0;   WaveHeader^.dwUser := 0;   WaveHeader^.dwFlags := 0;   WaveHeader^.dwLoops := 0;   WaveHeader^.lpNext := nil;   WaveHeader^.reserved := 0;   // запись звука   waveInPrepareHeader(WaveIn, WaveHeader, SizeOf(WAVEHDR));   waveInAddBuffer(WaveIn, WaveHeader, SizeOf(WAVEHDR));   waveInStart(WaveIn);     //stop button   waveInStop(WaveIn);   waveInUnprepareHeader(WaveIn, WaveHeader, SizeOf(WAVEHDR));   Stream.Write(WaveHeader^.lpData^, WaveHeader^.dwBytesRecorded);   Stream.SaveToFile('sound.wav');   FreeMem(WaveHeader^.lpData);   FreeMem(WaveHeader);   waveInClose(WaveIn);  Stream.Free;