Si, he cambiado el código que tenía por este:
Código Delphi
[-]var
FTP: TIdFTP;
Lista: TStringList;
i : Integer;
begin
FTP := TIdFTP.Create(nil);
FTP.Username := '***';
FTP.Password := '***';
FTP.Host := '***';
try
FTP.Connect;
except
raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
end;
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
try
for i := 0 to Lista.Count - 1 do
begin
if FileExists('K:\descarga\' + Lista.Strings[i]) then
DeleteFile('K:\descarga\' + Lista.Strings[i]);
FTP.Get(Lista.Strings[i], 'K:\descarga\' + Lista.Strings[i], true);
end;
finally
FTP.Disconnect;
FTP.Free;
Lista.Free;
end;
En mi ftp tengo archivos que inician con la letra A y son extension .txt , al momento de ejecutar obtengo esta ventana
El archivo que me descarga está vacío y es el siguiente
Debo de tener instalado Servidor FTP FileZilla Server?