Descargar solo txt FTP

[ronald_tro]

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;
   //FTP.ChangeDir('/');

   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?

[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...Si, he cambiado el código que tenía por este (Msg #9)...

Pregunto:

1- ¿Haz hecho un debug para ver el funcionamiento del código y ver si efectivamente se conecta al servidor FTP y si se obtiene la lista de los archivos 'A*.txt'?

2- ¿Haz hecho un FTP manual (Vía cmd) para verificar la conexión al servidor y la accesibilidad de los archivos requeridos?

Espero sea útil

Nelson.

[ronald_tro]

Bueno lo he resuelto pero de diferente forma, hice una función como esta

Código Delphi [-]
function download(texto : string): Integer;
var
  valor: Integer;
begin
    valor:= 0;
    if (Copy(texto, 1, 1) = 'm') and (Copy(texto, Length(texto) - 2, 3) = 'txt') then
    begin
        valor:= 1
    end;
    Result := valor;
end;

Después lo que hice es esto, en el botón de descargar

Código Delphi [-]
var
I: integer;
Lista : tStringList;
begin
 for i:= 0 to FTP.DirectoryListing.Count-1 do
begin

    if download(FTP.DirectoryListing[i].FileName) = 1 then
            begin
                  FTP.Get(FTP.DirectoryListing[i].FileName, 'C:\descargas\' + FTP.DirectoryListing[i].FileName );
                     end;


    end;


end;

Y listo, funciona, aunque no encontré de la otra forma, espero que a alguien le sirva

[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...lo he resuelto pero de diferente forma...

Pregunto: ¿Que versión de Delphi e Indy utilizas?.

Nelson.

[ronald_tro]

Empezado por nlsgarcia

ronald_tro,




Pregunto: ¿Que versión de Delphi e Indy utilizas?.

Nelson.

Delphi 2009, la version de Indy la que trae el mismo Delphi

[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...Delphi 2009, la version de Indy la que trae el mismo Delphi...

Te comento que probé el código del Msg #9 en Delphi 7 y Delphi 2010 y funciono correctamente según lo esperado.

Espero sea útil

Nelson.

[ronald_tro]

Empezado por nlsgarcia

ronald_tro,


Te comento que probé el código del Msg #9 en Delphi 7 y Delphi 2010 y funciono correctamente según lo esperado.

Espero sea útil

Nelson.

Lo probaré en 2010 y comento, gracias