Code: Selecteer alles
PAL.Loop := True ;
// 00:15
PAL.WaitForTime(T['00:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//03:15
PAL.WaitForTime(T['03:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//06:15
PAL.WaitForTime(T['06:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//09:15
PAL.WaitForTime(T['09:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//12:15
PAL.WaitForTime(T['12:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//15:15
PAL.WaitForTime(T['15:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//18:15
PAL.WaitForTime(T['18:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
//21:15
PAL.WaitForTime(T['21:15:00']);
Begin
CAT['Album vd week'].Queuetop(smRandom, NoRules);
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);
PAL.WaitForTime(T['23:59:59'])
END
END
END
END
END
END
END
ENDEn
Kan ik deze regel:
Code: Selecteer alles
Queue.AddFile('C:\Users\Oosterbaan\Desktop\Jingles\Jingle 2.2.mp3',ipTop);Code: Selecteer alles
CAT['Programma Jingles '].Queuetop(smLRP, NoRules);