Ich habe das Script nochmal umgebaut, mit einem Forenbeitrag von 2009: Midi-Out Script
//Called when Script is loaded
procedure OnLoad;
begin
MidiOutListDevices;
MidiOutOpen(1);
end;
// Called before mAirList shutdown
procedure OnUnload;
begin
MidiOutClose(1);
end;
//Steuerung
//Start
procedure OnPlayerStart(PlaylistIndex: integer; PlayerIndex: integer);
begin
if PlayerIndex = 0 then
MidiOut ( 1, $B0, $04, $5F ) ;
if PlayerIndex = 1 then
MidiOut ( 1, $B0, $06, $5F ) ;
end;
//Stop
procedure OnPlayerStop(PlaylistIndex: integer; PlayerIndex: integer; Duration: TTimeValue);
begin
if PlayerIndex = 0 then
MidiOut ( 1, $B0, $04, $00 ) ;
if PlayerIndex = 1 then
MidiOut ( 1, $B0, $06, $00 ) ;
end;
begin
end.
Aber jetzt zeigt er mir das hier an:
und
