Nieuws PAL script elk uur

[Wout]

Je gebruikt als database zeker FireBird?

De code die je gebruikt is voor MySQL-database. Beide lijken veel op elkaar maar sommige functie werken niet.

[Arjan]

ja klopt ik gebruik FireBird. dus dan moet ik een andere PAL gebruiken?

[drOhimself]

Beste is om niet met FireBird te werken.
De meeste PAL scripts werken op MySQL.

[Arjan]

oke bedankt. dan zal ik sam even er nieuw op zetten en de keuze maken voor MySQL database.
en MySQL op mijn pc zetten.

Groeten Arjan

[drOhimself]

Succes !


Verzonden vanaf mijn iPhone met Tapatalk

[Arjan]

Hoi.

op zicht draait de PAL script nu wel alleen hij draait het liedje wat op dat moment draait helemaal uit dan pas speelt hij het nieuws af. dus zeg maar om 19: 59:55 zou hij het nieuws moeten afspelen. maar dat doet hij niet hij speelt eerst gewoon desbetreffende mp3 af dan pas het nieuws. hij geeft bij de output nu aan Geen Resultaat. het PAL script heb ik hier vandaan weg gehaald bericht37083.html#p37083
het gaat mij er om dat hij het nieuws precies op het uur te laten draaien zonder dat de voorgaande plaat wordt afgebroken

[drOhimself]

Plaats hier ook even jouw script bij.
Er is namelijk geen link naar het script waar ik op kan klikken.

[Arjan]

Het gaat om deze PAL script.
ik heb hem nu een tijdje lopen op zicht gaat het wel goed alleen het nieuws zal om zeg maar 16:00 uur moeten beginne alleen hij begint dan om 16:04 of 16:05 uur.

Code: Selecteer alles

PAL.Loop := True ;

    // Begin het script op elk uur vanaf 5 voor het uur
    PAL.WaitForTime(T['XX:59:55']) ;

    // Speed some things up
    PAL.LockExecution ;

        // Wat variabele instellen
        var RestTijd : Integer ;
        var Now_minutes, tijd, uur : String ;
        var D : TDataSet ;
        var plus_uur : DateTime ;

        plus_uur := T['+01:00:00'] ;
        tijd := FormatDateTime('hh', plus_uur) ;
        uur := 'c:\tijd\' + tijd + '.mp3' ;

        // Alleen de minuten van het uur
        Now_minutes := FormatDateTime('n', Now) ;

        // De aantal minuten afhalen van 1 uur en waar rekening is gehouden met de spelende nummer in miliseconden
        RestTijd := ( ( (60 - Now_minutes ) * 60000) ) - ( Activeplayer.Duration - ActivePlayer.CurTime ) ;

        // Hier zoek ie de nummer met de juiste lengte + een beetje meer
        D := QUERY('SELECT ' +
            'songlist.artist, songlist.filename, songlist.duration ' +
        'FROM ' +
            'songlist ' +
        'WHERE ' +
            'date_played <= DATE_SUB( NOW( ), INTERVAL 1 HOUR )' +  // Alleen nummers die al 1 uur niet zijn gespeeld
        'AND '+
            'duration '+
        'BETWEEN '+
            ':RestTijd '+
        'AND '+
            ':RestTijd + 9000 ' +    // Hier wat speling op de lengte van het gezochte nummer met 9 seconden
        'ORDER BY RAND() ' +    // Hij pakt een willekeurige nummer die voldoet aan de eisen
        'LIMIT 1', [RestTijd], True ) ;

        D.First ;

        if not D.EOF then
            begin
                Queue.AddFile('http://download.omroep.nl/nos/radionieuws/radiobulletin.mp3',ipTop);
                Queue.Addfile(uur, ipTop);
                Queue.Addfile(+D['filename'], IpTop) ;
                D.next ;
            end
        else
            begin
                WriteLn('Geen Resultaat');
                
                Queue.AddFile('http://download.omroep.nl/nos/radionieuws/radiobulletin.mp3',ipTop);
                Queue.Addfile(uur, ipTop);
            end;
        D.free ;

    // Slow some things down
    PAL.UnLockExecution ;

[Wout]

Je dient de xx:59:55 te veranderen naar xx:55:00

[Arjan]

Hoi.

ik heb het verandert naar xx:55:00 het werkt nu goed.
bedankt .

Groeten Arjan

[spidy601]

hoi ik denk dat dit bericht gigantische off topic is.
ik vond dit script goed om te gebruiken ik zoek namelijk een sript dat de mp3 aanpast op de rest tijd van het nieuws.

nu heb ik wel verschilende tijd seins van bijv. goedenmidag het is nu ..... uur nu volgt het nieuws.
maar hoe krijg ik deze tijd seins in het script vermeld.
ik zie wel dit stukje script
uur := 'c:\tijd\' + tijd + '.mp3' ;
als ik dan het bestands pad aanpas naar
D:\D:\Music Sam BR\20 F Nieuws Tijdsein\tijdseinuren krijg ik de mp3 niet te horen
maar ik krijg wel een file te zien.

mijn vraag is hoe kan ik een tijd sein laten werken in dit script.
want dit nieuws script werkt super goed.

en ik vind het zwaar irritant nummers af te moeten kappen voor het nieuws.
groet nick

[spidy601]

ik heb het zelf al opgelost heb een map aangemaakt op de harde schijf D:
en heb de map verandert in tijd
= 'D:\tijd\' + tijd + '.mp3' ;
nu werkt mijn tijd sein wel gowd.

ik vind dit echt een super goed PAL script.
heel soms start het nieuws in om XX:01 of soms om XX:02 maar dat vind ik zelf nog wel redelijk.
want de meeste keren word het nieuws gestart op XX:00
groet nick

[Japio-1973]

Beste mensen ben ook op zoek naar nieuwe maar dan voor radioboss weet iemand waar ik die kan krijgen

[theor72]

hallo allemaal,
is er op dit moment een nieuws PAL script dat werkt want de uit eerdere jaren werken niet meer

[peellandfm]

Nou het script werkt wel, maar de url die er in verwerkt zit niet (meer).

Je kunt nog wel "beperkt" gratis het nieuws krijgen bij WNC worldnewscomapny