Indy 10, propiedad connected

[Punzo]

Buen día a todos, alguien me podría guiar acerca de como manejar una desconexión con componentes Indy, ya que al desconectar a propósito el equipo donde está corriendo mi aplicación, y preguntar si está conectado el cliente me devuelve un error, esto lo hago con un TIdTCPClient.

Código Delphi [-]
var
  IdTCPClient1: TIdTCPClient;

procedure validacion;
begin
  if Not(IdTCPClient1.Connected) then //al llegar aquí me manda el error 'Socket Error # 10054
                                                        //Connection reset by peer.'
    ..
end;

Muchas de antemano por su ayuda

[[ElKurgan]]

Hombre, parece claro que al estar desconectado el otro par, se produzca una excepción.

Lo más sencillo para seguir usando ese código sería hacer lo siguiente:

Código Delphi [-]
var
  IdTCPClient1: TIdTCPClient;

procedure validacion;
begin
  try
    if IdTCPClient1.Connected then 
    begin
      // lo que sea
    end;
  except  
    ShowMessage('No conectado');
    // y lo que sea...
  end;                                                       
end;

Un saludo

[Punzo]

Muchas gracias por la ayuda, lo solucione de la siguiente forma, para que no me eleve una excepción, utilice una clase interpuesta con la finalidad de redefinir el método Connected, y que este me regresara True o False, dependiendo, está solución la encontré gracias a la asesoría de Al González.

Código Delphi [-]

unit UGeneral;

interface

uses
  IdTCPClient, IdStack;

  type
    TIdTCPClient = Class (IdTCPClient.TIdTCPClient)
      function Connected :Boolean; Override;
    end;

implementation

  { TIdTCPClient }

function TIdTCPClient.Connected :Boolean;
begin
  try
    Result := Inherited Connected;
    except
      on EIdSocketError do
        Result := False;
  end;
end;

end.

Espero que a alguién más le sirva, saludos.

[[ElKurgan]]

OK, gracias por compartir

Saludos