Verzoek Jingle Laten Horen, Als Verzoek Wordt Aangevraagt.

[Albatros en Patricia]

Hallo allemaal,
Ik heb een vraag over verzoek,
Ik heb een Verzoek Jingle Laten maken, en nu wou ik die jingel laten afspelen als er een verzoek vanuit de jukebox wordt aangevraagt. (Jingle voor de verzoek aan dus). Zou iemand mij kunnen vertellen hoe ik dat moet instellen ??
M.v.g Ronnie.

[Wout]

viewtopic.php?f=85&t=2455&p=15772&hilit ... oek#p19060

[Albatros en Patricia]

Wat moet ik met die code (script) doen wout, heb geen ide waar ik die in moet plakken.

[Albatros en Patricia]

Hallo Wout,
Wat moet ik met die code doen ? en waar moet ik m'n Jingle heen zetten ?
Groetjes, Ronnie en Patricia.

[Kees]

Even een oud topic afgestoft.
Voor wie een random jingle voor een verzoekje wil draaien, hier mijn script.

Code: Selecteer alles

PAL.Loop := True; 

PAL.LockExecution; 
var AQuery : TDataSet; 
var Song : TSongInfo; 
AQuery := Query('SELECT songlist.*, requestlist.*, requestlist.ID as requestID ' 
+' FROM songlist, requestlist ' 
+' WHERE (requestlist.ETA<:now) AND (requestlist.status=''new'') AND (songlist.ID=requestlist.songID) ' 
+ 'ORDER BY requestlist.ETA ASC ' 
+' LIMIT 1 ',[Now],True); 
if not(AQuery.BOF and AQuery.EOF) then 
begin 
Song := TSongInfo.Create(); 
Song['ID'] := AQuery['ID']; 
Song['filename'] := AQuery['filename']; 
Song['artist'] := AQuery['artist']; 
Song['title'] := AQuery['title']; 
Song['duration'] := AQuery['duration']; 
Song['requestID'] := AQuery['requestID']; 
Cat['jingles-verzoekplaat'].QueueBottom(smRandom,NoRules);
Queue.Add(Song,ipBottom);
WriteLn('Request handled: '+Song['artist']+' - '+Song['title']); 
ExecSQL('UPDATE requestlist SET status=:status WHERE (songID = :songID) AND ((status=''new'') OR (status=''pending'')) ',['pending',song['ID']]);
end 
else 
WriteLn('No request found'); 
PAL.UnLockExecution; 
AQuery.Free; 
Song.Free;