Delphi Zwei Miditoene simultan ausgeben

Thema durchsuchen

Ansicht

Themen-Optionen

Zwei Miditoene simultan ausgeben

Ein Thema von hesubat · begonnen am 13. Jan 2006 · letzter Beitrag vom 16. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

hesubat

Registriert seit: 25. Dez 2005
Ort: Görlitz
19 Beiträge

Delphi 7 Personal

Zwei Miditoene simultan ausgeben

13. Jan 2006, 22: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