Meta Tag

[BeatFlex010]

Hallo iedereen,

Ik zou graag willen weten of dit mogelijk is met een PAL script!
Current Song: laat natuurlijk de song zien die momenteel afspeelt.

Nu wil ik die titel veranderen alleen als ik live ben. BV: op vrijdag van 18:00 tot 20:00.
Zou iemand mij kunnen helpen ?

Mijn dank is groot.

EDIT: Toevallig vond ik dit via google

Code: Selecteer alles

var Song : TSongInfo;

Song := TSongInfo.Create;

  Song['artist'] := 'Live DJ';
  Song['title']  := 'Mixing live from Club 747';
  song['duration'] := 30*60*1000; {30 minutes}

  {Update song information at 2pm}
  PAL.WaitForTime('14:00:00');
  Encoders.SongChange(Song);

Song.Free;

Zou iemand mij verder kunnen helpen dit naar wens aan te passen ?

[drOhimself]

Misschien zoiets als dit :
http://www.broadcasterforum.nl/viewtopi ... 319#p32318
Succes !

Of geef even precies aan wat je wilt.

[BeatFlex010]

Het komt inderdaad in de buurt.
Ik wil dus het volgende.

Elke vrijdag van 18:00 tot 20:00 de current song aanpassen naar: LIVE -=ON AIR=-
Na 20:00 moet die dan weer terug naar normaal, dus ik dacht dat de bovengenoemde wel een klein begin van de opzet was.

Ik wil verder ook niet in conflict komen met de hide jingle script.
Hoop dat de informatie een beetje duidelijk is.

Zou het dan ongeveer zo moeten?

Code: Selecteer alles

  while (DayOfWeek(Now) = Friday) and ((Now >= T['17:59:59']) and (Now <= T['19:59:59']))  do
  begin

  var Song : TSongInfo;
  Song := TSongInfo.Create;

  Song['artist'] := 'Remon@BeatFlex.nl';
  Song['title']  := 'LIVE -=ON AIR=-';
  song['duration'] := 120*60*1000; {120 minutes}

  {Update song information at 20:00}
  PAL.WaitForTime('20:00:00');
  Encoders.SongChange(Song);

  Song.Free;
  end ;

Of mis ik nog wat ?

Alvast bedankt.

[BeatFlex010]

Moet er toevallig nog

Code: Selecteer alles

PAL.Loop := True;

Bij ?

[drOhimself]

Ik heb de PAL even lokaal getest.....

Kwam tot volgende PALscript :

Code: Selecteer alles

while (DayOfWeek(Now) = Wednesday) and ((Now >= T['21:14:59']) and (Now <= T['21:50:00']))  do
begin
var Song : TSongInfo;
var myCurrentSong : TSongInfo;
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
Song['artist'] := 'Remon@BeatFlex.nl';
Song['title']  := 'LIVE -=ON AIR=-';
song['duration'] := 120; {120 minutes}
Encoders.SongChange(Song);
Song.Free;
end ;

Keurig de tekst zichtbaar, alleen met de 'duration' gaat het nog niet helemaal zoals ik wil....
Ik heb er maar even '120' ingezet.

[BeatFlex010]

Bedankt voor je reactie. Ik neem dan ook aan dat de PAL.Loop := True; niet nodig is om in te voegen ?
Bij mij zie ik namelijk geen verandering als ik het script start!

Overigens heb ik bij mijn encoders geen $combine$ staan maar $nowplaying$ in verband met een hide jingle script.
Als ik het dus verander naar $combine$ dan werkt het wel, maar dan werkt me hide jingle script niet meer.

Ik heb ook song['duration'] := 120; {120 minutes} eriot gehaald, die is een beetje overbodig.

Heb het script een klein beetje aangepast, en nu werkt die wel.

Code: Selecteer alles

PAL.Loop := True;

while (DayOfWeek(Now) = Thursday) and ((Now >= T['12:55:59']) and (Now <= T['18:00:00']))  do
begin

var Song : TSongInfo;
var myCurrentSong : TSongInfo;

myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;

Song['nowplaying'] := 'Remon@BeatFlex.nl - LIVE -=ON AIR=-';

Encoders.SongChange(Song);

Song.Free;
end ;

Helaas staat me complete playlist nu wel op Remon@BeatFlex.nl - LIVE -=ON AIR=- na een paar tracks.
Is daar nog een oplossing voor dat, hij dat niet steeds update ?

Is het dan niet beter om toch deze in te voegen

Code: Selecteer alles

{Update song information at 20:00}
  PAL.WaitForTime('20:00:00');

Dat hij de song info past update wanneer ik dat aangeef ?

Is het nu wel nodig de PAL.Loop := True; of niet?
Alvast bedankt voor de moeite.

[BeatFlex010]

Het is al opgelost.
Ik gebruik het volgende script, wat helemaal doet wat ik wil.

Code: Selecteer alles

PAL.Loop := True;

while (DayOfWeek(Now) = Friday) and ((Now >= T['17:59:59']) and (Now <= T['19:59:59']))  do
begin

var Song : TSongInfo;
var myCurrentSong : TSongInfo;

myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;

Song['nowplaying'] := 'Remon@BeatFlex.nl - LIVE -=ON AIR=-';

PAL.WaitForTime('19:59:55');
Encoders.SongChange(Song);

Song.Free;
end ;

[drOhimself]

Nee, de regel

Code: Selecteer alles

PAL.Loop := True;

is niet nodig.
De While loop zorgt er immers voor dat er alleen binnen de aangegeven tijd (en dag) de songinfo aangepast wordt.

[BeatFlex010]

Ik gebruik hem wel, want ik kwam er dus achter dat ik anders steeds het script handmatig moet starten.
Het script stopt namelijk zodra de dag en tijd voorbij zijn.

[drOhimself]

Aha !
Je hebt helemaal gelijk, dat is zo inderdaad zo.
Ik had de PAL niet hele dag -als test- lopen, dus dat kwam ook niet boven water.
Gelukkig dat jij nog wel 'wakker' was... !
Bedankt voor correctie.

[BeatFlex010]

Nu is het vandaag de dag en tijd dat de titel zich zou moeten aanpassen.
Echter is dit niet gebeurd.

Code: Selecteer alles

PAL.Loop := True;

while (DayOfWeek(Now) = Friday) and ((Now >= T['18:59:59']) and (Now <= T['20:59:59']))  do
begin

var Song : TSongInfo;
var myCurrentSong : TSongInfo;

myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;

Song['nowplaying'] := 'Remon@BeatFlex.nl - LIVE -=ON AIR=-';

PAL.WaitForTime('20:59:55');
Encoders.SongChange(Song);

Song.Free;
end ;

Kan iemand mij vertellen wat hier niet aan klopt ?

[drOhimself]

Huh???
En je zei 4 december :

Het is al opgelost.
Ik gebruik het volgende script, wat helemaal doet wat ik wil.

Code: Selecteer alles

PAL.Loop := True;

while (DayOfWeek(Now) = Friday) and ((Now >= T['17:59:59']) and (Now <= T['19:59:59']))  do
begin

var Song : TSongInfo;
var myCurrentSong : TSongInfo;

myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;

Song['nowplaying'] := 'Remon@BeatFlex.nl - LIVE -=ON AIR=-';

PAL.WaitForTime('19:59:55');
Encoders.SongChange(Song);

Song.Free;
end ;

Lijkt mij op het zelfde script.......

[BeatFlex010]

Ja klopt!
Na die dag heb ik er ook helemaal niks meer aan veranderd, alleen zag ik gister dat de titel niet werd veranderd.

Het script draait gewoon zonder errors... dus ik snap er niks meer van.

[drOhimself]

Ik zal proberen van het weekend te testen......
Hopelijk komt er iets uit op de testmachine.

[BeatFlex010]

Mijn dank is groot drOhimself!

[BeatFlex010]

Volgens mij heb ik het probleem opgelost.

Code: Selecteer alles

PAL.WaitForTime('19:59:55');
Encoders.SongChange(Song);

Veranderd in:

Code: Selecteer alles

Encoders.SongChange(Song);
PAL.WaitForTime('19:59:55');

Aangezien die Wait stond voor dat hij de titel kon updaten. Erg stom dat ik dat niet eerder heb gezien [smilie=blush2.gif]

Alleen is er nog wel een probleem, en dan is bij het volgende nummer past hij de titel gewoon weer aan naar het track titel en hij wacht niet de aangegeven tijd.

Zonder de

Code: Selecteer alles

PAL.WaitForTime('19:59:55');

werkt het naar behoren, maar dan zie je in me playlist constant die text, en dan is niet de bedoeling die hoeft er maar eenmalig te staan.

[BeatFlex010]

Weer een aanpassing.
Na een hoop te hebben getest, kwam het er op neer dat een ander script steeds mij titel weer terug naar normaal zet.

Dit script laat ik dan ook op false staan als ik live ben en zou het probleem opgelost moeten zijn.

Code: Selecteer alles

// verander in de encoder $combine$ in $nowplaying$
while (DayOfWeek(Now) = Wednesday) and ((Now >= T['20:59:59']) and (Now <= T['22:59:59']))  do
begin
PAL.Loop := false;
PAL.WaitForTime('22:59:55');
end;

PAL.Loop := True;
var Song : TSongInfo;
var myCurrentSong : TSongInfo;

PAL.WaitForTime(T['+00:00:05']);

myCurrentSong := ActivePlayer.GetSongInfo;

If ((myCurrentSong['songtype'] = 'S')) then

begin
    Song := TSongInfo.Create;
    Song['nowplaying'] := myCurrentSong['combine'];
    Encoders.SongChange(Song);
    PAL.WaitForPlayCount(1);
end;

[drOhimself]

Mooi !
Je bent lang door gegaan vannacht zeg.
Ik heb er van het weekend helaas toch geen kans voor gezien om het te testen (druk met andere onvoorziene dingen).
En inderdaad, zodra er andere script óók nog dingen doen met de titel, dan wordt het voor ons wel onoverzichtelijk.
Jouw script (alleen) kan bij ieder ander goed werken, maar een tweede script bij jou kan roet in het eten gooien.

[BeatFlex010]

Ja het is erg laat (vroeg) geworden LOL !!
Gelukkig dat het nu wel werkt, hoe ik het wil.

Het script zelf zou inderdaad goed moeten werken bij andere, alleen zodra iemand ook het hide jingle script gebruikt zullen ze die ook even moeten aanpassen.