Subir archivo a internet con componente IdHTTP1

[cocute]

aqui te subo un ejemplo con barra de progreso e info de conexión:

http://www.terawiki.clubdelphi.com/a...HostPorFTP.zip

[marilinspi]

hola muchas gracias por tu pronta respuesta. Hago todo como me decis, se conecta bien, pero cuando llega a linea de subir el archivo me da este error 'Illegal PORT command'. y no tengo idea de que puede ser... desde ya muchas gracias.

[marilinspi]

al componente idftp1 en su propiedad Passive ponerla a TRUE. Gracias

[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????