Nieuws Palletje

[erikd]

Pffff,
Zo handig als ik ben kom ik met het maken van een simpele PAL er gewoonweg niet uit.
Onderstaand ben ik aan het testen voor 24 uur.

Code: Selecteer alles

PAL.Loop:=True;

PAL.LockExecution;

// 01 uur `s nachts
    while (Now >= T['00:00:01']) and (Now <= T['00:59:59']) do

begin
  PAL.WaitForTime(T['01:00:00']);
  Queue.AddFile('E:\extern\Jingles\inkel\weddennieuws.mp3',ipTop);
    ActivePlayer.FadeTonext;
	Queue.Clear;
  Queue.AddFile('E:\extern\tijd\01.mp3',ipBottom);
  Queue.AddFile('E:\extern\nieuws\nieuws.mp3',ipBottom);
end;

PAL.UnLockExecution;

De ene keer speelt ie alleen de de tijd, ander keer alleen het nieuws, alleen nooit weddennieuws.mp3, ik zie m ook niet boven in de que komen.
Iemand een ideetje hoe deze 3 mp3tjes ieder uur automatisch af te spelen.
Ik heb deze PAL van Wout draaien. http://www.broadcasterforum.nl/viewtopi ... =81&t=3916

Thanks, Erik

[Wout]

De link correspondeert niet met de PAL die je laat zien.

Maar kijkend naar jouw PAL, kan je beter eerst een
Queue.clear doen, dan een Active fade en dan pas je 3 bestanden.

[erikd]

Hoi Wout,

Die link naar jou playlist PAL, die heb ik op dit moment draaien.
En wat ik er bij wilde was een voorlopertje op het nieuws, uurwissel en het nieuws zelf.

Erik

[drOhimself]

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;

// 01 uur `s nachts
while (Now >= T['00:59:01']) and (Now <= T['00:59:55']) do
	begin
		PAL.WaitForTime(T['00:59:59']);
		Queue.Clear;
		Queue.AddFile('E:\extern\Jingles\inkel\weddennieuws.mp3',ipBottom);
		Queue.AddFile('E:\extern\tijd\01.mp3',ipBottom);
		Queue.AddFile('E:\extern\nieuws\nieuws.mp3',ipBottom);
		ActivePlayer.FadeTonext;
	end;
PAL.UnLockExecution;

[erikd]

Tnx DrO

Werkt primaDonna.
Dit is voor mij (ondanks dat ik al 20 jaar systeembeheerder ben) Hardcore.
Is dit simpele palletje ook zo te formuleren dat ie er zelf een uur bij telt en dan weer uitgevoerd wordt het volgende uur.
Niet dat ik niet wil kopieeren en plallen x 24

Erik

[drOhimself]

Zo iets misschien ?

Code: Selecteer alles

    PAL.Loop:=True;
    PAL.LockExecution;

    while (Now >= T['xx:59:01']) and (Now <= T['xx:59:55']) do
       begin
          PAL.WaitForTime(T['xx:59:59']);
          Queue.Clear;
          Queue.AddFile('E:\extern\Jingles\inkel\weddennieuws.mp3',ipBottom);
          Queue.AddFile('E:\extern\tijd\01.mp3',ipBottom);
          Queue.AddFile('E:\extern\nieuws\nieuws.mp3',ipBottom);
          ActivePlayer.FadeTonext;
       end;
    PAL.UnLockExecution;

Je zit alleen met je ' 01.mp3 ' jingle ieder uur... dus misschien makkelijker als je een voorbeeld hier van het forum haalt daarvoor.

[erikd]

Bedankt DrO,

Ik ga eens rondstruinen en de materie proberen zelf te snappen
Van jou voorbeeld doe ik x 24 voor nu.

Erik

[drOhimself]

Of kijk even naar onderstaande PAL :
Ik heb zoiets zelf lopen, maar dan met een overlay van de uurmelding, dus over de muziek heen.
Deze PAL kijkt naar het uur, zoekt de betreffende uur meldings jingle op en zet die samen met je andere 2 nummers vooraan in de (lege) queue en gaat die ieder uur om xx:59:59 draaien.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
	const LOCATION = 'C:\Jingles\tijd\';

	var Player,Idle : TPlayer;
	var Song : TSongInfo;
	var uur : String ;
	uur := FormatDateTime('hh', Now) ;
	var path : String = '';
	var time,hour,minute,second,millisecond : Integer;
	WriteLn('Komend uur: '+ IntToStr(uur+1));
	// elk uur 
	While (Now >= T[uur+':59:48']) and (Now <= T[uur+':59:55']) do
		BEGIN
			path := LOCATION + IntToStr(uur+1) + '.mp3';
			Queue.Clear;
			Queue.AddFile('E:\extern\Jingles\inkel\weddennieuws.mp3',ipBottom);
			Queue.AddFile(path, ipBottom);
			Queue.AddFile('E:\extern\nieuws\nieuws.mp3',ipBottom);
			PAL.WaitForTime(T['xx:59:59']);
			ActivePlayer.FadeTonext;
		END;
PAL.UnLockExecution;

[Wout]

In het verleden ook zoiets gemaakt, maar dan ook met een tijd-melding erbij.
viewtopic.php?f=81&t=2232&start=20#p17827
Dus, voorbeelden genoeg.

[erikd]

Ik had ze al gezien, helaas heb ik het hele programmeren enz. altijd afgeslagen
Dacht dat ik op opgelost had geklikt.