request PAL werkt niet goed

[frank landgraaf]

hoi wie kan me een advies geven omtrent het request PAL.
opzig werkt het goed, alleen valt regelmatig uit het verzoekje weg van wie het aagevraagdt heeft en welke plaat dat er gedraaidt wordt en voor wie het bestemd is ?? In de jukebox en op de radio toolbox.
we hebben het regelmatig aan en uit gezet dan doet het weer voor een plaat of 3a4.
hoe kunnen we het oplossen dat het erin blijft.

mvg frank landgraaf [smilie=yahoo.gif]

[drOhimself]

... het request PAL.

Welke PAL? Even aangeven welke je gebruikt, liever nog gewoon die info hier aan topic hangen.

...In de jukebox

????

... en op de radio toolbox.

????

Wij hebben wel blauwe jurken en hebben glazen bollen op ons bureau, maar het blijft moeilijk voor ons....

[frank landgraaf]

Code: Selecteer alles

{
  Insert Request Dedication information into encoded stream : script by Xgeek (aka Xgeek)
  $Id: Inject Request Dedication.PAL,v 0.05 2004/11/12

  * This script would not have been possible without the help from FesterHead. Thank You!!!

  What this PAL does:
    * On song change checks to see if the song was requested, and if it was:
    * If no dedication information it will inject ~Requested~ in the title stream after Artist - Title
    * If dedication information it will inject ~Requested by <Name> : Who had this to say:- <Message>~ in the title stream after Artist - Title


  What is configurable:
    * Nothing


  PAL built to run continuously:
    * Switch to a desktop with the 'PAL Scripts' window visible

    * Click '+' (Add new PAL script)

    * Check the 'Automatically start script' box

    * Click the folder icon and navigate to this script

    * Click 'OK'

    * Highlight PAL and click 'Start selected PAL script' (VCR type play button)

    * Save settings by clicking the 'File' menu item and selecting 'Save Configuration'
}

PAL.Loop := True;

WriteLn('New song started');

// WriteLn('Waiting 5 Seconds before checking if it is a Request');
// Wait a few seconds just in case this song is a Jingle. If it is, and it is under 10 seconds the script will still get the correct info for the song after.
// PAL.WaitForTime(T['+00:00:05']); //Wait 5 secs
PAL.LockExecution;

// Instantiate a Song Info object
var Song : TSongInfo;
Song := TSongInfo.Create;

WriteLn('Checking if song has been Requested......');
if ((ActivePlayer.GetSongInfo['requestID']) = 0) then WriteLn('Song is not a Request');

// Check if current song has a request ID
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 := 'Anonymous';
      If (Dedication_Message = '') then Dedication_Message := 'Nothing...';

      If ((Requested_by = 'Anonymous') and (Dedication_Message = 'Nothing...')) 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['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := '~Verzoekje~';
           Encoders.SongChange(Song);
         End
     else
         Begin
           WriteLn('Song is a Request with a Dedication');
           WriteLn(Requested_by);
           WriteLn(Dedication_Message);
           Song['artist'] := ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
           Song['title'] := 'Aangevraagd door ' + Requested_by + ' : Voor wie ? ' + Dedication_Message + ' !';
           Encoders.SongChange(Song);
        End;
  End;

PAL.UnlockExecution;
WriteLn('Done....');

Song.Free;

WriteLn('Waiting for next song to start');
PAL.WaitForPlayCount(1); {Wait for 1 songs to play}
Req.QueueTop;

deze hebben we draaien gr frank uit landgraaf

[frank landgraaf]

is er iets te vinden om de hele jukebox in het nederlands om te zetten of moet ik alle scrips met de hand omzetten ???? gr frank landgraaf

[Wout]

Frank, houd het bij 1 vraag!

Geen meerdere vragen in 1 topic, dit in verband met de leesbaarheid van het forum te verhogen!

[frank landgraaf]

wat gaat er mis dat die de hele tijd uitvalt gr frank landgraaf

[drOhimself]

Frank,
Waar is dit allemaal zichtbaar voor ons ?
(Link naar je radiostation)

[frank landgraaf]

www.radiodekoempel.nl

gr frank landgraaf

[drOhimself]

Frank, zojuist een verzoekje ingevoerd.
Werkt normaal.
Misschien dat het ligt aan de lengte van de omschrijving die luisteraars erin zetten ?