nun verzweifle ich bald.
habe den code nun erweitert und bekomme nun (62:11): identifier expected:
[code]procedure OnLoad;
begin
MidiOutOpen(5);
MidiOutListDevices;
midiout( 5 , 176 , 0 , 0 );
midiout( 5 , 176 , 0 , 40);
end;
/////////////////////////////////////////On Air Status///////////////////////////////////////////
procedure OnOnAir();
begin
midiout(5,144, 41, 22);
end;
procedure OnOffAir();
begin
midiout(5,144, 31, 60);
end;
////////////////////////////////////////Automation Status///////////////////////////////////////
procedure OnAutomationOn(PlaylistIndex: integer);
begin
midiout(5,144, 42, 22);
end;
procedure OnAutomationOff(PlaylistIndex: integer);
begin
midiout(5,144, 32, 60);
end;
/////////////////////////////////////// Player Status////////////////////////////////////////////
procedure OnPlayerStateChange(PlaylistIndex: integer; PlayerIndex: integer ;OldState: TPlayerState; NewState: TPlayerState);
begin
if (PlayerIndex = 0) then
begin
if (NewState = psLoaded) then
begin
MidiOut ( 5, 144, 11, 22 ); // Player A grün
MidiOut ( 5, 144, 14, 60 ); //Stop Player A rot
end;
if (NewState = psStopped) then
begin
MidiOut ( 5, 144, 11, 60 ); // Player A rot
MidiOut ( 5, 144, 14, 60 ); // Stop Player A Grün
end;
begin
if (PlayerIndex = 1) then
begin
if (NewState = psLoaded) then
begin
MidiOut ( 5, 144, 15, 22 ); // Player B grün
MidiOut ( 5, 144, 18, 60 ); // Stop Player B rot
end;
if (NewState = psStopped) then
begin
MidiOut ( 5, 144, 15 , 60 ); // Player B rot
MidiOut ( 5, 144, 18 , 60 ); //Stop Player B grün
end;
end;
begin;
end;[/code]
61 ist meine letzte zeile