Nieuws pal script elk uur

Voor vragen over Playlist Automation Language.
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 28 sep 2017, 20:22

Groedjez,
drO

Gebruikersavatar
DjEricDaCosta
*
Berichten: 13
Lid geworden op: 25 jul 2017, 22:37
SAM-versie: Geen.
Database: MS SQL
Windows: Windows 10
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door DjEricDaCosta » 02 okt 2017, 11:11

Dank je, duidelijk verhaal. Ik ga de volgende keer beter zoeken...
[smilie=good.gif]

Friendtastic
Beginnende SAM-gebruiker
Berichten: 2
Lid geworden op: 08 okt 2017, 17:50
SAM-versie: SAM 2015.4
Database: MS SQL
Windows: Windows 10

Re: Nieuws pal script elk uur

Ongelezen bericht door Friendtastic » 08 okt 2017, 18:37

Hoi beste mensen
Ik zou dit nieuws script niet zomaar gebruiken ivb met rechten op dit nieuws!
https://over.nos.nl/organisatie/regelgeving/

Auteursrecht en overige rechten van intellectueel eigendom

3.1 De websites en/of diensten van de NOS inclusief de gepubliceerde informatie zijn beschermd middels Intellectuele Eigendomsrechten, waaronder maar niet beperkt tot het auteursrecht, databankrecht, naburige rechten en het merkrecht van de NOS. Verveelvoudiging en/of openbaarmaking, anders dan in het kader van persoonlijk en niet-commercieel gebruik door particuliere Gebruikers, zijn zonder voorafgaande schriftelijke toestemming van de NOS niet toegestaan.

Gebruikersavatar
DjEricDaCosta
*
Berichten: 13
Lid geworden op: 25 jul 2017, 22:37
SAM-versie: Geen.
Database: MS SQL
Windows: Windows 10
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door DjEricDaCosta » 09 okt 2017, 12:43

Dat is voor alles van toepassing wat je op de stream zet. Ook de muziek onder je jingels is niet altijd rechtenvrij.
[smilie=good.gif]

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 14 okt 2017, 16:39

Even goed lezen :
Verveelvoudiging en/of openbaarmaking, anders dan in het kader van persoonlijk en niet-commercieel gebruik door particuliere gebruikers, zijn zonder voorafgaande schriftelijke toestemming van de NOS niet toegestaan.
Dit zal voor meeste van jullie gewoon gelden.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 14 mei 2018, 22:11

Hoi

ik heb deze script

Code: Selecteer alles

Pal.Loop:=True;

 var tijd, uur : string;
 var D, C1 : DateTime;

   D := T['+01:00:00']; //De tijd nu + 1 uur erbij
  C1 := T['07:00:00']; //De Tijd dat het nieuws weer meedoet.

 tijd := FormatDateTime('hh', D); //maak de uur aan. 18..19..etc
  uur := 'c:\' + tijd + '.mp3'; //waar je uur-mp3 staan

    D := T['XX:59:30'];  //de tijd voor elk uur te starten
 writeln(D);

 Begin


    PAL.WaitForTime(D);   //wachten op tijd
     if D >= C1  then
      Begin            //Thnx Evert :)

      Queue.AddFile('C:\Users\.........\Desktop\Jingles\Het mooiste in de buurt.mp3',ipTop);
       Queue.AddUrl('http://download.omroep.nl/nos/radionieuws/nosnieuws_bulalg.mp3',ipTop)
      End;
     Queue.Addfile(uur, ipTop);

     Queue.AddFile('C:\Users\...........\Desktop\Jingles\reclameblok.mp3',ipTop);
 End;

ActivePlayer.FadeToNext;
werkt heel goed alleen zodra de script loopt kapt hij de mp3 af die opdat moment speelt. is het ook mogelijk dat hij zo rekent dat hij precies begint wanneer de plaat is afgelopen ?

Groeten Arjan

renem
**
Berichten: 28
Lid geworden op: 09 jan 2018, 07:33
SAM-versie: 4.9.0.*
Database: MySQL 5.6
Windows: 7 32-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door renem » 14 mei 2018, 23:20

Arjan schreef:Hoi

ik heb deze script

Code: Selecteer alles

Pal.Loop:=True;

 var tijd, uur : string;
 var D, C1 : DateTime;

   D := T['+01:00:00']; //De tijd nu + 1 uur erbij
  C1 := T['07:00:00']; //De Tijd dat het nieuws weer meedoet.

 tijd := FormatDateTime('hh', D); //maak de uur aan. 18..19..etc
  uur := 'c:\' + tijd + '.mp3'; //waar je uur-mp3 staan

    D := T['XX:59:30'];  //de tijd voor elk uur te starten
 writeln(D);

 Begin


    PAL.WaitForTime(D);   //wachten op tijd
     if D >= C1  then
      Begin            //Thnx Evert :)

      Queue.AddFile('C:\Users\.........\Desktop\Jingles\Het mooiste in de buurt.mp3',ipTop);
       Queue.AddUrl('http://download.omroep.nl/nos/radionieuws/nosnieuws_bulalg.mp3',ipTop)
      End;
     Queue.Addfile(uur, ipTop);

     Queue.AddFile('C:\Users\...........\Desktop\Jingles\reclameblok.mp3',ipTop);
 End;

ActivePlayer.FadeToNext;
werkt heel goed alleen zodra de script loopt kapt hij de mp3 af die opdat moment speelt. is het ook mogelijk dat hij zo rekent dat hij precies begint wanneer de plaat is afgelopen ?

Groeten Arjan
Laatste regel weghalen:

Code: Selecteer alles

ActivePlayer.FadeToNext;

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 15 mei 2018, 18:03

bedankt het werk

Gr Arjan

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 16 mei 2018, 19:10

Hoi.

Ik heb dit script nu tijdje lopen, op zich werkt het goed, alleen het nieuws start later in omdat de mp3 die op dat moment nog speelt, nog niet afgelopen is.
Nu zag ik dit bericht37083.html#p37083 forum bericht staan, ik dacht deze kan ik ook wel proberen, dus heb de link adres aangepast.
Alleen dan speelt het nieuws niet af. want ik heb het dus zo aangepast (zie code).
Zit er misschien toch een foutje in of is het wel goed?

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/nosnieuws_bulalg.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/nosnieuws_bulalg.mp3',ipTop);
                Queue.Addfile(uur, ipTop);
            end;

wie kan me helpen. en ik wil het het zonder reclame er voor hebben dus alleen het nieuws.

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 21 mei 2018, 09:22

Je bent de laatste regel : "ActivePlayer.FadeToNext;" vergeten.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 22 mei 2018, 20:02

Ho

ik heb de laatste regel toegevoegd. maar hij geeft een error heb er een screenshot van gemaakt

Afbeelding

wat is er fout?

Groeten Arjan

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 26 mei 2018, 15:54

Graag gewoon hier het plaatje uploaden.
Een link naar een 'externe partij' kan morgen weg zijn.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 26 mei 2018, 20:17

NIET ONNODIG QUOTEN !

oke is goed

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 26 mei 2018, 20:20

dit is de error die hij aan geeft
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 28 mei 2018, 13:59

Die Access Violation error zien we vaker zodra je het 'lopende' PALscript aanpast.
Probeer eens het bewuste script uit SAM te verwijderen, dus dat die niet meer zichtbaar is je PAL SCRIPTS venster.
Dan aanpassen en opnieuw het palscript toevoegen.
Dan zou je de melding niet meer moeten hebben.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 28 mei 2018, 17:14

NIET ONODIG QUOTEN !

misschien rare vraag wat moet ik aanpassen. ik heb het nu zo gedaan ik heb alleen het adres aangepast waar het nieuws weg komt.
moet ik nog meer aanpassen dan? ik heb het nu zo gedaan ( zie Code) het gaat mij erom dat hij precies om zeg maar 20:00 uur het nieuws afspeelt maar het moet niet zo zijn dat hij het voorgaande plaat afkapt. hij moet eigenlijk een plaat zoeken die voldoet aan de tijd dat hij even voor 20:00 uur afgelopen is en dan het nieuws. en volgens deze pal moet dat Lukken aldus deze pal script. of is hier een ander script voor?

Code: Selecteer alles

Pal.Loop := True ;

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

    // Speed some things up
    Pal.LockExecution ;

        // Wat variabele instellen
        var RestTijd : Integer ;
        var Now_minutes : String ;
        var D : TDataSet ;

        // 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(+D['http://download.omroep.nl/nos/radionieuws/nosnieuws_bulalg.mp3'], IpTop) ;
                D.next ;
            end
        else
            WriteLn('Geen Resultaat');
        
        D.free ;

    // Slow some things down
    Pal.UnLockExecution ;

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 28 mei 2018, 17:42

Hoe komen jouw gebruikte scripts in SAM ?
Je zult een txt bestandje hebben, met daar in de code, welke je uiteindelijk opslaat als 'palscript_blablabla.PAL'
Toch ?

Wat nu als er iets aangepast moet worden ?
Doe je dat in SAM zelf, in het venster wat open staat zodra je een PALscript geopend hebt, of doe je dat in dat txt bestandje met je code erin ?


EN NIET ONNODIG QUOTEN AUB !!!!
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 28 mei 2018, 18:05

oke sorry. ja heb een text bestandje. en verdanderen doe ik en sam met het venster wat openstaat.

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 03 jun 2018, 11:58

Okay mooi !
Zodra je het script hebt gewijzigd, in dat SAM venster, dan sla je het gewijzigde script op.
Verwijder nu het script uit het PAL SCRIPTS venster, en voeg het daarna weer toe (met het PLUSJE).
Het komt nog wel eens voor dat als je het script aanpast en opslaat en dan direct weer laat lopen, dat SAM de weg kwijt raakt.

Dus :
1. pas script aan
2. sla script op en sluit het PAL Scripting venster.
3. verwijder script uit PAL Scripts venster
4. voeg (het aangepaste) scripts weer toe in PAL Scripts venster.
5. dubbelklik op het script, zodat het script zichtbaar wordt.
6. druk op Compile om te zien of er geen fouten in zitten.
7. druk op Run

Als je het op deze volgorde doet, krijg je dan nog steeds dezelfde foutmelding ?
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 03 jun 2018, 16:21

Hoi.

heb gedaan zoals je hier boven hebt geschreven.
maar krijgt toch een fout melding bij output.
ERROR:query error
Dynamic SQL Error
SQL error code=.104
Taken unknown-line 1,column 124
1
ERROR: SQL:SELECT songlist artist songlist.filename, songlist duration FROM songlist WHERE date_played<=DATE_SUB( NOW),INTERVAL1HOUR)AND durationBETWEEN;ResTijdAND ;Restijd+9000 ORDER BY RAND()LIMIT1
dat is de meldingdie ik krijg

Groeten Arjan

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht