Twitter

[Matthias_franck]

Hey,

Ik had nog een vraagje over het twitter script.

Ik heb mijn twitter gekopeld aan sam-song.info.

Ik heb dan dit script gevonden, maar waar moet ik die ID gaan zoeken ?

Code: Selecteer alles

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

    // variabelen aanwijzen.
    var    Song : TSongInfo;
    var    statusmessage, getstr, tijd, prog : String;
    var    D : DateTime;

    // wacht totdat nummer is afgelopen
    PAL.WaitForPlayCount(1);
    
    // herhalen totdat de songtype S is
    repeat    
        // tijd omzetten zonder de : erin
        D := T['+00:00:00'];
        // dat gebeurd hier hh (uur) nn (minuten)
        tijd := FormatDateTime('hhnn', D);  
        // active deck wordt met onderstaand uitgelezen, bij herhaling wordt steeds verse info gehaald 
        Song := ActivePlayer.GetSongInfo();  

        // als songtype S is dan starten met begin, anders herhalen totdat het ooit songtype S wordt
        if ( Song['songtype'] = 'S' ) then
            begin 
                // als de tijd tussen 0800 & 0803 is dan is prog 8@80@8 en ga naar het volgende begin
                if ((tijd >= '0800') and (tijd < '0803')) then
                    prog := '8 Hits @ The 80`S @ 08:00 @WoutFM'
                else if ((tijd >= '0900') and (tijd < '0903'))
                    then prog := '9 Hits @ The 90`S @ 09:00 @WoutFM'
                else if ((tijd >= '2000') and (tijd < '2003'))
                    then prog := '8 Hits @ The 80`S @ 20:00 @WoutFM'
                else if ((tijd >= '2100') and (tijd < '2103'))
                    then prog := '9 Hits @ The 90`S @ 21:00 @WoutFM'
                // bij geen resultaat van tijd dan = songtype S, active deck artiest & titel 
                else if ( Song['songtype'] = 'S' ) then
                    begin
                        prog := Song['artist'] + ' - ' + Song['title'];
                    end;

                // alle tekst in hoofdletters
                prog := UpperCase(prog); 

                // de tekst gaat hier naar Twitter toe 
                begin
                    // de tekst wordt omgezet in hexidecimale vormen (spatie is eigenlijk %20)
                    statusmessage := urlencode(prog);    
                    getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=***';
                    WebToStr(getStr);
                end;                
            end;               
    until ( Song['songtype'] = 'S' );  

    // de tijd wordt nu omgezet in minuten    
    tijd := FormatDateTime('nn', D);
    
    // als tijd tussen xx:00 & xx:03 zit dan wachten tot xx:03 (3 minuten over het uur)
    if ((tijd >= '00') and (tijd < '03')) then
        PAL.WaitForTime(T['XX:03:00']);
            
//Wout Franken, BroadcasterForum.nl, 1 feb 2011     

Alvast bedankt,

Matthias

[drOhimself]

http://sam-song.info werkt met een login, daarvan zal je het userID moeten invoeren in het script.
Zo te zien is het je Twitter account ID.

[Matthias_franck]

http://sam-song.info werkt met een login, daarvan zal je het userID moeten invoen in het script, denk ik.

Ik kan toch nergens een plekje vinden om in te loggen.
Er staat wel rechtsbovenaan logout, maar ik zie ook nergens een ID ofzo en kan nergens op klikken.

[drOhimself]

Zo te zien in dit scherm

[Matthias_franck]

Bedankt. Dit had ik al een aantal keer gedaan, maar op een of andere manier was het niet gelukt.

[drOhimself]

Maar nu wel dus ?

[Matthias_franck]

Ja

[Matthias_franck]

Ik gebruik nu deze code, maar dingen die programma's die hij automatisch aangeeft zouden er eigenlijk uit moeten. Heb al op een aantal manieren geprobeert, maar dan werkt die telkens niet meer.

Hoe kan ik dat eruithalen ?

Code: Selecteer alles

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

    // variabelen aanwijzen.
    var    Song : TSongInfo;
    var    statusmessage, getstr, tijd, prog : String;
    var    D : DateTime;

    // wacht totdat nummer is afgelopen
    PAL.WaitForPlayCount(1);
    
    // herhalen totdat de songtype S is
    repeat    
        // tijd omzetten zonder de : erin
        D := T['+00:00:00'];
        // dat gebeurd hier hh (uur) nn (minuten)
        tijd := FormatDateTime('hhnn', D);  
        // active deck wordt met onderstaand uitgelezen, bij herhaling wordt steeds verse info gehaald 
        Song := ActivePlayer.GetSongInfo();  

   [b]     // als songtype S is dan starten met begin, anders herhalen totdat het ooit songtype S wordt
        if ( Song['songtype'] = 'S' ) then
            begin 
                // als de tijd tussen 0800 & 0803 is dan is prog 8@80@8 en ga naar het volgende begin
                if ((tijd >= '0800') and (tijd < '0803')) then
                    prog := '8 Hits @ The 80`S @ 08:00 @WoutFM'
                else if ((tijd >= '0900') and (tijd < '0903'))
                    then prog := '9 Hits @ The 90`S @ 09:00 @WoutFM'
                else if ((tijd >= '2000') and (tijd < '2003'))
                    then prog := '8 Hits @ The 80`S @ 20:00 @WoutFM'
                else if ((tijd >= '2100') and (tijd < '2103'))
                    then prog := '9 Hits @ The 90`S @ 21:00 @WoutFM'
                // bij geen resultaat van tijd dan = songtype S, active deck artiest & titel 
                else if ( Song['songtype'] = 'S' ) then
                    begin
                        prog := Song['artist'] + ' - ' + Song['title'];
                    end;[/b]
                // alle tekst in hoofdletters
                prog := UpperCase(prog); 

                // de tekst gaat hier naar Twitter toe 
                begin
                    // de tekst wordt omgezet in hexidecimale vormen (spatie is eigenlijk %20)
                    statusmessage := urlencode(prog);    
                    getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=***';
                    WebToStr(getStr);
                end;                
            end;               
    until ( Song['songtype'] = 'S' );  

    // de tijd wordt nu omgezet in minuten    
    tijd := FormatDateTime('nn', D);
    
    // als tijd tussen xx:00 & xx:03 zit dan wachten tot xx:03 (3 minuten over het uur)
    if ((tijd >= '00') and (tijd < '03')) then
        PAL.WaitForTime(T['XX:03:00']);
            
//Wout Franken, BroadcasterForum.nl, 1 feb 2011

ps: is het ook mogelijk om een tijdstip neer te zetten ? bv. 15.40: TITTEL-ARTIEST op musicboxradio.


Matthias

[drOhimself]

... maar dingen die programma's die hij automatisch aangeeft ....

wat wil je eruit hebben ?

[Matthias_franck]

Ondertussen heb ik het opgelost door die tijden te wissen.

Kan het zijn dat ik compile error krijg in Sam 2 en niet in Sam 4 ? (rij 45 kolom 38)

[drOhimself]

Ja dan kan.
Heb het ook wel eens gehad met een 'recente' PAL in een oude SAM te plaatsen.
Die schijnt niet alle commando's uit de scripttaal te herkennen.