mciSendString und WAV?

Maik20

Erfahrenes Mitglied
Ich bastele gerade einen kleinen WAV Recorder und nach einiger Recherche stecke ich nun fest. Ich habe folgenden Code:

Code:
    i = mciSendString("close all", 0&, 0, 0)
    i = mciSendString("open new type waveaudio alias capture", 0&, 0, 0)
    i = mciSendString("set capture channels 2", 0&, 0, 0)    ' 2 channels for stereo
    i = mciSendString("seek capture to start", 0&, 0, 0)    'Always start at the beginning
    i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)  
    i = mciSendString("set capture bitspersample 16", 0&, 0, 0)  '16 bits for better sound
    i = mciSendString("record capture", 0&, 0, 0)  'Start the recording
...
    i = mciSendString("save capture " & """" & filename & """", 0&, 0, 0)

Es wird wie geplant eine Datei angelegt die eine enstprechende Größe aufweißt, aber wenn ich die Datei mit dem MediaPlayer (oder anderem) absiele ist nichts zu höhren. Die Aufnahmelänge mit 16 Sek. stimmt, aber wie gesagt, 16 Sekunden nichts.

Wie kann ich die Lautstärke festlegen, oder wo könnte das Problem sein?

THX
 
Zurück