Sam : script pal pour couper titre par un jingle

28 déc. 2014·27 messages

bonjour à tous

voila pour le passage a la nouvelle année , j'ai un jingle qui decompte a partir de 15 sec

j'ai donc trouvé ce code qui stop bien la musique et balance a l'heure demandé un script pal pour lire un jingle

var P : TPlayer;
var Station : TSongInfo;

PAL.Loop := True;

PAL.WaitForTime('XX:00:00);

P := IdlePlayer ;
if P <> nil then
begin

Station := CAT['Top Of The Hour'].ChooseSong(smRandom,NoRules);
if Station <> nil then P.QueueSong(Station);

P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;

il fonctionne bien la premiere fois :)

en fait il s'arrete pas

j'ai ma Queue qui a des mp3 en attente , à l'heure 18:00:00 il coupe sur un fader le mp3 qui passe et sajoute dans le second player et se met en route sans soucis , puis il charge la suite de la Queue dans l'autre player

mais le soucis c'est qu'il s'arrete plus , a chaque mp3 il refais le script et remet le top horaire ........

il reste en running tout le temps

comment le stopper a la premiere execution ?

cdt