reclame voor Nieuwsuitzending

[mcredoe]

Best leden.

Ik gebruik het onderstand PAL scrip om het nieuws precies op het uur te laten draaien zonder dat de voorgaande plaat wordt afgebroken. Dit werk supper!!!!
Alleen zou ik graag een reclameblok er voor willen hebben van +- 40 Sec . Hoe pas ik dit aan....
Kan iemand mij helpen.......

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]

Dat is wat moeilijker.
Als het een vaste blok is van 40 seconde (één reclame) dan is het te doen.
Als het meerdere losse reclame is dat totaal tot 40 seconden moet maken is redelijke complex.

Heb dit ooit in het verleden willen maken, maar ben er op vast gelopen.