Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Aufgenommener Sound ist stumm
18. Sep 2004, 13:01
Ich nehme mit diesem Verfahren Sound auf :
Was gerade läuft aufnehmen
Start :
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 :
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
mciSendString(' STOP mySound', nil,0, Handle);
end;
Speichern :
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 ?
Michael
|
|
Zitat
|