twitter en request *OPGELOST*

[hopparadio]

Goededag

Ik ben met het twitter script wat hier op het forum stond aan de gang gegaan.
Zodat je in twitter kunt zijn wie er verzoek heeft gedaan en welk nummer.
Maar hij werkt niet.
Het eerste script wat ik bij sam info vandaan heb die werkt wel maar geeft alleen de nummers aan die afgespeeld worden.
Nu had ik hier het script gevonden om reqeust te twitteren ik heb de user id van het eerst script er in geplakt .
Maar ik zie geen tweets wat doe ik verkeerd?

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=300799197';    
                    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'); ]

[hopparadio]

jammer dat niemand mij er mee kan helpen

[hopparadio]

inmiddels heeft die 3 twitter berichten versuurt van de 100 verzoekjes lol
jammer dat er niemand is hier die wilt helpen

[hopparadio]

zo weer een stapje verder nu doet me twitter script het
maar de jingle voor de verzoekjes niet
dus het is nu zo ver of twitter of een jingle voor de verzoekjes
dit is het script wat ik gebruik voor de jingle

Code: Selecteer alles

PAL.Loop := True; 

PAL.LockExecution; 
var AQuery : TDataSet; 
var Song : TSongInfo; 
AQuery := Query('SELECT songlist.*, requestlist.*, requestlist.ID as requestID ' 
+' FROM songlist, requestlist ' 
+' WHERE (requestlist.ETA<:now) AND (requestlist.status=''new'') AND (songlist.ID=requestlist.songID) ' 
+ 'ORDER BY requestlist.ETA ASC ' 
+' LIMIT 1 ',[Now],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['duration'] := AQuery['duration']; 
Song['requestID'] := AQuery['requestID']; 
Queue.AddFile('c:\verzoek.mp3',ipbottom);
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'); 
PAL.UnLockExecution; 
AQuery.Free; 
Song.Free;

[Gerrit]

Heb je de jingle voor de request wel het zelfde genoemd als in het script staat, en klopt de verwijzing ?

Code: Selecteer alles

Queue.AddFile('C:\Request.mp3',ipTop);

Mijn complimenten dat je ZELF binnen een week het grootste probleem hebt opgelost. [smilie=good.gif]
Het is niet zo dat we niet willen helpen, maar af en toe moet je geduld hebben en dat kan wel eens een aantal dagen duren voordat die persoon, die er wel verstand van heeft, online komt en je wel kan helpen.

Gerrit.

[hopparadio]

Bedankt gerrit het werkt
ben ik je heel dankbaar voor
Ik zal voortaan ook wat meer geduld hebben hihihihi
Wat niet mee zal vallen voor een adhder hahahaha
hoppppaaaaa

[hopparadio]

Lol weer een ander klein probleempje
Als er vlak voor de reclame en na de reclama een verzoek wordt gedaan
draait die wel de jingle
maar gooit er geen twitter bericht uit helppppp

[hopparadio]

[quote="hopparadio"]Lol weer een ander klein probleempje
Als er een bericht van meer dan 140 tekens wordt ingetikt in de verzoek
dan stuurt die ze niet door
Is daar een oplossing voor ??

[hopparadio]

Lol weer een ander klein probleempje
Als er een bericht van meer dan 140 tekens wordt ingetikt in de verzoek
dan stuurt die ze niet door
Is daar een oplossing voor ??

Bovenste bericht wordt daar door ook veroorzaakt en heeft niks met de reclame te maken

[Wout]

@hopparadio.
Wil je de FAQ eens doorlezen. Bij #8
viewtopic.php?f=216&t=2910#p18329

[hopparadio]

Gedaan hier kan een slotje op hopppaaa