Wav aufnehmen

[thomas2009]

Hallo

bei mir funktioniert dieser Code nicht, der eine WAV Datei erstellt :
Code

Ich erhalte aber keine Fehlermeldung
nach der Aufnahme, finde ich aber die erstellte WAV nicht ! Vielleicht die Datei wird überhaupt nicht erstellt

[toms]

Schau mal hier

[thomas2009]

ich habe das Demo im Anhang getestet aber es passiert nichts
Ich habe auch den Link von swissdelphicenter
aber es wird kein wav erstellt !
Wo wird die Datei gespeichert?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);      // Save
var
  verz: String;
begin
 //GetDir(0, verz);
//mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
  mciSendString('c:\test.wav', nil, 0, Handle);
  mciSendString('CLOSE mysound', nil, 0, Handle)
end;

[Jeff93]

Hallo, ich beschäftige mich auf momentan mit Audio, bei mir funtkioniert mein Code im Anhang