Descargar solo txt FTP

[ronald_tro]

Nombre destino estaría entre comillas?

[ronald_tro]

Puse asi:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\', true);
end;

Me marca que no encuentra el destino

[[egostar]]

Empezado por ronald_tro

Puse asi:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\', true);
end;

Me marca que no encuentra el destino

Hola

Necesitas el nombre del archivo

Código Delphi [-]
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);

Saludos

[ronald_tro]

Codigo completo:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);
end;

Me arroja la siguiente pantalla:

[[egostar]]

Pues eso me parece que está obteniendo también la estructura de directorios, habrá que validar que exista un nombre de archivo antes de descargarlo.

Saludos

[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...estoy haciendo una aplicación que permite descargar archivos con FTP...

Revisa esta información:

Descargando archivos por FTP con INDY

Subiendo archivos por FTP con INDY

Espero sea útil

Nelson.

[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...estoy haciendo una aplicación que permite descargar archivos con FTP...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   FTP: TIdFTP;
   Lista: TStringList;
   i : Integer;

begin

   FTP := TIdFTP.Create(nil);
   FTP.Username := txtUsername.Text;
   FTP.Password := txtPassword.Text;
   FTP.Host := txtHost.Text;

   try
      FTP.Connect;
   except
      raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
   end;

   FTP.ChangeDir('/');

   Lista := TStringList.create;
   FTP.List(Lista,'Text*.txt',false);

   try

      for i := 0 to Lista.Count - 1 do
      begin
         if FileExists('C:\FTPServerBackup\' + Lista.Strings[i]) then
            DeleteFile('C:\FTPServerBackup\' + Lista.Strings[i]);
         FTP.Get(Lista.Strings[i], 'C:\FTPServerBackup\' + Lista.Strings[i], true);
      end;

   finally

      FTP.Disconnect;
      FTP.Free;
      Lista.Free;

   end;

end;

El código anterior en Delphi 7 y Indy 9 bajo Windows 7 Professional x32, permite hacer un FTP Get a todos los archivos 'Text*.txt' del directorio home del servidor FTP y descargarlos en el directorio 'C:\FTPServerBackup\' con el mismo nombre de archivo.

Espero sea útil

Nelson.