|
Registriert seit: 26. Dez 2005
Ort: Görlitz
19 Beiträge
Delphi 7 Personal
|
Zwei Miditoene simultan ausgeben
13. Jan 2006, 23:27
Die Tonausgabe hat folgendes Format:
midistart:=(65536*volume)+(256*(ton+oktav))+144;
TreiberNr:=0;
MidiOutOpen(@MidiOH, TreiberNr, 0, 0, 0);
data:=(256*instrumen)+192;
MidiOutShortMsg(MidiOH, data);
MidiOutShortMsg(MidiOH, midistart);
Gestartet wird nach OnKeyDown. Beendet nach OnKeyUp.
Das funzt auch in allen Oktaven, bei allen Toenen und mit allen Instrumenten. Das Problem nun : Wie kriege ich einen zweiten Ton gleichzeitig in die Ausgabe? Welche Parameter muss ich ggf. aendern? Oder geht das nicht so einfach?
Heinz Subat
|