MIDI-Ton erzeugen

[Florian H]

Hallo,

wie kann ich denn mit meinem Programm einen Ton als MIDI erzeugen?
Also dass das an die Soundkarte gesendet wird...

ich habe da folgenden Code gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  devHandle: HMIDIIN;
  midiRes: MMRESULT;
  theMsg : cardinal;
begin
   { Callbacks not necessary for output }
  devHandle := midiOutOpen( @devHandle, 1, 0, 0, CALLBACK_NULL );

  theMsg := DWORD(MidiMessage) Or
            (DWORD(MidiData1) shl 8) Or
            (DWORD(MidiData2) shl 16);

  midiRes := midiOutShortMsg( devHandle, theMsg );

  midiInClose(devHandle);
end;

Jetzt weiß ich aber nicht genau, was ich bei MidiMessage und MidiData 1+2 einsetzen soll/kann/darf/muss.
Weiß das einer (Google hat mir nicht geholfen...) oder funzt der Code überhaupt vom Prinzip her?

Man muss übrigens die mmSystem eingebunden haben...

Viele Grüße
Florian

[Florian H]

hm, wirklich so schwer? :pale: :pale: