Warum ist die Verbindung instabil (PingTimeout) ?

[Nils_13]

Hi,

ich möchte eine Verbindung zu einem IRC-Server herstellen. Nachdem etwas Zeit vergangen ist, wird die Verbindung unterbrochen. Warum ?
Host: irc.euirc.net
Port: 6667
User-ID: controller

Client ist TClientSocket.

Verbindung herstellen:

Delphi-Quellcode:

with Client do
begin
  Host := eHost.Text;
  Port := StrToInt(ePort.Text);
  Open;
end;

ClientConnect:

Delphi-Quellcode:

procedure TfrmMain.ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  with Client.Socket do
  begin
    SendText('NICK testnick');
    SendText('USER ' + eiD.Text + ' "" "'+ eHost.Text +'" :1337');
  end;
end;

Um die Fehlermeldung "ERROR :Closing Link: [...] (Ping timeout)" zu erhalten noch diese Zeile in OnRead:
m.Lines.Add(Socket.ReceiveText);

[Florian H]

Antwortest du auch immer auf die Server-PING-Anfragen?

[Nils_13]

Der gezeigte Code ist der komplette, also gehe ich mal davon aus, dass ich damit nicht darauf reagiere (bin im Netzwerkgeschäft noch nicht so lange). Wie könnte man denn darauf reagieren ?

[SirTwist]

Lies Dir mal den RFC 2812 durch, da wird genau beschrieben, wie Server und Client miteinander kommunzieren.

Es gibt doch eine komplette IRC-Komponente, warum nimmst du die nicht. Selbst mit dieser ist es noch sehr aufwändig, einen eigenen Client zu programmieren.

Zu deinem konkreten Problem: Der IRC-Server sendet regelmäßig eine Zeile "PING", worauf der Client innerhalb von x Sekunden mit "PONG" antworten muss. Tut er das nicht, ist er raus.

[Nils_13]

Hm, die einzige Nachricht, die ich vom Server erhalte ist der PingTimeout. Warum das ?