ripristino da "Connessione ripristinata per peer" Client Indy TCP

Question

In che modo dovrei essere ripristinato in questa situazione?

I crash del server, quindi la connessione è stata chiusa in modo anomalo. Le chiamate a quasi tutto comportano eccezioni di "Connessione ripristinata per peer". Mi sembra di averlo risolto chiamando Disconnect sull'oggetto TIdTCPClient all'interno del blocco except, ma si traduce in un'eccezione finale con lo stesso messaggio (che ho rilevato nel secondo try-except block).

Questo è con Indy10 e 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

Prova questo:

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;