hallo.
leider habe ich ein problem mit den scripten. hier einmal das fürs faderstart:
[code]var
FaderAn: boolean;
TasteAn: boolean;
procedure OnStartup;
begin
FaderAn := false;
TasteAn := false;
end;
procedure OnExecuteCommand(Command: string);
begin
if Command = ‘MAL1_FADER_ON’ then begin
FaderAn := true;
if TasteAn then PlaybackControl(0).GetPlayer(0).Start;
end
else if Command = ‘MAL1_BUTTON_ON’ then begin
TasteAn := true;
if FaderAn then PlaybackControl(0).GetPlayer(0).Start;
end;
if Command = ‘MAL1_BUTTON_OFF’ then begin
TasteAn := false;
end;
if Command = ‘MAL1_FADER_OFF’ then begin
FaderAn := false;
end;
end;
begin
end.
[/code]
[code]var
FaderAn: boolean;
TasteAn: boolean;
procedure OnStartup;
begin
FaderAn := false;
TasteAn := false;
end;
procedure OnExecuteCommand(Command: string);
begin
if Command = ‘MAL2_FADER_ON’ then begin
FaderAn := true;
if TasteAn then PlaybackControl(0).GetPlayer(1).Start;
end
else if Command = ‘MAL2_BUTTON_ON’ then begin
TasteAn := true;
if FaderAn then PlaybackControl(0).GetPlayer(1).Start;
end;
if Command = ‘MAL2_BUTTON_OFF’ then begin
TasteAn := false;
end;
if Command = ‘MAL2_FADER_OFF’ then begin
FaderAn := false;
end;
end;
begin
end.[/code]
die scripten funktionieren ansich einwandfrei. das problem ist jetzt nur, dass ich noch 2 andere scripte verwende, die die history bei jedem playerstart bis auf 1 historyelement aufräumen. die haben auch bis jetzt immer super funktioniert. nur wenn ich jetzt meinen fader runterziehe und den player in pause versetze, den button auf on lasse und dann den nächsten player starte. wird die history leider nicht mehr aufgeräumt. erst wenn ich den playerbutton wieder auf off setze, wird auf einmal die history aufgeräumt. das selbe gilt auch für den fader.
torben, ist das ein bug oder funkt. das einfach so nicht, wenn ich diese scripten verwende ???
hier die scripten zum aufräumen der history bei playerstart:
[code]procedure OnPlayerStart ( PlayerControl : IPlayerControl ; Item : IPlaylistItem );
begin
PlaybackControl(0).SetMaxHistoryCount(1);
end;
begin
end.[/code]
[code]procedure OnPlayerStop ( PlayerControl : IPlayerControl ; Item : IPlaylistItem ; Duration : int64 );
begin
if (PlaybackControl(0).GetPlayer(0).GetState=PS_LOADED) or
(PlaybackControl(0).GetPlayer(1).GetState=PS_LOADED) then begin
PlaybackControl(0).SetMaxHistoryCount(50);
end;
end;
begin
end.[/code]
lg mike
EDIT: version 2.2.2
ansteuerung über MIDI