twitter meer dan 140 tekens

[hopparadio]

Eve een vraag

Het twitter script heb ik in de request lopen en werkt goed.
Alleen nu doet zich het volgende probleem voor bij meer dan 140 tekens wordt er
geen bericht verstuurt.
Is dat op te lossen wie weet hier een oplossing voor

[hopparadio]

Eve een vraag

Het twitter script heb ik in de request lopen en werkt goed.
Alleen nu doet zich het volgende probleem voor bij meer dan 140 tekens wordt er
geen bericht verstuurt.
Is dat op te lossen wie weet hier een oplossing voor

ps dit script gebruik ik

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

[Wout]

Daar is geen oplossing voor, Twitter kan maar 140 tekens aan.

[hopparadio]

Hoi wout dat begrijp ik

Maar wat ik eigenlijk meer bedoel
Is dat het bericht wordt afgekapt op 140 tekens zodat die wel wordt op gepakt door twitter
Of dat je in request formulier niet meer dan bijv 100 tekens kunt invoeren

[Wout]

Dat kan je zeker maken in je request-formulier.
http://tympanus.net/jMaxInput/

Ondersteuning wordt er niet gegeven op het forum over verdere problemen van de jQuery!

[hopparadio]

Bedankt voor de tip wout is voor mij weer een stapje hoger in de wereld die website,s bouwen en beheren heet
Deze mag op slot
Hoppppaaa