Suche Script

[Antenne]

Was soll ich sagen - es funktioniert

Ich glaub, damit wurde jetzt ein zweiter Kaffee fällig...

[flashlighter]

nene, einer reicht

[Antenne]

Hallo zusammen,

ich hole mein Thema mal wieder hervor.
Also nachdem das Script mit Hilfe von flashlighter wunderbar geklappt hat, ist mir jetzt im täglichen Einsatz eine Sache aufgefallen:

Ich führe das Script aus und alle Songs, die bis xx:55 Uhr nicht mehr ausgespielt werden können, werden gelb markiert. So soll es ja auch sein.
Wenn die Playlist allerdings über eine Sendestunde geht, werden auch alle weiteren Songs markiert, die in den nächsten Sendestunden eingeplant sind.
Gibt es da denn eine Möglichkeit, *nur* die Songs bis 5 vor und sonst keine weiteren zu markieren oder muss ich mir immer Playlisten erstellen, die nur eine Stunde lang dauern?

Schönes WE!

[flashlighter]

Hi,

du willst quasi das bisherige invertieren? Dass Songs markiert werden, die noch in dieser Stunde geschafft werden?

grüße, michi

[Antenne]

Hi,

du willst quasi das bisherige invertieren? Dass Songs markiert werden, die noch in dieser Stunde geschafft werden?

grüße, michi

Hmm...nein, nicht direkt. Also grundsätzlich sind bei mir alle Songs, die noch folgen hellgelb markiert - und die, die bis :55 nicht mehr reinpassen, werden gelb markiert.
Und ich suche nun nach einer Möglichkeit, dass immer nur die Songs (der Song?!) markiert werden, die in die laufende Sendestunde nicht mehr reinpassen - die übrigen (in den nächsten Stunden) sollen ganz normal bleiben.
Also im Prinzip soll nur der letzte Song, der zu lang ist, markiert werden.

[flashlighter]

okay, nur den ersten Song markieren, der nichtmehr reinpasst... das lässt sich machen...

Poste mal bitte den Code, der gerade funktioniert, dann erweiter ich das kurz.

grüße, michi

[Antenne]

Code: [Select]

var nextHour: TDateTime;
    jetzigeStunde: Integer;
    jetzt: TDateTime;
    sekBisNextHour: Integer;
    i: Integer;
    summe: Integer;
begin
jetzigeStunde := StrToInt(FormatDateTime('h', now));
jetzt:=now;
nextHour :=Date;
nextHour := nextHour + EncodeTime(jetzigeStunde,0,0,0) + 0.03819444444;
sekBisNextHour := Round((nextHour-jetzt)*86400);
summe:=0;
  for i:=0 to CurrentPlaylist.GetCount-1 do begin
    summe:=summe+CurrentPlaylist.GetItem(i).GetEffectiveDuration/10000000;
    if summe > (sekBisNextHour) then begin
      CurrentPlaylist.GetItem(i).SetColor(clYellow);
    CurrentPlaylist.GetItem(i).SetColored(true);
    end;
  end;
end.

[flashlighter]

Code: [Select]

var nextHour: TDateTime;
    jetzigeStunde: Integer;
    jetzt: TDateTime;
    sekBisNextHour: Integer;
    i: Integer;
    summe: Integer;
    farbig: boolean; //
begin
farbig:=false;
jetzigeStunde := StrToInt(FormatDateTime('h', now));
jetzt:=now;
nextHour :=Date;
nextHour := nextHour + EncodeTime(jetzigeStunde,0,0,0) + 0.03819444444;
sekBisNextHour := Round((nextHour-jetzt)*86400);
summe:=0;
  for i:=0 to CurrentPlaylist.GetCount-1 do begin
    summe:=summe+CurrentPlaylist.GetItem(i).GetEffectiveDuration/10000000;
    if (summe > (sekBisNextHour)) and (farbig = false) then begin
      CurrentPlaylist.GetItem(i).SetColor(clYellow);
      CurrentPlaylist.GetItem(i).SetColored(true);
      farbig:=true;
    end;
  end;
end.(ungetestet)

[Antenne]

Haut hin - ich danke dir!