Habe den Beispiel-Code mal getestet. Funktioniert auch.
Allerdings gibt es keine Änderung der wav-Datei, wenn ich hier die Werte ändere:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
Format: tWAVEFORMATEX;
begin
with Format do
begin
wFormatTag := WAVE_FORMAT_PCM;
nChannels := 1;
wBitsPerSample := 8;
nSamplesPerSec := 44100;
nBlockAlign := nChannels * (wBitsPerSample div 8);
nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
cbSize := 0;
end;
wave := TWaveIn.Create;
wave.OnData := OnData;
wave.open(0);
waveOutOpen(@fHandle, 0, @format, 0, 0, CALLBACK_NULL);
end;
Ich brauch das vox-Format ADPCM.
Weiß jemand wieso?