reclame voor Nieuwsuitzending

Voor vragen over Playlist Automation Language.
Plaats reactie
mcredoe
Beginnende SAM-gebruiker
Berichten: 4
Lid geworden op: 01 dec 2015, 19:11
SAM-versie: 4.3.0.
Database: MS SQL
Windows: Windows 10

reclame voor Nieuwsuitzending

Ongelezen bericht door mcredoe » 07 dec 2015, 14:40

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 ;

Gebruikersavatar
Wout
Moderator
Berichten: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: reclame voor Nieuwsuitzending

Ongelezen bericht door Wout » 16 jul 2016, 21:26

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.
Afbeelding

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht