Sprachaufnahme / mciSendString

[toms]

Hallo,

Vor einiger Zeit habe ich auch etwas damit herumexperimentiert:
http://www.delphipraxis.net/748260-post.html

Habe noch einige Kleinigkeiten geändert, siehe Anhang.

[brechi]

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 :/)