Subir archivo a internet con componente IdHTTP1

[marilinspi]

hola, ya he logrado subir todos mis archivos a internet son como 30... recorri mi carpeta 'prueba' y fui subiendo de a uno, mediante

var
  sr: TSearchRec;
  Directorio:String;
begin
  Directorio:='C:\prueba\';
  if idFTP1.Connected then
  begin
    if FindFirst(Directorio + '*', faAnyFile, sr) = 0 then
      repeat
        if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')and (sr.Name <> '..') then
          idFTP1.Put(Directorio + sr.Name, 'public_html/Descargas/pruebas/'+ sr.Name);  
      until FindNext(sr) <> 0;
    FindClose(sr);
    idFTP1.Disconnect;
    ShowMessage('Fichero subido.');
  end;
end;

ahora lo que necesito es bajar todos esos archivos...y lo que no se es como recorrer el directorio en la web para ir bajando de a uno. Gracias desde ya.

[marilinspi]

hola a todos, me surgio una duda que tengo que poner en idFTP1.Port:=? porque yo tenia 21 porque en un ejemplo estaba asi... pero en realidad que deberia poner? Gracias desde ya.

[cocute]

Empezado por marilinspi

hola a todos, me surgio una duda que tengo que poner en idFTP1.Port:=? porque yo tenia 21 porque en un ejemplo estaba asi... pero en realidad que deberia poner? Gracias desde ya.

para subir ficheros por FTP siempre se suele usar el puerto 21, vamos es el puerto por defecto, asi que dejalo ese mismo.

[razadi]

Hola que tal, pero si en verdad se necesita enviar por el componente IDHTTP comos e haría???

esto por los permisos de los usuarios que no les liberan el puerto de FTP pero si tiene Internet y por ahí como podríamos mandar los archivos????

[roman]

En este hilo puedes ver un par de ejemplos para subir archivos usando HTTP, uno usando Indy y el otro usando WinInet.

Pero el punto es que necesitas tener en el servidor un script que procese los datos POST que le mandas. Dicho script puedes hacerlo con PHP o algún otro lenguaje.

// Saludos

[razadi]

Gracias Roman, creo que lo me falta es el script que procese el archivo que estoy subiendo, en fin lo voy a hacer.

Nuevamente gracias y saludos