Danke,
du machst aber genau das gleiche (außer "time format bytes" bzw. "format tag pcm").
Auch hier funktioniert
Delphi-Quellcode:
Bits = 8;
iSamples = 800;
iChannels = 1;
bei mir nicht (Dateigröße = 44, Länge = 0). Mit 16/44100/2 ist auch hier die Länge < 200msec obwohl ein Sleep von 200msek dazwischen ist.
Delphi-Quellcode:
mciSendString(PChar(strSettings),
nil, 0,
Handle);
mciSendString('
RECORD capture',
nil, 0,
Handle);
Sleep(200);
mciSendString('
STOP capture',
nil, 0,
Handle);
(auch ein WAIT im mciSendString hilft nicht, falls jemand meint, das Starten der Aufnahme dauert länger. Es fehlt bei mir immer am Schluss :/)