Omnia.9.XE Metadata

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
Wout
Moderator
Berichten: 3267
Lid geworden op: 03 dec 2007, 14:17
Answers: 1
SAM-versie: SAM 2019.3
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Omnia.9.XE Metadata

Ongelezen bericht door Wout »

Vanuit diverse kanalen is er bij mij de vraag gekomen of dat de metadata in de Omnia samen kan werken met SAM.
ja, dat kan. :)

De PAL ververst elke 2 seconden de informatie over Artiest, titel, jaar en album en stuurt dat naar de metadata toe.
Vanuit daar wordt het weer naar je stream gestuurd.
Je kan eventueel de tijd aanpassen en meer of minder informatie mee sturen.

Code: Selecteer alles

PAL.Loop := True ;

    Pal.LockExecution ;
        var combi, url : String ;
        var temp, max : Integer ;
        var Song : TSongInfo ;
        var A  : TPlayer ;
        Song := ActivePlayer.GetSongInfo ;
        url := 'http://127.0.0.1:7380/parameter/pgm_0/enc/stream_metadata=' ;
        var D : Array of string = [
            'Artiest is :'+Song['artist'],
            'met :'+Song['title'],
            'uit '+Song['albumyear'],
            'van het album :'+Song['album']
        ] ;
        max := D.length ;
        temp := 0 ;
        A := ActivePlayer ;
    Pal.UnLockExecution ;

    repeat
        if temp = max then temp := 0 ;    
        WebToStr(url+URLencode((D[temp]))) ;
        temp := temp + 1 ;
        PAL.WaitForTime('+00:00:02') ;    
    until (A <> ActivePlayer) ;  
Afbeelding

Gebruikersavatar
Marinuszz
*
Berichten: 14
Lid geworden op: 28 jan 2016, 23:49
SAM-versie: 4.9.0.*
Database: MySQL 5.4
Windows: 7 64-bits
Locatie: Hoogeveen
Contacteer:

Re: Omnia.9.XE Metadata

Ongelezen bericht door Marinuszz »

Dankje wout.
Super blij mee we gaan hem gebruiken!

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

Re: Omnia.9.XE Metadata

Ongelezen bericht door Wout »

Ik heb hem aangepast met een afteltijd.

Code: Selecteer alles

PAL.Loop := True ;

    Pal.LockExecution ;
        const SecPerDag = 86400 ;
        const  SecPerUur = 3600 ;
        const  SecPerMinuut = 60 ;
        var combi, url, min_s, sec_s, wissel_r : String ;
        var temp, max, minuut, seconde, t_b, tijd : Integer ;
        var Song : TSongInfo ;
        var A  : TPlayer ;
        Song := ActivePlayer.GetSongInfo ;
        url := 'http://127.0.0.1:7380/parameter/pgm_0/enc/stream_metadata=' ;
        var D : Array of string = [
        'Artiest is :'+Song['artist'],
        'met :'+Song['title'],
        'uit '+Song['albumyear'],
        'van het album :'+Song['album']
        ] ;
        max := D.length ;
        temp := 0 ;
        A := ActivePlayer ;
    Pal.UnLockExecution ;

    function afteltijd :string ;
    begin
        tijd := (Activeplayer.Duration - ActivePlayer.CurTime)/1000 ;
        t_b := ((tijd mod SecPerDag) mod SecPerUur) ;
        minuut := t_b div SecPerMinuut ;
        seconde := t_b mod SecPerMinuut ;
        min_s := IntToStr(minuut) ;
        sec_s := IntToStr(seconde) ;
        if minuut < 10 then min_s := '0'+min_s ;
        if seconde < 10 then sec_s := '0'+sec_s ;
        combi := '%20(-'+min_s+':'+sec_s+')' ;
        Result := combi ;
    end ;

    function wissel : string ;
    begin
        if temp = max then temp := 0 ;
        wissel_r := URLencode(D[temp]) ;
        temp := temp + 1 ;
        Result := wissel_r ;
    end ;

    repeat        
        WebToStr(url+wissel+afteltijd) ;        
        PAL.WaitForTime('+00:00:02') ;
    until (A <> ActivePlayer) ; 
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
Afbeelding

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

Re: Omnia.9.XE Metadata

Ongelezen bericht door Wout »

Voor degene de gebruik maakt van BreakawayOne en ook de metadata wil versturen
Verander in de PAL de volgende regel

Code: Selecteer alles

url := 'http://127.0.0.1:7380/parameter/pgm_0/enc/stream_metadata=' ;
naar onderstaand. Dit gaat over de HD1 stream in BBO

Code: Selecteer alles

url := 'http://127.0.0.1:8282/parameter/hd1/strm/metadata_strm=' ;
Afbeelding

Gebruikersavatar
OmniaBroadcaster
Beginnende SAM-gebruiker
Berichten: 1
Lid geworden op: 31 aug 2017, 00:35
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: 7 64-bits

Re: Omnia.9.XE Metadata

Ongelezen bericht door OmniaBroadcaster »

Wout schreef:Ik heb hem aangepast met een afteltijd.

Code: Selecteer alles

PAL.Loop := True ;

    Pal.LockExecution ;
        const SecPerDag = 86400 ;
        const  SecPerUur = 3600 ;
        const  SecPerMinuut = 60 ;
        var combi, url, min_s, sec_s, wissel_r : String ;
        var temp, max, minuut, seconde, t_b, tijd : Integer ;
        var Song : TSongInfo ;
        var A  : TPlayer ;
        Song := ActivePlayer.GetSongInfo ;
        url := 'http://127.0.0.1:7380/parameter/pgm_0/enc/stream_metadata=' ;
        var D : Array of string = [
        'Artiest is :'+Song['artist'],
        'met :'+Song['title'],
        'uit '+Song['albumyear'],
        'van het album :'+Song['album']
        ] ;
        max := D.length ;
        temp := 0 ;
        A := ActivePlayer ;
    Pal.UnLockExecution ;

    function afteltijd :string ;
    begin
        tijd := (Activeplayer.Duration - ActivePlayer.CurTime)/1000 ;
        t_b := ((tijd mod SecPerDag) mod SecPerUur) ;
        minuut := t_b div SecPerMinuut ;
        seconde := t_b mod SecPerMinuut ;
        min_s := IntToStr(minuut) ;
        sec_s := IntToStr(seconde) ;
        if minuut < 10 then min_s := '0'+min_s ;
        if seconde < 10 then sec_s := '0'+sec_s ;
        combi := '%20(-'+min_s+':'+sec_s+')' ;
        Result := combi ;
    end ;

    function wissel : string ;
    begin
        if temp = max then temp := 0 ;
        wissel_r := URLencode(D[temp]) ;
        temp := temp + 1 ;
        Result := wissel_r ;
    end ;

    repeat        
        WebToStr(url+wissel+afteltijd) ;        
        PAL.WaitForTime('+00:00:02') ;
    until (A <> ActivePlayer) ; 
Kan het zijn dat artiest en titel niet werkt? hij telt enkel af bij mij, en geeft een foutmelding bij deze :
WebToStr(url+URLencode((D[temp]))) ;

In de eerste versie. indien mogelijk had ik graag meer uitleg gehad. het ip adres is aangepast in 192.168.178.158 deze laat alleen het aftellen zien.

Ter info : omnia.9.xe staat op een externe pc. dus dit gaat via het netwerk. sam staat op een andere pc, maar dit moet kunnen bij mijn weten?

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

Re: Omnia.9.XE Metadata

Ongelezen bericht door Wout »

Kan je wel de externe IP benaderen via een website?
Denk aan een firewall of instelling issue in de 9.
Afbeelding

Gebruikersavatar
Studioschuttevaer
*
Berichten: 18
Lid geworden op: 26 dec 2016, 00:22
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: Windows 10
Contacteer:

Re: Omnia.9.XE Metadata

Ongelezen bericht door Studioschuttevaer »

Heb hem nog ff aangepast
dat je de artiest en title in 1 regel hebt.
zie de code hier onder

Code: Selecteer alles

PAL.Loop := True ;

    Pal.LockExecution ;
        var combi, url : String ;
        var temp, max : Integer ;
        var Song : TSongInfo ;
        var A  : TPlayer ;
        Song := ActivePlayer.GetSongInfo ;
        url := 'http://127.0.0.1:7380/parameter/pgm_0/enc/stream_metadata=' ;
        var D : Array of string = [
        'Je Luistert Naar Radionaam nu DJ ...: Nu draait: '+Song['artist'] + ' - ' +Song['title']
        ] ;
        max := D.length ;
        temp := 0 ;
        A := ActivePlayer ;
    Pal.UnLockExecution ;

    repeat
        if temp = max then temp := 0 ;
        WebToStr(url+URLencode((D[temp]))) ;
        temp := temp + 1 ;
        PAL.WaitForTime('+00:01:20') ;
    until (A <> ActivePlayer) ;
p.s deze stuurt de stream title door naar omnia

veel succes er mee
gr

Gebruikersavatar
Roelof
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 23 jul 2016, 12:29
SAM-versie: Geen.
Database: Geen Database

Re: Omnia.9.XE Metadata

Ongelezen bericht door Roelof »

ik krijg hem niet aan de praat hij geeft steeds compiler error aan.wat doe ik verkeerd

Gebruikersavatar
Studioschuttevaer
*
Berichten: 18
Lid geworden op: 26 dec 2016, 00:22
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: Windows 10
Contacteer:

Re: Omnia.9.XE Metadata

Ongelezen bericht door Studioschuttevaer »

sorry voor de late reactie heb jij de pall en de encoder wel via Omnia 9xe lopen ?
anders stuur ff een pb(je) dan help ik je ff via teamviewer / anydesk

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht