Wiederherstellung von "Verbindung durch Peer zurückgesetzt" Indy TCP Client

Question

Wie sollte ich in dieser Situation wiederherstellen?

Der Server stürzt ab, daher wurde die Verbindung abnormal geschlossen. Aufrufe an fast alles führen zu "Connection Reset by Peer" Ausnahmen. Ich habe es anscheinend durch das Aufrufen von Disconnect für das TIdTCPClient-Objekt innerhalb des except-Blocks behoben, aber es führt zu einer letzten Ausnahme mit derselben Nachricht (die ich im zweiten try-except-Block abgefangen habe).

Dies ist mit Indy10 und Delphi XE2.

try 
     if not EcomSocket.Connected then EcomSocket.Connect(); 
    except 
     on e: Exception do begin 
     try 
      EcomSocket.Disconnect(); 
     except 
      MessageDlg('Connectivity to the server has been lost.', mtError, [mbOK], 0); 
     end; 
     end; 
    end; 

Answer 1

Versuchen Sie folgendes:

try 
    if not EcomSocket.Connected then EcomSocket.Connect(); 
except 
    try 
    EcomSocket.Disconnect(False); 
    except 
    end; 
    if EcomSocket.IOHandler <> nil then EcomSocket.IOHandler.InputBuffer.Clear; 
    MessageDlg('Connectivity to the server has been lost.', mtError, [mbOK], 0); 
end;