IdIRC: Ping Timeout nach 2-3 min?

[_master_]

So muss es funktionieren

Delphi-Quellcode:

//on read
procedure TMainForm.csRead(Sender: TObject; Socket: TCustomWinSocket);
var
s:string; i:integer; sl:TStringList;
begin
sl:=tstringlist.create;
sl.text:=socket.receivetext;
for i:=0 to sl.count-1 do
begin
s:=sl.strings[i];
  If Pos('PING', s)<>0 Then begin
        s[Pos('PING', s)+1]:='O';
        cs.Socket.SendText(s+#13#10);
  end;
  if Pos('376', s)<>0 then
  begin
        cs.socket.SendText('JOIN #testchannel'+#13#10);
  end;
end;

//on connect
procedure TMainForm.csConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.sendtext('USER abc '+cs.socket.localhost+' '+cs.socket.localaddress+' :test'+#13#10);
socket.SendText('NICK abc'+#13#10);
end;