Ver Mensaje Individual
  #2  
Antiguo 26-11-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.108
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,


Cita:
Empezado por rob1
(...) lo pregunto porq no aparece Enombredelerror.
Lo siento, pero, no es así en mi caso. Utilizando el componente que mencionas, si trato de conectar con un Servidor con una contraseña errónea (adrede) obtengo una excepción de tipo "EIdProtocolReplyError", con el mensaje "Login incorrect".

Quiere decirse que lo que tienes que hacer es tratar las posibles excepciones dentro de los correspondientes bloques "try..except". Voy a ponerte un ejemplo:

Código Delphi [-]
uses
  IdException;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP.Host := 'ftp.servidor.es';
  IdFTP.Username := 'usuario';
  IdFTP.Password := 'contrasena';
  try
    IdFTP.Connect();
  except
    on E: EIdProtocolReplyError do
    begin
      ShowMessage('Comprueba el nombre de usuario y contraseña');
    end;
    on E: Exception do
    begin
      ShowMessage('Error al tratar de conectar con el servidor FTP');
    end;
  end;
end;
Nota que se hace uso de la unidad "IdException", y que, en dicha unidad, encontrarás no pocas excepciones relacionadas con los componentes a que estamos refiriéndonos.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita