Jingle voor Request

[SLOGFM]

Heb hier ooit een script voorbij zien komen om een jingle te draaien voordat de request in PHP gedraaid wordt, kan iemand mij deze alsnog verschaffen .
Alvast bedankt.

S.L.O.G. ( Stichting Lokale Omroep Geertruidenberg)

[Kees]

Zal ik jou eens blij maken !!!!
Wel de plaats van de jingle aanpassen.

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']; 
Queue.Add(Song,ipTop); 
WriteLn('Request handled: '+Song['artist']+' - '+Song['title']); 
Queue.AddFile('d:\jingle.mp3',ipTop);
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;

[radio0511]

Super! Hier ga ik even mee bezig. Bedankt!!

Nog een paar vragen: Als ik het goed begrijp plaatst dit PAL script de request bovenaan in de que. ( Queue.Add(Song,ipTop); )Overuled dit script wat in sam bij request policy staat ingesteld ? Want daar staat ie als bottom in de que. ( ik weet uiteraard dat ik die top kan veranderen in bottom, maar ik vroeg mij af of het dan nog wat uit maakt hoe het in request policy staat ingesteld )

En 2e vraag: ipv Queue.AddFile('d:\jingle.mp3',ipTop); kan ik ook gewoon Cat[jingle].QoueBottom(smLemmingLogic, Norules; doen ? Of werkt dat niet ?

Zal ik jou eens blij maken !!!!
Wel de plaats van de jingle aanpassen.

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']; 
Queue.Add(Song,ipTop); 
WriteLn('Request handled: '+Song['artist']+' - '+Song['title']); 
Queue.AddFile('d:\jingle.mp3',ipTop);
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;