Descargar archivos de FTP
 

Buenos días chicos,

Tengo un problemilla, he estado buscando en el foro pero no me funciona bien, o no lo consigo.
Tengo un FTP que tengo que consultar y descargarme los ficheros que haya pero no se el nombre de los ficheros.
Es decir, me conecto y tengo que descargar lo que haya.

Código Delphi [-]
var
   StringList: TStringList;
r: integer;
begin

    StringList:= TStringList.Create;

    FTP.Connect;
    FTP.ChangeDir('/midirectorio');
    FTP.List(StringList, '', True);
       for r := 0 to StringList.count-1 do begin
          FTP.get(StringList[r],ExtractFilePath(Application.ExeName)+'\',True);
        end;

end.

Mas o menos, lo he escrito a mano ahora. El problema es que al llegar el FTP.List, me tira un error, me dice que no puede entontrar el directorio y me muestra el directorio de mi ejecutable.
Yo lo que quiero es poder guardar los nombres de los ficheros para luego descargarlos y borrarlos.

No se qué me falla porque en todos los ejemplos que encuentro lo veo así.

Gracias!!

Un saludo

Prueba a usar el ChangeDir sólo con el nombre del directorio sin la barra.
Y también asegúrate de que estás justo en el directorio antes de "midirectorio".
Revisa también que midirectorio está creado de igual forma (teniendo en cuenta mayúsculas y minúsculas).

Hola Neftali,
Gracias por responder.
El directorio está igual creado.
Si yo hago el changedir y luego mando un fichero con el put, me lo sube bien al FTP. Es al hacer el list, no sé qué pasa, porque además, la ruta que pone que no me encuentra es una ruta local, donde tengo el ejecutable, no es una ruta del FTP.
Porque no hay otra forma de descargarme todos los txt que haya en ese momento en ese directorio del FTP verdad?

hola a todos!!

al hacer el list, para obtener el listado de ficheros, dependiendo del parámetro true/false que le pongas, obtienes solo el nombre de los ficheros/directorios u obtienes un listado mas completo de pares de valores, separados por comas con las características del fichero (tamaño, permisos, propietario, etc).
Si tienes certeza que en la ruta no contiene subdirectorios usando el parámetro false seria suficiente, pero si ya tienes subdirectorios entonces tienes que usar si o si el LIST con el parámetro a true.

Aquí te dejo este código de ejemplo que te puede ayudar

Código Delphi [-]
  function ExtractFTPFiles(FTPList: TStrings): TArray<string>;
  var
    fileInfo: string;
    ParseInfo: TStringList;
  begin
    try
      result := [];
      ParseInfo := TStringList.Create;
      ParseInfo.Delimiter := ';';
      //recorre todos los ficheros de la lista
      for fileInfo in FTPList do begin
        ParseInfo.DelimitedText := fileInfo;
        if ParseInfo.Values['type'] = 'file' then
          result := result + [ParseInfo.Strings[ParseInfo.Count - 1]];
      end;
    finally
      ParseInfo.free;
    end;
  end;

var
  StringList: TStringList;
  files: TArray<string>;
  rutaActual, rutaFTP: string;
  fileName: string;
begin
  rutaFTP := 'midirectorio';

  StringList := TStringList.Create;
  try
    FTP.Connect;
    // Obtiene la ruta actual
    rutaActual := FTP.RetrieveCurrentDir;
    // con el parametro false, obtiene una lista simple de los nombre de ficheros y directorios
    // con este tipo de lista no se puede saber lo que es un fichero o un directorio
    FTP.List(StringList, '', false);
    if (rutaActual <> rutaFTP) then
      if (StringList.IndexOf(rutaFTP) < 0) then
        raise Exception.Create('la ruta buscada no existe')
      else
        ftp.changeDir(rutaFTP);

    /// con el parametro true, La informacion sobre los ficheros y directorios
    /// esta detallada en formato pares de valores separados por comas,
    /// por lo que hay que hacer un procesado de dicha informacion
    FTP.List(StringList, '', true);
    files := ExtractFTPFiles(StringList);
    for fileName in files do begin
      /// ... aqui va el proceseo de descarga ...
      Memo1.Lines.Add(fileName);
    end;
  finally
    StringList.Free;
  end;

Genial, con eso ya lo conseguí.

Muchas gracias a los 2.

Por favor, lee nuestra guía de estilo, ¿cómo preguntas eso en un hilo que no tiene nada que ver? :confused:
Saludos.

Perdonar

Efectivamente me he confundido de foro.

No pasa nada, sólo que aquí nadie te iba a contestar porque no van a ver el mensaje.
Saludos.