Jingle-script tijdelijk uitschakelen

[zorgradio]

Ik heb tijdens de kerstdagen onder andere het volgende PAL script draaien.

Code: Selecteer alles

Queue.Clear;
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251214.mp3',ipTop);

Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251415.mp3',ipTop);

Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251517.mp3',ipTop);

Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251719.mp3',ipTop);

Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251921.mp3',ipTop);

Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\252122.mp3',ipTop);

en het jingle script

Code: Selecteer alles

PAL.Loop := True; 
PAL.WaitForPlayCount(5);
Cat['Jingles (All)'].QueueTop(smRandom, NoRules);

Hoe voorkom ik dat het jingle PAL script tussen de programma's jingles zet zonder het script met de hand uit te schakelen?

gr. Arthur

[Kees]

Hier een scriptje.
LET ECHTER OP !!
Hij stopt de loop van jingles op tijd.
Een half uur voor aanvang van je programma's
Hij blijft anders tijdens de programma's door lopen.
Hij draait immers 5 platen voor het script opnieuw van bovenaf aan herstart.
Ik hoop dat het duidelijk is.
Zoniet, dan hoor ik het wel.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2007,12,24);
DEnd := EncodeDate(2007,12,26);
while ((Now>DStart)) and ((Now<DEnd)) and ((Now >= T['11:30:00']) and ((Now <= T['12:00:30']))) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:00:00']);
PAL.LockExecution;
end;
PAL.UnLockExecution;
PAL.WaitForPlayCount(5);
Cat['Jingles (All)'].QueueTop(smRandom, NoRules);

Verder zul je je script moeten wijzigen anders draait hij je laatste programma als eerst.

Code: Selecteer alles

Queue.Clear;
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251214.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251415.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251517.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251719.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251921.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\252122.mp3',ipBottom);

Je kan het ook samenvoegen in een script.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2007,12,24);
DEnd := EncodeDate(2007,12,26);
while ((Now>DStart)) and ((Now<DEnd)) and ((Now >= T['11:30:00']) and ((Now <= T['12:00:30']))) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:53']);
Queue.Clear;
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251214.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251415.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251517.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251719.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\251921.mp3',ipBottom);
Queue.AddFile('C:\kerstopnames\1ekerstdag-2007\252122.mp3',ipBottom);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['22:00:00']);
PAL.LockExecution;
end;
PAL.UnLockExecution;
PAL.WaitForPlayCount(5);
Cat['Jingles (All)'].QueueTop(smRandom, NoRules);

[zorgradio]

Bedankt Kees,

DStart := EncodeDate(2007,12,24);
DEnd := EncodeDate(2007,12,26);

als ik het goed begrijp dan loopt dit scriptje éénmalig, dus tussen 24-12-2007 en 26-12-2007.

while ((Now>DStart)) and ((Now<DEnd)) and ((Now >= T['11:30:00']) and ((Now <= T['12:00:30']))) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:00:00']);

vanaf 11:30 tot 22:00 en heb ik er verder geen omkijken naar.

Geweldig en nogmaals bedankt.

Arthur

(moet het nog testen maar verwacht geen problemen )

[Kees]

Klopt..het script blijft na deze datum gewoon zijn werk doen.
Je kan hem dus daarna eventueel aanpassen voor 2008 !

[zorgradio]

mmmm, toch maar gelijk getest, even wat tijden aangepast aan dit moment maar het was geen succes.

ik heb het totale script genomen en met de hand gestart

de queue werd gevuld, leeg gemaakt en weer gevuld en dit tot in het oneindige als ik het niet gestopt zou hebben.

Nu wordt de queue niet meer automatisch gevuld, zelfs herstarts en het nodige schoonmaken van de database hielp ook niet.

gelukkig is dit op een testmachine uitgevoerd en kan ik dus wat rommelen.

Mogelijk heb ik iets met de tijd fout gedaan en staat de boel nog ergens gelockt, zal misschien over 24 vanzelf opgelost zijn

gr. Arthur

knip/edit, systeemklok even een dag vooruit gezet en het loopt weer, moet dus iets unlocken denk ik, weet alleen niet wat

[Kees]

Zet je gewijzigde script eens online.
Kan ik eens kijken wat er mis gaat.

[zorgradio]

helaas, gaat niet meer lukken, direct daarna de wijzigingen ongedaan gemaakt.
Echter wil Sam nog steeds niet de qeue vullen, geeft de bekende error van 20 pogingen, dit moet komen van het script onderbreken voordat de lock/unlock wijzigingen klaar was.
Ben daar nog niet uit dus als je nog een hint hebt om dat weer te resetten, graag.

groeten Arthur

[Kees]

Als je het script uitschakelt kan deze geen invloed meer hebben op het vullen van de queue.
Ik heb het script hier getest voordat ik hem online zette en gaf geen problemen.
Vandaar dat ik benieuwd ben wat je zoal heb gewijzigd.

[zorgradio]

Sorry Kees, toevallige samenloop van omstandigheden denk ik.
Systeem draaide sinds gisteravond goed en nu net stopte het weer zonder verklaarbare reden.
Had het test systeem thuis draaiend met alleen maar kerstmuziek, dacht dat 664 nummers toch geen probleem zou opleveren maar dus wel, mijn playlist rules stonden te hoog ingesteld
Ik red het nu niet meer om je script te gebruiken maar in ieder geval volgend jaar.

bedankt, Arthur

[Kees]

IK zeg altijd maar zo Arthur..
Wat in het (SAM) vat zit verzuurt niet