busby Posted November 20, 2010 Share Posted November 20, 2010 I'm hoping someone may be able to offer some suggestions about a way around a problem I have with SAM broadcaster.. The problem is that sometimes scheduled shows don't play as expected, and the reason is that other shows 'jump the queue'. At a time determined by the event scheduler, the PAL starts;It looks at the artists folder and does a 'rescan' Waits 20 seconds Clears the queue loads a jingle to the top of the queue loads the scheduled show file to the bottom of the queue Fades to next - i.e. plays  Writes the Show titleThe problem is that if the preceding show finishes at that precise time it loads into the first available player between  and  and the scheduled show stays in the queue. The solution really is some extra lines in the script to check that the file in the player, is the file in the folder - but that's not as easy as it might sound because the file is constantly changing.. If anyone can help me with this I would be eternally grateful! Now the PAL.. var Song : TSongInfo; var Present : DateTime = now; var Year, Month, Day : Integer; var D : string; var Artist : string; var Show : string; // Settings, Artist has to be EXACTLY like the folder-name. Artist := 'DJ Name'; Show := ' Show Name on 1Mix Radio'; SubDir['C:\Radio\' + Artist].Rescan; PAL.WaitForTime('XX:00:20'); Queue.Clear; // LOCKING HERE PAL.LockExecution; // Comment away the parts you don't need Dir['C:\Radio\Jingles&Wipes'].QueueTop(smRandom, NoRules); Queue.Addfile ('C:\Radio\'+Artist+'\id\id1.mp3',ipBottom); Dir['C:\Radio\'+Artist+'\part 01'].QueueBottom(smLRP, NoRules); Dir['C:\Radio\Jingles&Wipes'].QueueBottom(smLRP, EnforceRules); //Queue.Addfile ('C:\Radio\'+Artist+'\id\id2.mp3',ipBottom); Dir['C:\Radio\'+Artist+'\part 02'].QueueBottom(smLRP, NoRules); //Dir['C:\Radio\Jingles&Wipes'].QueueBottom(smLRP, EnforceRules); //Dir['C:\Radio\'+Artist+'\part 03'].QueueBottom(smLRP, NoRules); //Dir['C:\Radio\Jingles&Wipes'].QueueBottom(smLRP, EnforceRules); //Dir['C:\Radio\'+Artist+'\part 04'].QueueBottom(smLRP, NoRules); ActivePlayer.FadeToNext; // UNLOCKING HERE PAL.UnlockExecution; PAL.WaitForTime(T['+00:00:30']); // Inserting title and date Song := TSongInfo.Create; DecodeDate(Present, Year, Month, Day); D := (IntToStr(Day)) + '.' + (IntToStr(Month)) + '.' + (IntToStr(Year)); Song['artist'] := Artist; Song['title'] := Show + ' (' + D + ') Check the Forum for Tracklisting..'; Encoders.SongChange(Song); Song.Free; Link to comment Share on other sites More sharing options...
This topic is now archived and is closed to further replies.