Woran kann es liegen das ich keinen Ton bei midi erhalte?
Alle Gesendeten messagen sind positiv aber Ton kommt keiner.
Habe direkt mit MMSystem versucht.
Danach mit der Midi Komponente aus dem Forum hier, kein Erfolg.
Meine Soundkarte ist in Ordnung.
Delphi-Quellcode:
WM_COMMAND:
begin
case LoWord(wP) of
ID_KEY_ARRAY_FIRST..ID_KEY_ARRAY_LAST:
PutShortMidi($90, byte((wp - 200) + 1), volume);
end;
Eigentlich sollte jetzt ein durchgehender Ton zu hören sein.
Alle anderen Samples incl. das von FAlter funktionieren hier.
Nicht einmal der einfachste aufruf führt zum erfolg.
Einfaches Sample
Funktioniert auch nicht
gruss