DJ Livestream Script vraag

[Ziekenomroep]

Hoi. Sinds enkele weken gebruik ik onderstaand script op sam :

Voor de live djs die bij mijn station (Radio Waubach) draaien.

Code: Selecteer alles

PAL.Loop:=True;
    // wanneer het tussen 00:00 t/m 23:59 is dan beginnen
    while ( ( Now >= T['00:00:00'] ) and ( Now <=  T['23:59:59'] ) ) do
    begin
        // als Shoutcast is ingelogd dan begin
        if Relays[1].Status = 'OK' then
        begin
            // als spelende player een negatieve duur heeft (stream = negatief)
            if ActivePlayer.Duration = -1 then
            begin
                WriteLn('aan') ;
                PAL.WaitForPlayCount(1) ;
            end
            // Als er geen negatieve duur is dan wordt de IP bovenaan de Queue geplaatst
            else
            begin
                Queue.AddURL('http://streamip:poort',ipTop) ;
                PAL.WaitForPlayCount(1) ;
            end
        end
        else
        // Als de Shoutcast niet is ingelogd, blijft hij om de 5 seconden checken.
        begin
            WriteLn('uit') ;
            PAL.WaitForTime('+00:00:05') ;
        end
    end ;

Het stream werkt op enkele punten na perfect. Momenteel is het zo zodra iemand stopt valt er een behoorlijk lange stilte. en daarna pakt hij de nonstop database over. en de RDS in shoutcast laat hij het ip adres zien van de apparte dj stream. kan ik hier een text neer zetten met : Nu Live - DJ.... etc.

Alvast bedankt voor het mee denken.

[Guus]

geen last van ik laat het script gewoon een aantal keren de stream laden zijn ze niet op tijd hebben ze pech...
daarna pakt de server zijn "normale" verwerking weer op. maximale stile is 0,10 sec.
als je de ip laad en je klikt er even met rechts op en je hernoemd hem zie je voortaan die benaming.

[Ziekenomroep]

Ik ga er eens opletten, bedankt voor je reactie. overigens heb ik nog een fout ontdenkt. aangezien dit script 24/7 mee loopt. merk ik dat hij na 12 uur snachts, zich gewoon ophangt. de hele sam. heeft iemand anders hier dan een oplossing voor. ik vermoed dat het met de eind te maken heeft.

[drOhimself]

Ik zie deze regel staan, maar die is eigenlijk nogal overbodig :

Code: Selecteer alles

	// wanneer het tussen 00:00 t/m 23:59 is dan beginnen
	while ( ( Now >= T['00:00:00'] ) and ( Now <=  T['23:59:59'] ) ) do

Dat is het namelijk ALTIJD !

Misschien indien je die laatste regel :

Code: Selecteer alles

PAL.WaitForTime('+00:00:05') ;

eruit haalt, of je eerste regel aanpast, naar :

Code: Selecteer alles

while ( ( Now >= T['00:00:00'] ) and ( Now <=  T['23:59:50'] ) ) do

dan blijft die laatste regel misschien ook nog in het betreffende 'time-frame'.

[Ziekenomroep]

Heelaas dat heb ik geprobeerd. nu zoekt hij elke minuut naar de stream.. en vult hij mijn hele Q er mee... .

[Ziekenomroep]

Niemand een oplossing hiervoor?....

[Guus]

ik doe het anders ik laat het script een aantal keren op de draaitijd de stream url laden is er geen dj niks aan de hand kiepert sam de url eruit en gaat gewoon verder met de automaat

[Guus]

Code: Selecteer alles

// Maandag 18:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['17:59:25']) and (Now <= T['17:59:58'])) do begin
PAL.UnLockExecution;
Queue.Clear;
Cat['Uurjingels Random'].QueueTop(smRandom, NoRules);
ActivePlayer.FadeTonext;
//________________________________________
//___________****__BEGIN_DJ_SHOW __****___
var Tmav : Integer;
PAL.Loop := True;
//{Wait for the show to start}
//{Add show to queue}
Queue.AddURL(stream1,ipTop);
ActivePlayer.FadeTonext;
Queue.AddURL(stream1,ipTop);
Queue.AddURL(stream1,ipTop);
CAT['Music (All)'].QueueTop(smLRP,EnforceRules);
Queue.AddURL(stream1,ipTop);
CAT['Music (All)'].QueueTop(smLRP,EnforceRules);
Queue.AddURL(stream1,ipTop);
Tmav := 0;
while Tmav < 1 do begin
CAT['Music (All)'].QueueTop(smLRP,EnforceRules);
Queue.AddURL(stream1,ipTop);
Tmav := Tmav + 1;
end;
//{Wait for show to end}
WriteLn('Wachten tot 20:59:00');
PAL.WaitForTime(T['20:59:00']);
//{Clear queue}
Queue.Clear;
//_________****____EINDE DJ SHOW ______****________
PAL.LockExecution;
end;