PAL draait laatst toegevoegde nummer(s)

Voor vragen over Playlist Automation Language.
Gebruikersavatar
Kees
Beheerder
Berichten: 3169
Lid geworden op: 28 nov 2005, 22:07
SAM-versie: 4.2.2.*
Database: MySQL
Windows: 11
Locatie: Bergen op Zoom
Contacteer:

PAL draait laatst toegevoegde nummer(s)

Ongelezen bericht door 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);
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht