Twitter & SAM

Voor vragen over Playlist Automation Language.
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: Twitter & SAM

Ongelezen bericht door Wout » 03 mar 2011, 20:11

Zo, het werkt.

Nu nog even bug-testen & duur-testen.
Dus als je geroepen voelt om te testen op mijn site. :D
http://www.woutfm.nl en rechtsboven (vergrootkijker) je favo artiest invoeren.
(naam + bericht invoeren, geen bericht = geen verzoek [smilie=no.gif] )

& http://www.twitter.com/woutfm komt je bericht ook te staan.
Afbeelding

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 » 03 mar 2011, 20:22

De pop-up met 'naam + bericht invoeren, geen bericht = geen verzoek' blijft staan?
Als ik op 'verzoek' druk dan gebeurt er niets?

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: Twitter & SAM

Ongelezen bericht door Wout » 03 mar 2011, 20:23

Misschien je naam en bericht invoeren en dan pas op verzoek drukken.
Afbeelding

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 » 03 mar 2011, 20:25

Heb ik gedaan! Zal het zo nog eens proberen...

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 » 04 mar 2011, 16:18

Wout , als je eerst je naam en bericht invoert en dan op verzenden klikt pakt die het niet [smilie=blush2.gif]
.::Now Playing::..

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: Twitter & SAM

Ongelezen bericht door Wout » 04 mar 2011, 17:12

Ik test nu met Google Chrome en daar merk ik dat het niet op werk.
Klopt dat, dat jullie Chrome gebruiken?
Afbeelding

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 » 04 mar 2011, 17:15

Ja klopt lieve schat ik gebruik google chrome :)
.::Now Playing::..

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 » 04 mar 2011, 17:35

Ik ook. :)

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 » 05 mar 2011, 11:27

ja ik ook, dat was dus ook mijn probleem

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: Twitter & SAM

Ongelezen bericht door Wout » 06 mar 2011, 14:57

Het heeft nogal voeten in de aarde gehad, maar het is gelukt. :-D

Nu kunnen ook de Google Chrome gebruikers gebruik maken van de Request op WoutFM. [smilie=yahoo.gif]
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: Twitter & SAM

Ongelezen bericht door Wout » 06 mar 2011, 21:44

Nu nog een aanpassing gedaan, verzoeken zonder bericht & naam worden wel in de playlist opgenomen,
alleen is dat pas na iedere uur 1 keer en wordt het geplaatst op de bodem van de playlist.

Dus, je stem(loos) is nooit verloren alleen duurt het wat langer voordat je je nummer [s]hoort[/s] ziet.
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: Twitter & SAM

Ongelezen bericht door Wout » 09 mar 2011, 19:03

Hierbij alleen de 'Request Naam + Bericht Tweet'.
Daarbij word een verzoek waarbij de naam & bericht is ingevuld als eerste gedraaid ten opzichten van 1 zonder.
En wordt ook geplaatst op Twitter (mits bericht niet meer dan 140 tekens bevat)

Code: Selecteer alles

PAL.Loop := True;
//PAL.MemoryLeakWarning := True;
RequestPolicy.InsertPos := ripNone;

    var    statusmessage, getstr, tijd, prog : String;
    var D : DateTime;
    var AQuery : TDataSet;
    var Song : TSongInfo;
    
       D := T['XX:57:00'];
    
    repeat
        if Now < D then
        
        AQuery.Free;
        Song.Free;
                
        AQuery := Query('SELECT * FROM songlist INNER JOIN requestlist ON (songlist.ID = requestlist.songID) AND requestlist.status = :new AND msg is not NULL ORDER BY requestlist.ETA DESC LIMIT 1 ',['new'],True);
    
            if not (AQuery.BOF and AQuery.EOF) then
                begin
                    Song := TSongInfo.Create();
                    
                    Song['ID'] := AQuery['ID'];
                    Song['filename'] := AQuery['filename'];
                    Song['artist'] := AQuery['artist'];
                    Song['title'] := AQuery['title'];

                    Song['msg'] := AQuery['msg'];        
                    Song['name'] := AQuery['name'];    

                    Queue.Add(Song,ipTop);        
         
                    WriteLn('Request handled: '+Song['artist']+' - '+Song['title']);    
                    WriteLn('-> '+Song['name']+' - '+Song['msg']);        
                    Queue.AddFile('C:\Request.mp3',ipTop);
                    
                    prog := 'Door ' + Song['name'] + '! met als tekst -> ' + Song['msg'] +'! Maar nu eerst ' + Song['artist'] +' met '+ Song['title'];                
                    WriteLn(prog);
                    statusmessage := urlencode(prog);                
                    getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=***';    
                    WebToStr(getStr);        
         
                    ExecSQL('UPDATE requestlist SET status=:status WHERE (songID = :songID) AND ((status=''new'') OR (status=''pending'')) ',['pending',song['ID']]);
                end
                
            else    
                WriteLn('No request found');
                
        PAL.WaitForTime('+00:00:05');

    until Now > D;
    
    PAL.WaitForTime(T['XX:02:20']);
    
        AQuery.Free;
        Song.Free;
        
        AQuery := Query('SELECT * FROM songlist INNER JOIN requestlist ON (songlist.ID = requestlist.songID) AND requestlist.status = :new AND msg is NULL AND t_stamp <= DATE_SUB( NOW( ), INTERVAL 15 MINUTE ) ORDER BY requestlist.ETA DESC LIMIT 1 ',['new'],True);
        
        if not (AQuery.BOF and AQuery.EOF) then
            begin
                Song := TSongInfo.Create();
                    
                Song['ID'] := AQuery['ID'];
                Song['filename'] := AQuery['filename'];
                Song['artist'] := AQuery['artist'];
                Song['title'] := AQuery['title'];
                
                Queue.Add(Song,ipBottom);        
         
                WriteLn('Request handled: '+Song['artist']+' - '+Song['title']);    
                    
         
                ExecSQL('UPDATE requestlist SET status=:status WHERE (songID = :songID) AND ((status=''new'') OR (status=''pending'')) ',['pending',song['ID']]);
            end
        else        
            WriteLn('No request found'); 
Afbeelding

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door ojee66 » 29 mar 2011, 20:33

He Wout,

Met WIN7 en IE8 wordt de search box (tekst artiest?) niet geleegd als ik erin klik. (zelfde probleem als bij discogs.com)
De onderste optie kan ik niet kiezen dan verdwijnt de lijst.
Overigens heb ik een soortgelijk iets op mijn site (LOL) maar net ff anders.

Dwarrel
*****
Berichten: 191
Lid geworden op: 24 mar 2010, 11:00
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: 8.1
Locatie: Den Haag
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door Dwarrel » 29 mar 2011, 22:31

ojee66 schreef:He Wout,

Met WIN7 en IE8 wordt de search box (tekst artiest?) niet geleegd als ik erin klik. (zelfde probleem als bij discogs.com)
De onderste optie kan ik niet kiezen dan verdwijnt de lijst.
Overigens heb ik een soortgelijk iets op mijn site (LOL) maar net ff anders.
Dat ziet er inderdaad fraai uit de request.... Kan je hem niet met de rest van de wereld delen....????

Dwarrel....

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door ojee66 » 30 mar 2011, 14:29

Dwarrel,

Ook mijn code heeft nogal wat bugs...
Als je snel tikt kan het systeem het niet helemaal meer volgen.
Ik wil er eigenlijk ook de titel in meenemen in de zoekstring.
De album hoesjes komen niet mee...

ik zal er een aparte item van maken in de php/html webpagina...

dj elvee
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 27 apr 2011, 16:20
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: 7 64-bits

Re: Twitter & SAM

Ongelezen bericht door dj elvee » 27 apr 2011, 16:34

Hoi hoi, ben nieuw hier en lerende, gebruik twitter al wat langer, heb het scriptje geddownload, maar mijn vraag is waar plaats ik dit script in de SAM?

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: Twitter & SAM

Ongelezen bericht door Wout » 27 apr 2011, 16:43

dj elvee schreef:Hoi hoi, ben nieuw hier en lerende, gebruik twitter al wat langer, heb het scriptje geddownload, maar mijn vraag is waar plaats ik dit script in de SAM?
viewtopic.php?f=81&t=2909#p18308
en deze ook.
viewtopic.php?f=216&t=2910#p18329
Afbeelding

dj elvee
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 27 apr 2011, 16:20
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: 7 64-bits

Re: Twitter & SAM

Ongelezen bericht door dj elvee » 27 apr 2011, 16:50

Wout schreef:
dj elvee schreef:Hoi hoi, ben nieuw hier en lerende, gebruik twitter al wat langer, heb het scriptje geddownload, maar mijn vraag is waar plaats ik dit script in de SAM?
viewtopic.php?f=81&t=2909#p18308
en deze ook.
viewtopic.php?f=216&t=2910#p18329
dank

dj elvee
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 27 apr 2011, 16:20
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: 7 64-bits

Re: Twitter & SAM

Ongelezen bericht door dj elvee » 27 apr 2011, 17:04

Dank je wout voor snelle oplossing, het werkt. http://twitter.com/#!/blogmastertweet

Gebruikersavatar
pcman
****
Berichten: 94
Lid geworden op: 04 apr 2010, 08:39
SAM-versie: 4.2.2.*
Database: MariaDB
Windows: Server 2003
Locatie: Veldhoven
Contacteer:

Re: Twitter & SAM

Ongelezen bericht door pcman » 09 mei 2011, 11:42

Is het ook mogelijk dat die paar seconden voordat het huidige nummer afgelopen is het eerst volgende verzoekje erin zet.
en niet dat als er 3 instaan dat die ze allemaal doet.

Groetjes michael

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht