Omnia.9.XE Metadata

Voor vragen over Playlist Automation Language.
Plaats reactie
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:

Omnia.9.XE Metadata

Ongelezen bericht door Wout » 13 feb 2016, 14:01

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

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 » 15 feb 2016, 14:32

Dankje wout.
Super blij mee we gaan hem gebruiken!

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: Omnia.9.XE Metadata

Ongelezen bericht door Wout » 20 feb 2016, 19:51

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: 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: Omnia.9.XE Metadata

Ongelezen bericht door Wout » 08 jan 2017, 16:20

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

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

Re: Omnia.9.XE Metadata

Ongelezen bericht door OmniaBroadcaster » 31 aug 2017, 07:06

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: 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: Omnia.9.XE Metadata

Ongelezen bericht door Wout » 22 nov 2017, 18:47

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

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

Re: Omnia.9.XE Metadata

Ongelezen bericht door Studioschuttevaer » 23 mar 2018, 15:14

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

Plaats reactie