Een internet station draait op gezette tijden een 1-uurs show, met een gevarieerd programma, muziek en jingles.
Dus 1 mp3, met maar 1 ID3 tag.
Ofwel, indien de originele ID3 tag wordt overgenomen, zal er dat hele uur maar één regel zichtbaar zijn, dus geen verandering van titel/artiest.
Om dit te veranderen, leek het mij handig om, d.m.v. een aangeleverd text bestand, met daarin de artiest - titel - starttijd, dit via de op dit forum besproken methode om RDS tekst toe te voegen aan je huidige title streaming.
Dus de maker van de 1-uurs show, heeft de beschikking over de starttijden van alle in dat uur gedraaide nummers.
Het uur begint op 00:00 en stopt op 60:00
Voorbeeld:
00:00 jingle (station ID)
00:10 song-1
03:40 song-2
06:20 jingle
etc. etc.
De huidige -niet zo fraaie- oplossing staat hieronder in de PAL.
Omdat de maker niet de starttijden, maar de DUUR van de nummers had aangeleverd, zijn er WaitForTime regels ingebouwd.
Wie heeft een elegantere oplossing ?
Code: Selecteer alles
// Vervang in de encoder bij Title Streaming, de $combine$ voor $rds$
//
PAL.Loop := False;
var Song, myCurrentSong : TSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Alexander O Neil - He Said She Said';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:02:56');
//
Song := TSongInfo.Create;
//Song['rds'] := ' .:. RADIO .:. ';
Song['rds'] := 'One Direction - Stockholm Syndrome';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:34');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Alex Green - Glorious';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:36');
//
Song := TSongInfo.Create;
//Song['rds'] := ' .:. LEUK DAT JE LUISTERT ! .:. ';
Song['rds'] := 'Splitz Enz - Message To My Girl';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:02');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Andy Burrows - Watch Me Fall Again';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:16');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Empire Of The Sun - Wandering Star';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:16');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Kodaline - Honest';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:38');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Boyz II Man - Believe Us';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:38');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Crazy World Of Arthur Brown - Fire';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:02:55');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Ellie Goulding - Love Me Like You';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:13');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Alannah Myles - Song Instead Off A Kiss';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:05:04');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'O G3NE - Magic';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:02:56');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'MNEK - The Rhythm';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:02');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Justin Timberlake - Rock Your Body';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:27');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Kiki Dee - Star';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:15');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'The Weeknd - Earned It';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:04:12');
//
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
//Song['rds'] := ' .:. ' + myCurrentSong['combine'] + ' .:. ';
Song['rds'] := 'Madonna - XXX';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:03:22');