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.