Wat is er mis in dit script?

[maurice_louter]

Dag iedereen.

Ik heb dit script ergens op internet gevonden.
het is de bedoeling dat sam een jingle afspeelt als er een nummer nog niet meer is afgespeeld dan 2 keer.
na die 2 keer doet hij er dus geen jingle voor.
Nou is er een probleem, hij doet et niet
weten jullie wat er fout zit?

Code: Selecteer alles

PAL.Loop := True; 
var D, D1 : TDataSet;
var Song : TSongInfo;
var P : TPlayer;

PAL.LockExecution;
P := ActivePlayer;
Song := ActivePlayer.GetSongInfo();
D := Query('SELECT songtype FROM songlist where songlist.ID = :songID',[Song['ID']], True);
if (D['songtype'] = 'S') then
  begin
     D1 := Query('SELECT songID, count_played FROM queuelist, songlist where songlist.ID = queuelist.songID',[], True);
     D1.First;
   If(D1['count_played']) < 50 then
     begin
       Queue.AddFile('C:\Low FM!\new.wav', ipTop);  //<--change the path to the New Song Jingle here
       PAL.WaitForPlayCount(1);
     end;
  end;
PAL.UnlockExecution;
D.Free;
Song.Free;
D1.Free;
PAL.WaitForPlayCount(1);

[Wout]

Script doet het hier wel. :irre2:

Code: Selecteer alles

PAL.Loop := True;
var D, D1 : TDataSet;
var Song : TSongInfo;
var P : TPlayer;

PAL.LockExecution;
P := ActivePlayer;
Song := ActivePlayer.GetSongInfo();
D := Query('SELECT songtype FROM songlist where songlist.ID = :songID',[Song['ID']], True);
if (D['songtype'] = 'S') then
  begin
     D1 := Query('SELECT songID, count_played FROM queuelist, songlist where songlist.ID = queuelist.songID',[], True);
     D1.First;
   If(D1['count_played']) < 2 then //<-- Als het liedje minder dan 2 keer is gespeeld , dan speel de 'nieuw' jingle af.
     begin
       Queue.AddFile('C:\nieuw.mp3', ipTop);  //<--Verander daar waar je 'nieuw' jingle staat.
       PAL.WaitForPlayCount(1);
     end;
  end;
PAL.UnlockExecution;
D.Free;
Song.Free;
D1.Free;
PAL.WaitForPlayCount(1);