Hi,
ich arbeite inmoment mit der indy irc komponente, wenn ich allerdings 2-3 min nichts sage, gibts n quit wegen ping timeout. was kann ich dagegen tun? ich hab die onpingpong-procedure gesehen, allerdings weiss ich nicht wie man einen pong senden kann

hi, vielleicht hilft dir das [TClientSocket] :

zusammenfalten · markieren

Delphi-Quellcode:

..
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;
..

hmm thx, nur wenn ich das an den server sende, krieg ich die fehlermeldung hier:

Zitat:

[22:40] Error: *meinnick* :No origin specified

zuerst ja nick geben oder?

markieren

Delphi-Quellcode:

//On Connect
Socket.sendtext('USER abc '+cs.socket.localhost+' '+cs.socket.localaddress+' :test'+#13#10);
socket.SendText('NICK abc'+#13#10);
//nick ist dann abc

hmm thx, hab gerade nochma nachgeguckt, dein code wird beim onconnect schon ausgeführt (gerade nachgeguckt), jetz sende ich beim onconnect ein PING und es funzt thx

hmm hab gerade nochma ins irc geguckt und wieder ping timeout.. allerdings erst nach 10 min.. muss ich irgentwo ein timer stellen der alle x sekunden PING sendet?

So muss es funktionieren

zusammenfalten · markieren

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;

ihr solltet euch mal die RFC's durchlesen

@Basic-Master:
du musst immer dann einen PONG(nicht PING!) senden, wenn der Server dir einen PING sendet, das kannst du im onRaw Ereignis abfangen!!

der server sendet den ping um zu gucken ob du überhaupt noch da bist, was der fall ist wenn PONG zurückkommt

nur mal so nebenbei...
a.) die Indy kompo schickt schon ein pong zurück!
b.) nen pong zurück senden musst du also nur bei TClientSocket
x.) Indy IdIRC is mist

*zustimm*


hab ganz vergessen das es hier um die indys geht
obwohl in onraw erwähnte