Skripte funktionieren nicht mehr

Archive mAirList 3.x (Deutsch)
21

Hmm, egal wo ich das SystemLog einfüge, es kommen immer Fehler von wegen TypeMismatch und angegeben ist dann die Zeile, in die ich das SystemLog einfüge. Leider ist das für mich als Laien zu undurchsichtig.
Schade, in der 2er-Version hat das mit den Skripten alles noch prima geklappt…

22

Also, nun hab ich das SystemLog wieder rausgenommen und das Skript noch mal ausgeführt. Jetzt steht in der Statuszeile “Keinen freien Player gefunden”. Wie muss ich das denn verstehen?

23

Am besten wendest du dich an denjenigen, der das Script seinerzeit für dich geschrieben hat. (Du selbst warst das nicht, entnehme ich deinen Aussagen.)

24

So, flashlighter hat sich dem Problem noch mal angenommen. Mit diesem Skript klappt das Ganze jetzt auch unter mAirList 3.0 und unter Einbezug einer individuellen Fade-Zeit. Soll im Prinzip mit jeder Konfiguration ab 2 Playern funktionieren.
Vielen Dank an flashlighter! :smiley:

[code]var i, player, item, pc: integer;

begin

pc := 0; {only for the playbackcontrol - if you use 2 or more playlists, change this value}

player := -1;

item := -1;

for i := 0 to PlaybackControl(pc).GetPlayerCount - 1 do

if ((PlaybackControl(pc).GetPlayer(i).GetState = psLoaded) or

    (PlaybackControl(pc).GetPlayer(i).GetState = psPaused))

  and

   ((item = -1) or

    (CurrentPlaylist.IndexOf(PlaybackControl(pc).GetPlayer(i).GetItem) < item))

then begin

  player := i;

  item := CurrentPlaylist.IndexOf(PlaybackControl(pc).GetPlayer(i).GetItem);

end;

if (player = -1) then

SystemLog('Keinen freien Player gefunden.')

else begin

PlaybackControl(pc).GetPlayer(player).Start;

for i := 0 to PlaybackControl(pc).GetPlayerCount - 1 do

  if i <> player then begin

    if PlaybackControl(pc).GetPlayer(i).GetItem <> nil then

      PlaybackControl(pc).GetPlayer(i).GetItem.SetFadeDuration(10000000);

    PlaybackControl(pc).GetPlayer(i).FadeOut;

end;

end;

end.[/code]