PAL scripts

[Henz]

Hallo Vrienden,

Ik ben Henz ben nieuw en pas begonnen met Sambroadcaster.
En tot nu toe alles goed maar heb problemen met PAL scripts.
Ik doe mijn Programmas opnemen in het weekend en dan door
de weeks afspelen maar hebt een beetje moeite mee.
Want bijvoorbeeld ik heb een Programma elke dag om 10:00
en het luk niet altijd om even remote het programma te zetten.
Ik heb het geprobeert met Eventlogger en ook met Example 3 - Running a show a specific time
Bijvoorbeeld:

Code: Selecteer alles

PAL.Loop := True;
var mytime : DateTime;
var I : Integer;
 
var start_time, end_time : DateTime;
 
mytime := now;
start_time := T['19:58:00'];
end_time := T['19:58:30'];
 

 if DayOfWeek(Now) = Wednesday then
 begin
 
       if( mytime >= start_time) and (mytime <= end_time) Then
             begin
                 WriteLn('Canvas Prog Hour!');
 
 
        Queue.AddFile('C:\Documents and Settings\Gebruiker\Bureaublad\Predicaciones Semanales\Manuel-21-06-2009',ipTop);
        cat['Station IDs (All)'].QueueTop(smRandom,NoRules);
        
        
        PAL.WaitForTime(T['+00:01:00']);
 
             end;

Maar het lukt mij niet wat doe ik fout kan iemand mij daarbij helpen???
Ik zou heel dank baar zijn Grtjes Henz
En alvast Bedankt.

[cyberneticorganism]

Je kan het op 2 manieren doen:

- Met de ES (Event Scheduler)
- D.m.v. een PAL script

In de ES kan je gewoon een audio bestand inladen, op een door jou ingestelde tijd en datum.

De 2e manier d.m.v. het palscript:

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var TodayIsMyDayE1 : Boolean;
TodayIsMyDayE1 := ((DayOfWeek(Now) = Monday) or
                   (DayOfWeek(Now) = Monday) or
                   (DayOfWeek(Now) = Tuesday) or
                   (DayOfWeek(Now) = Wednesday) or
                   (DayOfWeek(Now) = Thursday) or
                   (DayOfWeek(Now) = Friday) or
                   (DayOfWeek(Now) = Saturday) or
                   (DayOfWeek(Now) = Sunday));


while (TodayIsMyDayE1) and ((Now >= T['09:59:25']) and (Now <= T['09:59:42'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['10:00:00']);
Queue.AddFile('D:\Denk aan Henk\Programma.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.clear;
PAL.LockExecution;
end;
PAL.UnLockExecution;

Dit zou zo moeten werken. Volgens mij kan het nog korter, maar handig hieraan is als het bijv. alleen op werkdagen is, dat je zaterdag en zondag eruit kan halen. Ik heb 10 uur 's ochtends aangehouden, aangezien je 10:00 typt.

[Henz]

hey beste cyberneticorganism,
het is niet gelukt ik heb het geprobeerdt het clear wel mijn Queue
maar het doet niet het programma opstarten dus mijn radio was vandaag de heledag offline
hahahahah vond wel grappig en heb net geprobeerdt met wat aanpassingen maar niks man
heb je niet een paar die het wel goed doen ??

[cyberneticorganism]

Dat is wel heel vreemd... ik heb iets soortgelijks draaien bij mij, alleen dan start er op die plek van het programma een uuropener.

Je hebt wel...

Code: Selecteer alles

Queue.AddFile('D:\Denk aan Henk\Programma.mp3',ipTop);

...deze regel aangepast? Op die plek dus de locatie van je programma gezet mag ik aannemen?

Ow, en je moet trouwens even 1 Monday regel weghalen... ik zie dat ik die per ongeluk 2 keer heb geplaatst. Werkt het hierna nog steeds niet?

[Henz]

Hey bedankt voor je hulp
Grtjes Henz