Le forum de la radio, depuis 2005.

Antennes, webradios, animateurs, technique, créations sonores : lancez un sujet, répondez en texte ou en message vocal, partagez vos photos et vos sons, votez aux sondages.

Créer un compteSe connecterGratuit, en trente secondes.
901

SCRIPT PAL , playlist a la meme heure tous les jours

bonjour , voila je voudrais que sam tous les jours à la meme heure , disons 19h00 par ex , donc heure fixe , un jingle special et balance pour 1h la playlist d'un dossier specifique j'ai voulu m'inspirer de ce code http://www.radios-fr.com/topic/1280-script-pour-mettre-un-top-horaire-sans-couper-un-titre/ mais bon ................... dur dur . j'ai voulu remplacer le Queue.AddFile('C:\Documents and Settings\Fabrice\Mes documents\Ma musique\Radio Documents\Gregoryto\Jingles - Top Horaire.mp3',ipTop); par mon jingle et a la suite mes musiques , mais il decole pas a la bonne heure pour mes test j'ai mis 23h58 debut et 00h02 fin et il demarre à 23h45 , puis apres 5 titres delire :( pour mes essai j'ai mis ça dans sam PAL.Loop := True;function ActivePlayer:TPlayer; forward; Var B : Boolean;B:=FALSE;{Durée de la fenêtre en millisecondes!}const Delta = 240*1000; {Début de la fenêtre}const Debut = '23:58:00';{Heure du top si le titre est trop long}const Btime = '00:01:00';{Attendre la bonne minute} PAL.WaitForTime(T[Debut]); {Si le titre se termine dans les 4 minutes suivantes on place le top}if (ActivePlayer.Duration>0) and ((ActivePlayer.Duration-ActivePlayer.CurTime) beginCat['intromif'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J1'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J6'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J3'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J4'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J5'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J8'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J2'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J7'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J1'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J6'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J3'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J4'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J5'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J8'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J2'].QueueTop(smRandom,NoRules);Cat['titrefr'].QueueBottom(smLemmingLogic,EnforceRules);Cat['J7'].QueueTop(smRandom,NoRules);B:=TRUE;end;{On attend 01}PAL.WaitForTime(T[Btime]);{Il est 01 et on sait par B que le titre est trop long alors on le coupe avec le top} if NOT B…
·actif
1 635
·actif
8 319
·actif
1 065
·actif
684
·actif
1 393
·actif
5 681
·actif
1 371
·actif
5 540
·actif
1 343
·actif
952
·actif
3 783
·actif
5 294
+1
InvitédansWindows / Mac
·actif
6 978
Vidéo YouTube