RDS en REquest aanvraag in RDS PAL

Voor vragen over Playlist Automation Language.
Gesloten
Studioschuttevaer
*
Berichten: 11
Lid geworden op: 26 dec 2016, 00:22
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: Windows 10

RDS en REquest aanvraag in RDS PAL

Ongelezen bericht door Studioschuttevaer » 31 mar 2017, 17:50

Beste leden deze script heb hier weg ff aangepast na eigen tekst maar krijg hem nie werkend in sam,, althans hij loopt wel zonder errors,
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');
Graag zie ik een reactie van jullie tegen moet.
Groetjessss

Gesloten
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht