comprobar conexion ftp exitosa...

[TOPX]

Hola,

Puede evaluar la propiedad Connected del TIdFtp.

[Greco]

Empezado por TOPX

Hola,

Puede evaluar la propiedad Connected del TIdFtp.

Hola TOPX, gracias por responder.
Intente evaluar con un IF pero no me resultó, algo debo haber hecho mal.

Código Delphi [-]
...
       if (clienteFtp.Connected) then
  showmessage('Conexion correcta');
 else
 showmessage('Error al conectar');
end;
...

Debe ser por que está mal planteada la sentencia.

Saludos

[TOPX]

Lo único malo que ví en su código fue que sobraría el end;, pero igual, podría ser:

Código Delphi [-]
  with TIdFTP.Create(nil) do
  begin
    try
      Username := 'nombre_de_usuario';
      Password := 'contraseña';
      Host := 'ftp.servidor.com';
      Connect; 
      if Connected then
      begin
        ShowMessage('Conexión exitosa.');
        Disconnect;
      end
      else
      begin
        ShowMessage('Conexión fallida.');
      end;
    finally
     Free;
    end;
  end;