Descarga FTP

[[Bicho]]

Hola nuevamente Luis Alberto,

puedes usar el componente IdFTP. Tiene una propiedad llamada list a la que le puedes pasar por parámetro una máscara con la extensión que tu quieras para que te filtre los ficheros de dentro del directorio.
Un ejemplo será más claro.

Código Delphi [-]
function FTP;
Var StringList : tStringList;
    r : Integer;
begin
     IdFTP1.host := Host;
     IdFTP1.User := User;
     IdFTP1.Password := Password;
     try
        IdFTP1.connect;
        IdFTP1.changedir(dir);
     except
     end;

     IdFTP1.List(StringList, '*.txt', False);
     for r := 0 to StringList.count-1 do begin
          lista.Items.add(StringList[r]);
     end;
      IdFTP1.disconnect;
      StringList.Free;
end;

Espero te sirva de ayuda

Saludos

[Luis Alberto]

Los filtro pero despues los descargo normal o como, ademas manejo el FTP con WinInet..

[[Bicho]]

A que te refieres con descarga normal o como?
Cuando hemos filtrado los ficheros por su extensión, hemos insertado los nombres de los ficheros obtenidos dentro de una lista.
Lo único que queda hacer ahora es recorrer esa lista y para cada nombre que haya en ella hacer un Get para descargar el fichero
algo así como

Código Delphi [-]
IdFTP1.get(ArchivoDeLaLista,RutaDestinoDondeLoQuieresGuardar,True);

No conozco el componente Wininet o ahora mismo no recuerdo haberlo usado, de todos modos funcionan igual prácticamente todos los componentes de FTP.

Saludos

[Luis Alberto]

Gracias a todos su ayuda me sirvio mucho gracias...

[Luis Alberto]

Me surgio una duda para hacer lo contrario en vez de bajar todo lo que este en la carpeta que debo de hacer para subir todo lo que este en una carpeta local al ftp y la ruta que tengo?

[[Bicho]]

Pues en lugar de usar la función Get usas la función Put

Dale un vistazo a la ayuda de Delphi referente al Put y a Get.

Saludos

[Luis Alberto]

Me podrias explicar por que no sale, gracias de antemano