WAVE-Sound über Soundkarte aufnehmen

[3_of_8]

Morgen.

Ich versuche momentan, WAVE-Sounds über die WaveIn-Funktionen von MMSystem aufzunehmen.

Mein Ansatz:

Delphi-Quellcode:

var WaveHdr: TWaveHdr
    ID: HWAVEIN;
    Format: TWaveFormatEx;
begin
  Format.wFormatTag:=0;
  Format.nChannels:=1;
  Format.nSamplesPerSec:=SampleRate;
  Format.wBitsPerSample:=16;
  Format.nAvgBytesPerSec:=2*SampleRate;
  Format.nBlockAlign:=2;
  Format.cbSize:=sizeof(Format);
  waveInOpen(@ID, Device, @Format, 0, 0, 0);
  waveInPrepareHeader(ID, @wavehdr, sizeof(wavehdr));
  waveInAddBuffer(ID, @wavehdr, sizeof(wavehdr));
  waveInStart(ID);
  
  //1 Sek. später
  waveInStop(ID);
  waveInClose(ID);
end;

Dummerweise ist WaveHdr jedoch komplett mit Nullen gefüllt. Warum?