odzyskiwanie z "Connection Reset Peer" Indy TCP Client

Question

Jak powinienem być wracając do zdrowia w tej sytuacji?

Serwer ulega awarii, a więc połączenie zostało nieprawidłowo zamknięte. Połączenia z niemal wszystkim powodują wyjątki "Połączenie resetuj według partnera". Wydaje się, że naprawiłem to, wywołując Disconnect na obiekcie TIdTCPClient wewnątrz bloku except, ale powoduje to jeden końcowy wyjątek z tą samą wiadomością (którą złapałem w drugim bloku try-except).

Jest to z Indy10 i 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

Spróbuj tego:

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;