Twitter & SAM

[Gerrit]

Dat is heel mooi dat je dat gemaakt hebt RealTech [smilie=good.gif] , maar mogen de andere gebruikers ook weten hoe je dat gedaan hebt ?
Of maak je ze daar alleen maar lekker mee ? [smilie=no.gif] nee toch, hoop ik.

Gerrit.

[RealTech]

Uiteraard wil ik dat delen, maar de oplossing is dusdanig simpel uit mijn omschrijving te halen dat ik niet het idee had veel toe te voegen. [smilie=blush2.gif]

In het orginele sam-song.info script staat een simpele regel:

Code: Selecteer alles

WHILE TRUE DO
BEGIN
    PAL.WaitForPlayCount(1);
    Player := ActivePlayer;

Door deze aan te passen naar het aantal nummers:

Code: Selecteer alles

WHILE TRUE DO
BEGIN
    PAL.WaitForPlayCount(15);
    Player := ActivePlayer;

Wacht hij met een nieuwe tweet totdat er 15 nummers gepasseerd zijn.

Overigens heb ik de minimale lengte van een nummer dat hij moet tweeten verhoogd naar 2,5 minuut (150 seconden). Alles daaronder zijn of jingles, fillers of andere nummers die ik niet getweet wil hebben.

Code: Selecteer alles

    WHILE (Player.Duration < 150000) DO
    BEGIN
        PAL.WaitForPlayCount(1);
        Player := ActivePlayer;
    END;

De luisterlink heb ik simpelweg aan het eind van de tweet toegevoegd als een bit.ly link (kost minder karakters).

Code: Selecteer alles

  // Message to display on Twitter
        statusmessage := Song['artist'] + ' - ' +  Song['title'] + ' Listen -> http://bit.ly/hAldx2';
        returnmessage := update(statusmessage, picture);

Hoop hier een aantal mensen mee op weg te hebben geholpen. [smilie=good.gif]

Grtz,
RealTech

[Gerrit]

Uiteraard wil ik dat delen, maar de oplossing is dusdanig simpel uit mijn omschrijving te halen dat ik niet het idee had veel toe te voegen. [smilie=blush2.gif]

Helemaal Super RealTech. [smilie=good.gif]

Wat voor de 1 heel simpel is, kan voor een ander een groot probleem zijn, vandaar... [smilie=wink3.gif]

Gerrit.

[Rejoradio]

Bedankt RealTech!! Dit is inderdaad een mooie oplossing, want na iedere nieuwe track een tweet, daar word je helemaal gek van, met als gevolg dat ik een aantal mensen niet meer volg.

[FataMorgana]

De luisterlink heb ik simpelweg aan het eind van de tweet toegevoegd als een bit.ly link (kost minder karakters).

Code: Selecteer alles

  // Message to display on Twitter
        statusmessage := Song['artist'] + ' - ' +  Song['title'] + ' Listen -> http://bit.ly/hAldx2';
        returnmessage := update(statusmessage, picture);

Hoe zet ik dat precies in Wout z'n script?
Vervangt het stuk wat hierboven staat het gehele stuk tussen 'begin' en 'end'?

[FataMorgana]

Ehm...
Ik heb het Twitter script dus reeds draaien, sinds de vorige post, maar mis echt de radio-link want dat vind ik minstens even interessant voor mijn Twitter-followers!
(momenteel nog maar 2 maar juist als die link werkt ga ik ze werven!)

[Rejoradio]

Waar kunnen wij je op twitter vinden John? Ik heb al even gezocht maar kan je niet vinden...

[FataMorgana]

Waar kunnen wij je op twitter vinden John? Ik heb al even gezocht maar kan je niet vinden...

Lol... Helaas heb ik ooit mijn "johnvanderest" account verwijderd en dat kan ik nooit meer opnieuw aanvragen.
FataMorgana bestond al...
Dus de gulden middenweg: "morganaderest" .

[jacqueline]

Gevonden john


je hebt er een volger bij lol

[Rejoradio]

En nog één... [smilie=good.gif]

[FataMorgana]

Gevonden john


je hebt er een volger bij lol

ditto
Al zal ik minder opvallen tussen de 118 van jou dan jij tussen de 8 van mij.

[RealTech]

Hoi,

Wout zet overal in zijn script

Code: Selecteer alles

prog :=

Soms is dat de artist en title, soms de naam van het programma.

Ik zou achter zo'n stukje tekst de luisterlink plakken.

Neem niet mijn luisterlink over, want dan verwijs je iedereen naar mijn stream. [smilie=music.gif]

Is dit voldoende info?

Grtz,
RealTech

[FataMorgana]

Hoi,

Wout zet overal in zijn script

Code: Selecteer alles

prog :=

Soms is dat de artist en title, soms de naam van het programma.

Ik zou achter zo'n stukje tekst de luisterlink plakken.

Neem niet mijn luisterlink over, want dan verwijs je iedereen naar mijn stream. [smilie=music.gif]

Is dit voldoende info?

Grtz,
RealTech

1: ik snap het nog steeds niet
2: waar staat in je luisterlink de relevante info naar je eigen station?
Want zie alleen maar:

' Listen -> http://bit.ly/hAldx2';

en snap daar ook niet veel van. [smilie=blush2.gif]

[jacqueline]

Ik heb de PAL van Wout aangepast naja in samenwerking met de hier vermelde PAL
beetje de tijd aangepast
Bij mij geeft die in sam aan dat die 13 tracks w8t tot er weer een tweet uitgaat naar twitter
de luisterlink heb ik er maar ergens in gepropt weet alleen neit = *[niet] of dat gaat werken

Code: Selecteer alles

{Orgineel idee is van http://www.sam-song.info}
PAL.loop := True ;

    var        Player : TPlayer;
    var        Song : TSongInfo;
    var        statusmessage, getstr, returnstr, tijd, prog : String;
    var        D : DateTime;

    PAL.WaitForPlayCount(15);
    repeat
    
        D := T['+15:00:00'];
        tijd := FormatDateTime('hhnn', D);
        
        Song := ActivePlayer.GetSongInfo();
            
        if ( Song['songtype'] = 'S' ) then
            begin        
                if ((tijd >= '0800') and (tijd < '0803')) then
                    prog := 'Heerlijke hits '
                else if ((tijd >= '0900') and (tijd < '0903'))
                    then prog := 'http://jm-flashdanceradio.nl'
                else if ((tijd >= '2000') and (tijd < '2003'))
                    then prog := 'Heerlijke hits  '
                else if ((tijd >= '2100') and (tijd < '2103'))
                    then prog := 'http://jm-flashdanceradio.nl'
                else if ( Song['songtype'] = 'S' ) then
                    begin
                        prog := Song['artist'] + ' - ' + Song['title'];
                    end;
                    
                prog := UpperCase(prog);
                
                begin
                    statusmessage := urlencode(prog);    
                    getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=JMFlashdance';
                    returnstr := WebToStr(getStr);
                end;
            end;
            
    until ( Song['songtype'] = 'S' );
    
    tijd := FormatDateTime('nn', D);
    
    if ((tijd >= '00') and (tijd < '03')) then
        PAL.WaitForTime(T['XX:03:00']);

//Wout Franken, BroadcasterForum.nl, 1 feb 2011               

[RealTech]

Hoi Jacqueline,

Nu post hij alleen rond het hele uur je luisterlink terwijl je pas een maal per 15 platen een tweet stuurt. Ik kan me voorstellen dat dat niet altijd gelijk loopt. Wellicht is het beter om het script op de volgende wijze aan te passen:

Code: Selecteer alles

{Orgineel idee is van http://www.sam-song.info}
PAL.loop := True ;

    var        Player : TPlayer;
    var        Song : TSongInfo;
    var        statusmessage, getstr, returnstr, tijd, prog : String;
    var        D : DateTime;

    PAL.WaitForPlayCount(15);
    repeat
    
        D := T['+15:00:00'];
        tijd := FormatDateTime('hhnn', D);
        
        Song := ActivePlayer.GetSongInfo();
            
        if ( Song['songtype'] = 'S' ) then
            begin        
                if ((tijd >= '0800') and (tijd < '0803')) then
                    prog := 'Heerlijke hits '
                else if ((tijd >= '0900') and (tijd < '0903'))
                    then prog := 'http://jm-flashdanceradio.nl'
                else if ((tijd >= '2000') and (tijd < '2003'))
                    then prog := 'Heerlijke hits  '
                else if ((tijd >= '2100') and (tijd < '2103'))
                    then prog := 'http://jm-flashdanceradio.nl'
                else if ( Song['songtype'] = 'S' ) then
                    begin
                     prog := Song['artist'] + ' - ' + Song['title']+' Luister hier: http://bit.ly/hO99q4';
                    end;
                    
                prog := UpperCase(prog);
                
                begin
                    statusmessage := urlencode(prog);    
                    getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=JMFlashdance';
                    returnstr := WebToStr(getStr);
                end;
            end;
            
    until ( Song['songtype'] = 'S' );
    
    tijd := FormatDateTime('nn', D);
    
    if ((tijd >= '00') and (tijd < '03')) then
        PAL.WaitForTime(T['XX:03:00']);

//Wout Franken, BroadcasterForum.nl, 1 feb 2011               

Op deze manier wordt bij iedere plaat ook de verkorte luisterlink meegestuurd.
Ik heb hem maar even voor je verkleind op bit.ly. [smilie=gamer2.gif]


Grtz,
RealTech

[jacqueline]

hey hoi hoi

Ja ik ben verder geen PAL scripter ..
maar iig thanks voor de aanpassing eraan
kga hem gebruiken

[DJManolito]

Als je naar deze link: http://www.sam-song.info/ gaat en inlogt met je twitteraccount en je plaatst in het prefix vakje bv "Speelt nu: " en in het postfix vakje je korte url, dan krijg je het volgende bericht als tweet:

Speelt nu: songtekst - artiest op http://bit.ly/****

Dan hoef je het script verder niet aan te passen, tenzij je het aantal nummers en de tijd wil aanpassen [smilie=good.gif]

[qradio]

Ik zit net als Fatamorgana met de vraag: waar haal ik de verkorte luisterlink vandaan? :$

[jacqueline]

Ik heb even gegoogled misschien is dit wat je bv link korter maakt? en dat je DAT dan bij postfix moet zetten?
https://chrome.google.com/extensions/de ... dbofjbdcic

[jacqueline]

Ik heb het volgende gedaan:
ben naar deze site gegaan http://bit.ly/
heb me daar ingeschreven zodat je er een accountje hebt
dan als je bent ingelogt...
typ je in die hele grote blauwe vlak je url ... bv http://jestream.nl
dan klik je op shorten\en je krijgt er een verkorte url voor terug
dan ga je naar de songinfo van twitter en plaats de verkorte url bij postfix


Tevens heb ik gewoon de PAL lopen van Wout en hierin nix veranderd

zo heb ik het gedaan iig