nieuws tijdsein laat niet meer

[John2023]

Beste Leden,

Ik gebruik de orginele sam 4.2.2. nu gebruik ik de weekloper van Radio Europe eerder gepost op dit forum.

In deze weekloper staat deze code vermeld :

Code: Selecteer alles

// Woensdag 12:00 uur
while DayOfWeek(Now) = Wednesday and ((Now >= T['11:59:15']) and (Now <= T['11:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\server\tijd\12.mp3',ipBottom);
Queue.AddFile('C:\server\nieuws\nieuws.mp3',ipBottom);
PAL.LockExecution;
end;

Hij refresht de que lijst elk uur ook het tijdsein pakt hij, maar voor het tijdsein refresehd hij een nummer. wat heb ik hierin fout gedaan. ik wil elk uur enkel de tijdsmelding en vervolgens het nieuws wat ik ook aanpas aan het script ip top dergelijk bij alles gaat het fout. het draait op een vps server met windows server 2019. Gezien we op 6 januari grote auto reclame krijgen is belangrijk dat het nieuws snel gaat lopen op de stream. ik zou blij zijn met alle hulp. zit momenteel nog in qurantine.

[renem]

Ik weet het niet heel zeker maar ik denk dat je de regel:

ActivePlayer.FadeTonext;

moet verplaatsen en moet zetten tussen de regels:

Queue.AddFile('C:\server\nieuws\nieuws.mp3',ipBottom);
PAL.LockExecution;

Zo dus:

Code: Selecteer alles

// Woensdag 12:00 uur
while DayOfWeek(Now) = Wednesday and ((Now >= T['11:59:15']) and (Now <= T['11:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\server\tijd\12.mp3',ipBottom);
Queue.AddFile('C:\server\nieuws\nieuws.mp3',ipBottom);
ActivePlayer.FadeTonext;
PAL.LockExecution;
end;

[John2023]

Bedankt ik ga hem om 17 uur testen. de stream is hier te vinden :

Code: Selecteer alles

https://server-28.stream-server.nl:2000/tunein/RadioVolume/stream/pls

of

Code: Selecteer alles

http://server-28.stream-server.nl:8862/

[renem]

Ik heb niet kunnen luisteren. En? Was dit wat je bedoelde?

[John2023]

Ja dankjewel!.

Dit is de juiste code tot nu toe :

Code: Selecteer alles

// Woensdag 21:00 uur
while DayOfWeek(Now) = Wednesday and ((Now >= T['20:59:15']) and (Now <= T['20:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\server\nieuws\nieuws.mp3',ipTop);
ActivePlayer.FadeTonext;
PAL.LockExecution;
end;

Dank voor je medenken. nu ga ik het weekscript weer verder tweaken vanuit dit oogpunt. door een depressie en nu corona, ben ik heleboel dingen kwijt, via deze weg alvast mijn excuses voor de vele vragen. de website waar stream op staat is radiovolume.nl.