Request Top 15 andersom *opgelost*

[superwuppie]

Hallo,


Ik wil voor ons station een request top 15 uitzenden.
Heb hier een script gevonden en wat aangepast.

Het enige wat niet wil is dat hij moet gaan beginnen met het laatste nummer (15) ipv eerste (1).
Hoe kan ik dat omdraaien?

Hij begint nu dus met nummer 1 (uit de request lijst)
Maar dat moet nummer 15 worden.

Hier onder het script:

Code: Selecteer alles

PAL.Loop:=True;

// Zaterdag 16:00 uur
while DayOfWeek(Now) = Saturday and ((Now >= T['16:00:00']) and (Now <= T['16:00:10'])) do
begin
PAL.UnLockExecution;
RequestPolicy.InsertPos := ripNone;
PAL.WaitForTime(T['16:00:20']);



Queue.AddFile('Z:\Diverse\RHO Top 15\detop15.mp3',ipBottom);
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
              'FROM songlist,requestlist '+
              'WHERE songlist.ID = requestlist.songID '+
              '        AND requestlist.code < 700'+
              '        AND DATE_SUB(NOW(), INTERVAL 7 DAY)'+
              '<= t_stamp GROUP BY songlist.ID '+
              'ORDER BY cnt DESC LIMIT 15',[],True);

C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\15.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\14.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\13.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\12.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\11.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\10.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\9.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\8.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\7.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\6.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\5.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\4.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\3.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\2.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

C := C + 1;
Queue.AddFile('Z:\Diverse\RHO Top 15\1.mp3',ipBottom);
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipBottom);
D.Next;

Queue.AddFile('Z:\Diverse\RHO Top 15\einde top 15 jingle.mp3',ipBottom);


PAL.UnlockExecution;
end;
Queue.Free;
D.Free;
end;

[drOhimself]

Hoi Superwuppie,

Denk dat je nog even je script dan moet na lopen.
I.p.v. dat je alles met ipBottom doet, maak er ipTop van.
Je begin van af je laatste nummer (15) het in de queue te stoppen.
Als je dat wijzigt in je eerste nummer (1), zou het moeten lukken.

[superwuppie]

Hoi Superwuppie,

Denk dat je nog even je script dan moet na lopen.
I.p.v. dat je alles met ipBottom doet, maak er ipTop van.
Je begin van af je laatste nummer (15) het in de queue te stoppen.
Als je dat wijzigt in je eerste nummer (1), zou het moeten lukken.

Hoi,

Bedankt voor je snelle reactie.

Zo was het script eerst (zoals jij het benoem)
Alleen doet hij er wel een minuut over voor hij alle nummers heeft opgezocht (gaat heel traag) (of is daar iets voor te verzinnen??)

Nu komt er nog een nieuws bericht voor. Dan zou het geen probleem moeten zijn.
Maar bij LMN gaat er soms ook wel eens wat fout waardoor je bv alleen de aankondiging van het nieuws heb en daarna gelijk het weerbericht. (wil alles zo vermogelijk uitsluiten)
Daardoor zou hij dus te laat zijn met het klaar maken van de top 15 lijst, en halverwege al een nummer uit de lijst gaan draaien.

Daarom wilde ik hem gewoon andersom laten beginnen zodat hij ruim de tijd heeft!

Had gehoopt dat dat wel zou kunnen.

[drOhimself]

Hoi,

Okay, als het LMN er idd nog voor komt, dan heb je zeker te weinig tijd.
En de lijst erin zetten (dus nog voor hele uur) en dan bovenaan het nieuws of is dat ook geen optie?
Ik was net nog met een anders scriptje bezig om uit te testen, die zal ik zo afmaken.
Daarna zal ik jouw script bekijken.
Kan dus nog even duren, maar ik doe een poging.

[superwuppie]

Klopt wilde het nieuws in dit script ervoorzetten.

Alleen mocht er dus in het nieuws een foutje zitten (dus hele korte versie, wat heel soms voorkomt), dan is hij met het uitzoeken van zijn lijst niet optijd klaar. en dan gaat hij al verder met het volgende nummer.
Dus is er een kans dat dat halverwege het opbouwende script gebeurt.

Mocht het zijn (zoals ik het voor elkaar probeer te krijgen) dan start hij met nummer 15 en heeft hij tijd genoeg om de gehele lijst samen te stellen.

bedankt alvast!

[drOhimself]

Ja, dat is natuurlijk ook een goed uitgangspunt; eerst gewoon nummer 15 draaien.
Daarna queue vullen met 14 resterende nummers....

Dus je draait het nieuws, en dan nummer 15.
Ik kijk er morgen (hallo.... het IS al morgen [smilie=yahoo.gif] ) naar !

[drOhimself]

Nou, heb het vanavond getest.
Omdat ik al een tijdje geen requests heb gehad (ben sinds 'n paar maanden geen dj meer) loopt het script niet helemaal lekker.
Wel zie ik als ik ipv "requestlist" gebruik maak van "historylist" er nog wat gebeurd.
Echter blijft ie kleven op de regel "historylist.code < 700"
Weet niet wat dat in jouw geval voor selectie geeft (requestlist.code < 700)
Echter verschijnen wel de mp3tjes in omgekeerde volgorde bij mij in de list.

Maar in jouw script begint het al een beetje fout :

Code: Selecteer alles

    
PAL.Loop:=True;

    // Zaterdag 16:00 uur
    while DayOfWeek(Now) = Tuesday and ((Now >= T['16:00:00']) and (Now <= T['16:00:10'])) do
    begin
    PAL.UnLockExecution;
    RequestPolicy.InsertPos := ripNone;

Dat moet natuurlijk : PAL.LockExecution; zijn.

Hopelijk kan iemand anders dit misschien uit testen.

[superwuppie]

Hee bedankt voor de moeite!

Jammer dat je nog niet 100% uitsluitsel kan geven...
Wacht nog even iemand anders zijn reactie af!
Wout misschien??? The SAM Goeroe!

Groet SW

[superwuppie]

Was ik nog even...

Heb nu alles weer omgedraait.

Zodat hij toch van van 1 tot 15 opbouwd. (eerst nummer 1 en dan steeds met ipTop er boven op stapeld)

Alleen kom nu het volgende weer tegen.
Om enige buffer te hebben op de nummers moet het nieuws er boven komen.

Maar als ik die onderaan de PAL zet komt hij er dus als laatste op te staan en is de kans op fout lopen helemaal groot.

Is daar nog een oplossing voor??? zodat hij toch eerst het nieuws bovenhoud staan! en de rest er onder opbouwd.

[drOhimself]

Was ik nog even...

Heb nu alles weer omgedraait.

Zodat hij toch van van 1 tot 15 opbouwd. (eerst nummer 1 en dan steeds met ipTop er boven op stapeld)

Alleen kom nu het volgende weer tegen.
Om enige buffer te hebben op de nummers moet het nieuws er boven komen.

Maar als ik die onderaan de PAL zet komt hij er dus als laatste op te staan en is de kans op fout lopen helemaal groot.

Is daar nog een oplossing voor??? zodat hij toch eerst het nieuws bovenhoud staan! en de rest er onder opbouwd.

Dan zal je het zo moeten inrichten, dat je die 15 nummers al in je queue zet, VOORDAT het nieuws komt, zeg maar in het laatste nummer VOOR heel uur, dus zeg maar xx:57:00.
Zodra je de nummers erin hebt staan, dan het nieuws erboven op, in laatste 20 seconden of zo.
Of duurt het heel lang voordat die 15 nummers erin staan ?
Ik zag bij mij dat de nummers er invlogen, was echt binnen 5 seconden gebeurt.
Vergeet niet je eerste regel aan te passen : PAL.LockExecution;
Dus GEEN PAL.UnLockExecution;

Hoe is eigenlijk je script voor het nieuws ?

[superwuppie]

Dan zal je het zo moeten inrichten, dat je die 15 nummers al in je queue zet, VOORDAT het nieuws komt, zeg maar in het laatste nummer VOOR heel uur, dus zeg maar xx:57:00.
Zodra je de nummers erin hebt staan, dan het nieuws erboven op, in laatste 20 seconden of zo.
Of duurt het heel lang voordat die 15 nummers erin staan ?
Ik zag bij mij dat de nummers er invlogen, was echt binnen 5 seconden gebeurt.
Vergeet niet je eerste regel aan te passen : PAL.LockExecution;
Dus GEEN PAL.UnLockExecution;

Hoe is eigenlijk je script voor het nieuws ?

Het werkt!! in 1 sec staat het er nu in! dit was hoe ik het wilde hebben!
De fout zat in het PAL.(un)LockExecution;

Na het veranderen van die regel werkt het perfect!
Helemaal blij!

Bedankt voor het mee denken/oplossen van dit probleem!!