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