MIDI mit MCI aufnehmen...

[Mazel]

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

[turboPASCAL]

Aufgenommener Sound ist stumm :gruebel:

[Mazel]

Hi,

dieses Problem habe ich nicht, es wird ja keine Datei erstellt. Der Grund dafür war, dass, nach der Fehlermeldung, kein MCI Gerät bereit ist oder nicht erkannt wird.

Gibt es denn eine andere Lösung um eine MIDI Datei aufzunehmen?

Auch beim Abspielen habe ich Probleme:

Delphi-Quellcode:

ERROR:=MCISendString(PChar('play ' + PlayFile), nil, 0, Handle);
MCIGetErrorString(ERROR, errString, 255);
Label3.Caption:=errString;

Auch hier kommt die selbe Fehlermeldung. Setze ich für PlayFile einen konkreten Pfad ein , funktioniert es, aber das kann ich nicht machen, da eine beliebige Datei abgespielt werden soll.

Gruß
Mazel

[Mazel]

keiner eine Idee, wie ich eine MIDI Datei aufnehmen kann?

Gruß
Mazel