wav Datei erzeugen

[fredi]

habe in diesem Forum ein wenig herumgestöbert und einige codesample gefunden um etwas zu rekorden, leider bekomme ich nur eine datei die keinen ton beim abspielen mit dem mediaplayer abgibt.
Lautstärke habe ich auf voll gestellt.

Kann mir jemand sagen was da falsch ist ?
danke für eure hilfe im voraus.
fredi

Delphi-Quellcode:

procedure TForm1.btnStartClick(Sender: TObject);
begin
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
mciSendString('SET mySound ' +
              'TIME FORMAT MS ' +
              'BITSPERSAMPLE 16 ' +
              'CHANNELS 2 ' +
              'SAMPLESPERSEC 44100 ' +
              'BYTESPERSEC 176400 ' +
              'ALIGNMENT 4',
              nil,0,handle);
mciSendString('RECORD mySound',nil,0,Handle);
btnEnde.Enabled := true;
end;

procedure TForm1.btnEndeClick(Sender: TObject);
var
TempFile : String;
begin
TempFile := 'C:\Temp\Sound.wav';
mciSendString('STOP mySound',nil,0,Handle);
mciSendString(pChar('SAVE mySound "' + TempFile + '"'),nil,0,Handle);
mciSendString('CLOSE mySound',nil,0,Handle);
btnEnde.Down := false;
end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[DeadEternity]

Hi, schau mal in diesem Thread nach:

http://www.delphipraxis.net/internal...ect.php?t=4178


MfG