Maar we hebben Shoutcast v2 en daar laat hij hem niet in zien $combine$ heb ik al aangepast na $rds$
Wat doe ik hier fout..
P.s Gaat dit werken ik heb wordpress en gebruik de NGS SAM Integrator plugin
Dus ze kunnen geen naam of reactie achter laten het gaat mij er dat hij gewoon Artiest - Titel ~verzoekplaat~ aangeeft.
Wie wil en kan me op weghelpen.
Code: Selecteer alles
PAL.Loop := True;
var Song : TSongInfo;
var myCurrentSong : TSongInfo;
Song := TSongInfo.Create;
Song['rds'] := ' .:. Je Luistert Naar .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');
Song := TSongInfo.Create;
Song['rds'] := ' .:. www.jeradio.nl .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:05');
Song := TSongInfo.Create;
Song['rds'] := ' .:. Nu NONSTOP met onze Jukebox .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:05');
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
Song['rds'] := ' .:. Wij draaaien nu: ' + myCurrentSong['combine'] + ' .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:07');
WriteLn('New song started');
WriteLn('Waiting 5 Seconds before checking if it is a Request');
PAL.WaitForTime(T['+00:00:05']);
PAL.LockExecution;
Song := TSongInfo.Create;
WriteLn('Checking if song has been Requested......');
if ((ActivePlayer.GetSongInfo['requestID']) = 0) then WriteLn('Song is not a Request');
if ((ActivePlayer.GetSongInfo['requestID']) > 0) then
Begin
WriteLn('Song is a Request');
var reqInfo : TDataSet = Query('SELECT name, msg FROM requestlist WHERE id = ' + ActivePlayer.GetSongInfo['requestID'], [], true);
var Requested_by : String = reqInfo['name'];
var Dedication_Message : String = reqInfo['msg'];
reqInfo.Free;
If (Requested_by = '') then Requested_by := 'Luisteraar';
If (Dedication_Message = '') then Dedication_Message := 'Voor iedereen die mee luistert';
If ((Requested_by = 'Anoniem') and (Dedication_Message = 'Voor iedereen die mee luistert')) then
Begin
WriteLn('Song is a Request without Dedication');
WriteLn(Requested_by); // This should aways echo Anonymous
WriteLn(Dedication_Message); // This should aways echo Nothing...
Song['rds'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
Song['rds'] := ' **Verzoekje** ';
Encoders.SongChange(Song);
End
else
Begin
WriteLn('Song is a Request with a Dedication');
WriteLn(Requested_by);
WriteLn(Dedication_Message);
Song['rds'] := ' .:. Aangevraagd door: ' + Requested_by +
' Voor: ' + Dedication_Message + ' .:. ';
Encoders.SongChange(Song);
End;
End;
PAL.UnlockExecution;
WriteLn('Done....');
PAL.WaitForTime(T['+00:00:10']);
Song := TSongInfo.Create;
Song['rds'] := ' .:. Je kunt tijdens een Nonstop uitzending .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');
Song := TSongInfo.Create;
Song['rds'] := ' .:. verzoekjes aanvragen via optie JUKEBOX in het menu .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');
Song := TSongInfo.Create;
Song['rds'] := ' .:. Wij wensen jullie .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');
Song := TSongInfo.Create;
Song['rds'] := ' .:. Veel luister plezier toe .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');
Song := TSongInfo.Create;
Song['rds'] := ' .:. Namens het radionaam .:. ';
Encoders.SongChange(Song);
PAL.WaitForTime('+00:00:04');Groetjessss