Ich nehme mit diesem Verfahren Sound auf :

Was gerade läuft aufnehmen

Start :

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(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 ',
    nil, 0, Handle);
mciSendString('RECORD mySound',nil,0,Handle);
end;

Stop :

markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  mciSendString('STOP mySound',nil,0,Handle);
end;

Speichern :

markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  mciSendString(pChar('SAVE mySound' + ' "' + Edit1.Text + '"'),nil,0,Handle);
  mciSendString('CLOSE mySound',nil,0,Handle);
end;

Wenn ich mir die Datei anhöre die ich aufgenommen hab bekomme ich nichts zu hören ...
Woran kann das liegen ?

das leigt an den stereomix einstellungen. in der faq meines tools hab ichs so erklärt:

markieren

Code:

F: Die Aufnahme ist leer, zu laut oder zu leise. Was kann ich tun? 
A: Öffnen Sie die Systemsteuerung » Sounds und Audiogeräte » Audio » Soundaufnahme » Lautstärke. Finden Sie hier einen Regler "Stereomix", aktivieren Sie die Checkbox "Auswählen" unter ihm. Ist Ihre Aufnahme zu laut, verschieben Sie den Regler nach unten, ist sie zu leise, verschieben Sie ihn nach oben. Eine korrekte Aufnahme erfolgt nur, wenn der Stereomixregler ausgewählt ist. Sehen Sie hier keinen Regler mit der Überschrift Stereomix, klicken Sie auf Optionen » Eigenschaften, markieren Sie
Lautstärke regeln für » Aufnahme und setzen Sie ein Häckchen vor dem Eintrag Stereomix in der Liste "Folgende Laustärkeregler anzeigen"!

das wurde aber doch auch im tut thread erklärt

Danke !
Es funktioniert jetzt !!