delphi code does not connect me to irc server -


hello doing program in delphi console, xe2 delphi , indy using sockets , problem have code done when connect server receive no response ping pong.

the code follows:

program project1;  {$apptype console} {$r *.res}  uses   system.sysutils, idtcpclient;  var   irc: tidtcpclient;   code: string;  begin   try      irc := tidtcpclient.create(nil);     irc.host := 'irc.freenode.net';     irc.port := 6667;     irc.connect;      irc.socket.write('nick tester');     irc.socket.write('user tester 1 1 1 1');     irc.socket.write('join #tester');      if irc.socket.connected = true     begin       writeln('yeah');       while (1 = 1)       begin         code := irc.socket.readstring(9999);         if not(code = '')         begin           writeln(code);         end;       end;     end     else     begin       writeln('nay');     end;   except     on e: exception       writeln(e.classname, ': ', e.message);   end;  end.

anyone can me?

you not sending crlf after each command send. use tidiohander.writeln() instead of tidiohandler.write().

also, call tidiohandler.readstring() not exit until 9999 bytes have been received. not want happen. irc line-based protocol. should using tidiohandler.readln() instead of tidiohandler.readstring().

try more instead:

program project1;  {$apptype console} {$r *.res}  uses   system.sysutils, idtcpclient;  var   irc: tidtcpclient;   code: string; begin   try     irc := tidtcpclient.create(nil);     try       irc.host := 'irc.freenode.net';       irc.port := 6667;        try         irc.connect;       except         writeln('nay');         exit;       end;        writeln('yeah');        irc.iohandler.writeln('nick tester');       irc.iohandler.writeln('user tester 1 1 1 1');       irc.iohandler.writeln('join #tester');        repeat         code := irc.iohandler.readln;         writeln('[recv] ' + code);         if textstartswith(code, 'ping ')         begin           fetch(code);           irc.iohandler.writeln('pong ' + code);           writeln('[sent] pong ' + code);         end;       until false;           irc.free;     end;   except     on e: exception       writeln(e.classname, ': ', e.message);   end; end.

with being said, should using tidirc component instead. try this:

program project1;  {$apptype console} {$r *.res}  uses   system.sysutils, idirc, idcontext, idglobal;  procedure ircraw(aself: pointer; asender: tidcontext; ain: boolean; const amessage: string); begin   writeln(iif(ain, '[recv] ', '[sent] ') + amessage); end;  var   irc: tidirc;   m: tmethod; begin   try     irc := tidirc.create(nil);     try       irc.host := 'irc.freenode.net';       irc.port := 6667;       irc.nickname := 'tester';       irc.username := 'tester';        m.code := @ircraw;       m.data := irc;       irc.onraw := tidircrawevent(m);        try         irc.connect;       except         writeln('nay');         exit;       end;        writeln('yeah');        irc.join('#tester');        repeat         sleep(10);       until somecondition;           irc.free;     end;   except     on e: exception       writeln(e.classname, ': ', e.message);   end; end.

Comments

Post a Comment

Popular posts from this blog

javascript - RequestAnimationFrame not working when exiting fullscreen switching space on Safari -

request animation frame stops working when exiting fullscreen clicking on original space's safari window. fine if fullscreen mode canceled escape key or calling cancelfullscreen(). steps reproduce: open https://dl.dropboxusercontent.com/u/769042/prezi/safari-fullscreen.html click "draw raf", kittie appears click "fullscreen", go fullscreen click "draw raf", kittie appears go space original safari was, showing "click exit fullscreen mode", click anywhere, out fullscreen click "draw raf", nothing happens what handling click calling: window.requestanimationframe(draw); which draws on canvas context: function draw() { ctx.drawimage(img, math.random()*500|0, math.random()*400|0, 100, 100); } i checked .hidden , .visibilitystate, updated correctly. tested on osx 10.9.3, safari 7.0.4 (9537.76.4). has workaround/solution other switching old settimeout? this sounds webkit bug 88940 : using reque...
Read more

jsf - How to ajax update an item in the footer of a PrimeFaces dataTable? -

this visual of table have: +---------+------------+-------------------+ | header1 | header2 | header3 | +---------+------------+-------------------+ | row | input | calc'ed output | | row b | input b | calc'ed output b | | etc.. | etc.. | etc.. | +---------+------------+-------------------+ | total: total calc'ed output | +------------------------------------------+ and stripped-down code: <p:datatable id="mytable" value="#{mybean.somelist}" var="currentitem"> <p:column headertext="header1"> <h:outputtext value="#{currentitem.name}" /> </p:column> <p:column headertext="header2"> <pe:inputnumber value="#{currentitem.inputval}"> <p:ajax event="change" listener="#{mybean.changelistener}" update="outputval outputtotal...
Read more

django - CSRF verification failed. Request aborted. CSRF cookie not set -

error: reason given failure: csrf cookie not set. in general, can occur when there genuine cross site request forgery, or when django's csrf mechanism has not been used correctly. post forms, need ensure: browser accepting cookies. view function uses requestcontext template, instead of context. in template, there {% csrf_token %} template tag inside each post form targets internal url. if not using csrfviewmiddleware, must use csrf_protect on views use csrf_token template tag, accept post data. you're seeing section of page because have debug = true in django settings file. change false, , initial error message displayed. can customize page using csrf_failure_view setting. did find, nothing helped, must foolish(( my template <form method="post">{% csrf_token %} {% field in form %} <div class="control-group"> {{ field }} </div> {% endfor %} <input type=...
Read more