PAL draait laatst toegevoegde nummer(s)

[Kees]

Deze draait het laatst toegevoegde nummer met een jingle er voor.

Code: Selecteer alles

var D : TDataSet;
PAL.LockExecution;
D := Query('Select * from songlist where songtype=''S'' ORDER BY date_added DESC LIMIT 1',[],True);
D.First;
while NOT D.EOF do
   begin
     Queue.AddFile(D['filename'],ipTOP);
     Queue.AddFile('G:\nieuw.mp3',ipTop);
     D.Next;
   end;
D.Free;
PAL.UnLockExecution;

Je kan dit aanpassen naar meerdere nummers door in deze regel de 1 achter DESC LIMIT te veranderen.

Code: Selecteer alles

D := Query('Select * from songlist where songtype=''S'' ORDER BY date_added DESC LIMIT 1',[],True);

Je kan de jingle weglaten door deze regel er uit te halen.

Code: Selecteer alles

     Queue.AddFile('G:\nieuw.mp3',ipTop);