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.