7 replies to this topic

[egostar]

Pues eso,

A ver si puedo hacerme entender.

Necesito descargar de un FTP todos los archivos contenidos en un FTP, pero en esa descarga se incluye directorios que no deseo descargar, estoy usando los componentes Indy en específico las funciones

delphi

idFTP.List(Lista, '*.*', false);
idFTP.GET(SourceName, DestName, true);

El problema que se me está presentando es que al intentar descragar un directorio se genera una excepción ya que no puede descargar el directorio, el punto es que yo solo quiero los archivos, los subdirectorios del FTP no los necesito.

La pregunta es, ¿no hay algo como la función findfirst para descartar los directorios y me regrese sólo archivos?

Algo así:

delphi

FindFirst(Archivos, faAnyFile-faDirectory, srRes);

Saludos

[enecumene]

¿Por qué no recorres el directorio del FTP y lo vas agregando a un stringlist?, algo como esto:

delphi

for I:= 0 to IdFTP1.DirectoryListing.Count-1 do
begin
   if not DescartarArchivo(idFTP1.DirectoryListing[i].FileName) then
      Lista1.Add(idFTP1.DirectoryListing[i].FileName);
end;

Donde DescartarArchivo() sería donde filtrarías el archivo que no quieres descargar, luego descargas on la lista:

delphi

idFTP1.Get(Lista1,DestName, true);

Algo así pues

Saludos.

[egostar]

¿Por qué no recorres el directorio del FTP y lo vas agregando a un stringlist?, algo como esto:

delphi

for I:= 0 to IdFTP1.DirectoryListing.Count-1 do
begin
   if not DescartarArchivo(idFTP1.DirectoryListing[i].FileName) then
      Lista1.Add(idFTP1.DirectoryListing[i].FileName);
end;

Donde DescartarArchivo() sería donde filtrarías el archivo que no quieres descargar, luego descargas on la lista:

delphi

idFTP1.Get(Lista1,DestName, true);

Algo así pues

Saludos.

Pues algo similar hago, solo que en la lista que obtengo se "mete" el puto subdirectorio y lo quiere tratar como archivo y pues no es así, necesito saber el atributo del archivo para determinar si es un directorio o es un archivo, ¿ me explico ?

Saludos

[enecumene]

Te referirás a los Directorios "." y ".."?

[egostar]

Te referirás a los Directorios "." y ".."?

El arbol es así:

directorio1
directorio2
directorio3
archivo1
archivo2
archivo3
archivo4
::::
archivoN

La función idFTP.list() me regresa la lista de directorios y archivos, lo que yo necesito es sólo obtener la lista de archivos.

Saludos

[seoane]

Hace tiempo que no trabajo con Indy, pero por aquí tengo algo de código de un proyecto antiguo que puede que te sirva:

delphi

procedure ftpFindFilesRec(RemoteFolder: String; Cliente: TIdFTP;
  Result: TStringList);
var
  i: Integer;
  Str: String;
  Temp: TStringList;
begin
  if (Copy(RemoteFolder,Length(RemoteFolder),1) <> '\') and
     (Copy(RemoteFolder,Length(RemoteFolder),1) <> '/') then
    RemoteFolder:= RemoteFolder + '/';
  Temp:= TStringList.Create;
  try
    Cliente.List(Temp,RemoteFolder,FALSE);
    for i:= 0 to Temp.Count - 1 do
    begin
      Str:= RemoteFolder + Temp[i];
      if Cliente.Size(Str) = -1 then
        ftpFindFilesRec(Str,Cliente,Result)
      else
        Result.Add(Str);
    end;
  finally
    Temp.Free;
  end;
end;
 
procedure ftpFindFiles(RemoteFolder, Server: String; Port: Word;
  Username, Password: String; Result: TStringList);
var
  Cliente: TIdFTP;
begin
  Result.Clear;
  try
    Cliente:= TIdFTP.Create(nil);
    try
 
 
        Cliente.Username:= Username;
        Cliente.Password:= Password;
        Cliente.Passive:= TRUE;
        Cliente.Connect(Server,Port);
        ftpFindFilesRec(RemoteFolder,Cliente,Result);
        Cliente.Disconnect;
    finally
      Cliente.Free;
    end;
  except
    On E: Exception do
      log('Exception: ' + E.Message);
  end;
end;

Básicamente es una búsqueda recursiva en un ftp.

Si te fijas diferencio un directorio de un fichero porque su tamaño es "-1", no se si en las versiones actuales de Indy sigue siendo igual. Pruebalo 

Saludos

[egostar]

Muchas gracias amigo seoane, ya lo pruebo y les comento como quedo el asunto

Saludos

[egostar]

Pues si funcionó Gracias amigo Seoane, usted siempre con la respuesta correcta.

Saludos