Hallo,
ich versuche schon lange einen MIDI Sound mit Hilfe des MCI aufzunehmen. Aber um ersteinmal überhaupt zu testen ob das aufnehmen funktioniert habe ich folgenden Code getestet:
Delphi-Quellcode:
//==============================================================================
// OnClick-Event des Buttons zum Starten der Aufnahme
procedure TFormMain.ButtonAufnahmeStartenClick(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);
end;
//==============================================================================
// OnClick-Event des Buttons zum Beenden und Speichern der Aufnahme.
procedure TFormMain.ButtonAufnahmeAnhaltenClick(Sender: TObject);
begin
mciSendString('
STOP mySound',
nil,0,
Handle);
mciSendString('
SAVE mySound "c:\datei.wav"',
nil,0,
Handle);
mciSendString('
CLOSE mySound',
nil,0,
Handle);
end;
//==============================================================================
Die Aufnahme funktioniert mit WAVEAUDIO. Nun müsste ich doch für den Midi Kanal SEQUENCER einsetzen, aber da tuts sich nichts, Es wird keine Datei erstellt.
Kann mir da jemand helfen?
Gruß
Mazel