Gezocht scriptje voor rond de kerst

[frank1964]

Volgens mij heb jij dat best ergens nog liggen Kees

Stelling:
vanaf 24 december 20.00 tot en met 26 december 23.59 Alleen maar muziek uit de cat "kerst"
request in die periode uit schakelen
bestaande al draaiende scripts gewoon kunnen blijven uitvoeren.

na de periode alles weer bij het "oude" .

:smt114 :smt111

[Kees]

Frank..ik ga eens even
Moet vast en zeker wel lukken.
Zodra het script klaar is geef ik wel een :mod:

[Kees]

Ik heb er een maar ik moet wel even weten wat voor scripts jij nog meer heb draaien, Frank ?
Graag als het kan even online zetten !
Kan ik kijken of deze geen conflict veroorzaken met het script wat ik nu heb gemaakt.

[frank1964]

Deze scriptjes heb ik nu als afzonderlijke scriptjes lopen Kees waarbij de laatse in de event scheduler staat.

Code: Selecteer alles

PAL.WaitForTime(StrToDateTime('16-12-2007 19:59:30'));
Queue.AddFile('e:\bakeliedjes.wma',ipTop);
ActivePlayer.FadeToNext;

PAL.Loop:=True;
PAL.WaitForTime(T['xx:58:30']);
Queue.AddFile('E:\kerst\Various\Kerst - Andy Williams - The Most Wonderful Time Of The Year-1.mp3',ipTop);

PAL.WaitForTime(StrToDateTime('19-12-2007 19:59:30'));
Queue.AddFile('e:\klanken.wma',ipTop);
ActivePlayer.FadeToNext;

Queue.AddFile('mms://vogelzang.nijmegen.internl.net/radiorijnmond',ipTop);
ActivePlayer.FadeTonext;
// nu vul je de tijd in dat de stream moet stoppen.
PAL.WaitForTime(T['12:00:00']);
ActivePlayer.FadeToNext;

[Kees]

Deze zet continu 1 kerstplaat in de top van de Queue.
Het PAL script stopt automatisch op 26 december om 23:59:00.
Ook de request wordt automatisch uit en aan gezet.
Het script kun je automatisch met SAM laten opstarten.

Code: Selecteer alles

PAL.WaitForTime(StrToDateTime('24-12-2007 19:59:00'));
PAL.Loop:=True;
   RequestPolicy.Enabled := False;
Var DEnd : DateTime;
DEnd := EncodeDate(2007,12,26);
Cat['kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForPlayCount(1);
if ((Now>=DEnd)) And (Now >= (DateTime(T['23:59:00']))) then
begin
   PAL.Loop := False;
      RequestPolicy.Enabled := True;
end;

[frank1964]

Helemaal top Kees precies wat ik zoek !!!!! bedankt !

[Kees]

Graag gedaan Frank...en wie weet, heb ik er andere ook blij mee gemaakt.

[FataMorgana]

Ik zou er ook blij mee kunnen zijn.
Vannacht begint op mijn beide radiostations de kerstprogrammering.
Maar ik start gewoon met de hand een nieuw clockwheel.
Is niet zo veel werk...

[Kees]

Ja John..heb je helemaal gelijk in hoor.
Maar soms hanteer ik de stelling...waarom makkelijk doen als het ook moeilijk kan.

[frank1964]

Even laten weten dat je scriptje prima zijn werk gedaan heeft Kees. De programmering is succesvol geweest !