Twitter & SAM

Voor vragen over Playlist Automation Language.
Gebruikersavatar
Gerrit
Moderator
Berichten: 882
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 4.3.6.*
Database: MySQL 4.1
Windows: 7 32-bits
Locatie: Veenendaal
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Gerrit » 13 feb 2011, 22:03

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.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.

Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door RealTech » 13 feb 2011, 23:58

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
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics

Gebruikersavatar
Gerrit
Moderator
Berichten: 882
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 4.3.6.*
Database: MySQL 4.1
Windows: 7 32-bits
Locatie: Veenendaal
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Gerrit » 14 feb 2011, 00:12

RealTech schreef: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.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.

Gebruikersavatar
Rejoradio
****
Berichten: 87
Lid geworden op: 13 dec 2007, 06:17
SAM-versie: 4.9.0.*
Database: MariaDB
Windows: Vista 32-Bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Rejoradio » 14 feb 2011, 14:49

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.

Gebruikersavatar
FataMorgana
VIP
Berichten: 776
Lid geworden op: 08 sep 2006, 19:51
SAM-versie: 4.3.0.
Database: MySQL 4.1
Windows: XP
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door FataMorgana » 14 feb 2011, 21:23

RealTech schreef: 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'?

Gebruikersavatar
FataMorgana
VIP
Berichten: 776
Lid geworden op: 08 sep 2006, 19:51
SAM-versie: 4.3.0.
Database: MySQL 4.1
Windows: XP
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door FataMorgana » 16 feb 2011, 00:02

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!)

Gebruikersavatar
Rejoradio
****
Berichten: 87
Lid geworden op: 13 dec 2007, 06:17
SAM-versie: 4.9.0.*
Database: MariaDB
Windows: Vista 32-Bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Rejoradio » 16 feb 2011, 20:19

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

Gebruikersavatar
FataMorgana
VIP
Berichten: 776
Lid geworden op: 08 sep 2006, 19:51
SAM-versie: 4.3.0.
Database: MySQL 4.1
Windows: XP
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door FataMorgana » 16 feb 2011, 20:58

Rejoradio schreef: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" .

Gebruikersavatar
jacqueline
******
Berichten: 270
Lid geworden op: 20 okt 2010, 18:02
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: XP
Locatie: Limburg
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door jacqueline » 16 feb 2011, 21:11

Gevonden john


je hebt er een volger bij lol
.::Now Playing::..

Gebruikersavatar
Rejoradio
****
Berichten: 87
Lid geworden op: 13 dec 2007, 06:17
SAM-versie: 4.9.0.*
Database: MariaDB
Windows: Vista 32-Bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Rejoradio » 16 feb 2011, 21:12

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

Gebruikersavatar
FataMorgana
VIP
Berichten: 776
Lid geworden op: 08 sep 2006, 19:51
SAM-versie: 4.3.0.
Database: MySQL 4.1
Windows: XP
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door FataMorgana » 16 feb 2011, 21:17

jacqueline schreef:Gevonden john


je hebt er een volger bij lol
ditto :-D
Al zal ik minder opvallen tussen de 118 van jou dan jij tussen de 8 van mij. :D

Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door RealTech » 16 feb 2011, 21:20

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
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics

Gebruikersavatar
FataMorgana
VIP
Berichten: 776
Lid geworden op: 08 sep 2006, 19:51
SAM-versie: 4.3.0.
Database: MySQL 4.1
Windows: XP
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door FataMorgana » 16 feb 2011, 21:29

RealTech schreef: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]

Gebruikersavatar
jacqueline
******
Berichten: 270
Lid geworden op: 20 okt 2010, 18:02
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: XP
Locatie: Limburg
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door jacqueline » 16 feb 2011, 21:39

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               
.::Now Playing::..

Gebruikersavatar
RealTech
**
Berichten: 32
Lid geworden op: 02 feb 2011, 21:09
SAM-versie: 4.2.2.*
Database: MySQL 5.1
Windows: 7 32-bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door RealTech » 16 feb 2011, 22:20

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
http://myradiostream.com/clubhuisradio

Smoothest Soul, Funkiest R&B and Best Dance Classics

Gebruikersavatar
jacqueline
******
Berichten: 270
Lid geworden op: 20 okt 2010, 18:02
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: XP
Locatie: Limburg
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door jacqueline » 16 feb 2011, 22:25

hey hoi hoi

Ja ik ben verder geen pal scripter ..
maar iig thanks voor de aanpassing eraan ;)
kga hem gebruiken :)
.::Now Playing::..

Gebruikersavatar
DJManolito
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 15 dec 2010, 23:31
SAM-versie: 4.7.4.*
Database: MS SQL
Windows: 7 32-bits
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door DJManolito » 16 feb 2011, 22:31

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]
Een dag niet gelachen, is een dag niet geleefd

qradio
****
Berichten: 98
Lid geworden op: 18 dec 2009, 21:07
SAM-versie: SAM 2013.6
Database: MySQL 5.5
Windows: 8.1

Re: Twitter & SAM

Ongelezen bericht door qradio » 17 feb 2011, 12:24

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

Gebruikersavatar
jacqueline
******
Berichten: 270
Lid geworden op: 20 okt 2010, 18:02
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: XP
Locatie: Limburg
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door jacqueline » 17 feb 2011, 13:44

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
.::Now Playing::..

Gebruikersavatar
jacqueline
******
Berichten: 270
Lid geworden op: 20 okt 2010, 18:02
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: XP
Locatie: Limburg
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door jacqueline » 17 feb 2011, 14:54

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
.::Now Playing::..

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht