Omnia.9.XE Metadata

[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) ;  

[Marinuszz]

Dankje wout.
Super blij mee we gaan hem gebruiken!

[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) ; 

[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=' ;

[OmniaBroadcaster]

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?

[Wout]

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

[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

[Roelof]

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

[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