Hola, estoy creando una pequeña aplicacion que dentro de sus caracteristicas contiene la opcion de enviar un archivo a un servidor por FTP, para lo cual tengo unos cuantos EDTIT para ingresar los datos del servidor, host, usuario, pass y luego guardarlos en el registro de windows.
Lo que quiero es incluir un boton para testear la conexion al servidor para saber si los datos ingresados son correctos o hay algun error.
Como podría obtener el estado de conexion al servidor??
Utilizo el IdFtp de las Indy y este es el codigo que tengo para conectar y subir el archivo.
Código Delphi
[-]var
clienteFtp: TIdFTP;
begin
clienteFtp := TIdFTP.Create(Self);
try
with clienteFtp do
begin
Username := 'nombre_de_usuario';
Password := 'contraseña';
Host := 'ftp.servidor.com';
Connect; SendCmd('MKD nuevo_directorio');
SendCmd('CWD nuevo_directorio');
Put('C:\file.txt', 'file.txt');
Disconnect; end;
finally
clienteFtp.Free;
end;
Ese es el codigo para conectar y subir el archivo al servidor, pero me interesa primero testear la conexion mediante algun boton, si tuvo exito la conexion entonces me desplegue un mensaje mediante un showmessage().
En resumen... como puedo verificar que la conexion al ftp fue exitosa??
Saludos