TCP Client disconnect

[XXcD]

Hallo,
ich verwende den Indy TCP Client und möchte dort ein OnDisconnect Ereignis
einbauen.

Dieser Disconnect kommt vom Server aus und der Client soll darauf reagieren.
Theoretisch könnte ich ja den Server noch etwas senden lassen, dass das Disconnect ausgelöst wird, aber es kann
ja auch vor kommen, dass plötzlich die Internetverbindung getrennt wird und dann kommt das nicht an.

Bis jetzt hab ich das so:

Delphi-Quellcode:

try
read:=IdTCPClient2.IOHandler.ReadLn('', 50);
except
if OnChannel=true then
begin
IdTCPClient2.Disconnect;
Timer1.Enabled:=false;
Showmessage('Verbindung getrennt!');
Form8.Close;
end;
end;

...

Aber immer wenn die verbindung sich trennt kommt es vor, dass noch einmal die Nachricht erscheint "Connection reset by peer".
Ich dachte wenn ich try und except nutze kommt das nicht, aber das bringt leider nichts.

[XXcD]

Gerade habe ich rausgefunden, dass es mit

Delphi-Quellcode:

on E:EIdSocketError do

gehen müsste.

Leider funktioniert das nicht.

[Die Muhkuh]

Welche Indy-Version verwendest Du?

[XXcD]

Indy 10

[Die Muhkuh]

Der TCP Client bietet ein Event namens "OnDisconnected". Das dürfte es doch sein oder nicht? :gruebel:

[XXcD]

Aber wenn beispielsweise der Server abstürtzt dann wird das Ereignis einfach nicht ausgeführt.
Das wird irgendwie nur ausgeführt wenn ich im Client "Client.Disconnect" ausführe.

[mjustin]

Zitat:

Zitat von XXcD

Aber wenn beispielsweise der Server abstürtzt dann wird das Ereignis einfach nicht ausgeführt.
Das wird irgendwie nur ausgeführt wenn ich im Client "Client.Disconnect" ausführe.

Erst wenn versucht wird, Daten über den Socket zu empfangen (oder zu senden), kann das Ausfallen der Gegenseite erkannt werden. Das ist eine Eigenschaft des TCP/IP Protokolls, nicht der Indy Komponenten, und läßt sich nur auf einer höheren Schicht zum Beispiel durch regelmäßige Nachrichten ('Hallo, ich bin noch da!') lösen.

Cheers,

[XXcD]

Ja ich habe doch einen Timer mit Readln und das ganze in einem try except block.
Dieser wird aber nicht richtig ausgeführt.

[mjustin]

Zitat:

Zitat von XXcD

Ja ich habe doch einen Timer mit Readln und das ganze in einem try except block.
Dieser wird aber nicht richtig ausgeführt.

Erscheint die "Connection reset by peer" Nachricht auch wenn das Programm ausserhalb der IDE läuft?

Nein -> dann liegt es an den Exception-Einstellungen für den Debugger, hier kann man dann die Indy-Exception in die Liste der zu ignorierenden Exceptions aufnehmen
Ja -> dann wird wohl ausserhalb des try .. except irgendwo noch auf die Verbindung zugegriffen (lesend oder schreibend)

[XXcD]

Ich kann es beides ausschliessen.
Die Nachricht erscheint immer und der Fehler wird eindeutig in dem Timer ausgelöst, weil wenn ich den deaktivere passiert garnichts.

[XXcD]

Hat da keiner eine Idee wie ich das machen könnte?
Einfach mal ein wenig code oder so vielleicht kommt ja dann die zündende idee.
Und ich bin ja glaube ich nicht der einzige der so ien Problem hat.

[polarwolf]

Zitat:

Zitat von XXcD

Einfach mal ein wenig code oder so...

Du wolltest es ja so haben ;)

Delphi-Quellcode:

try
  //datenabfrage
except
  //abfangen der Exception (Exception kommt aber noch in Delphi wegen Debuggereinstellung)
  on e: Exception do
  begin
    Showmessage('Verbindung verloren!'); 
  end;
end;

[XXcD]

Ok das hat inzwischen bei mir geklappt, leider nur kurze zeit.
Ich habe in delphi von debug auf release umgestellt und dann gings doch auf einmal nicht mehr.
Was kann man denn da in den Release einstellungen genau einstellen, damit der fehler nicht kommt?
Ich nutze Delphi 2009

[ralfiii]

Zitat:

Zitat von XXcD

Hat da keiner eine Idee wie ich das machen könnte?

Ich hab ein ähnliches Problem.
Wenn du ein Readln hast das fehlschlägt (wie in deinem Beispiel), dann sollte eigentlich OnStatus aufgerufen werden.
Da kannst du dann gut drauf reagieren.