delphi - recuperándose del cliente Indy TCP "Restablecimiento de conexión"

Question

¿Cómo debería estar recuperándome en esta situación?

El servidor falla, por lo tanto, la conexión ha sido anormalmente cerrada. Las llamadas a casi todo resultan en excepciones de "Restablecimiento de conexión por pares". Parece que lo solucioné llamando a Desconectar en el objeto TIdTCPClient dentro del bloque except, pero da como resultado una excepción final con el mismo mensaje (que he capturado en el segundo bloque try-except).

Esto es con Indy10 y 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

Prueba esto:

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;