Subir archivo a internet con componente IdHTTP1

[marilinspi]

hola a todos necesitaria saber como hacer para subir un archivoa internet con el componente IdHTTP1.

para conectarme hice lo siguiente

  IdHTTP1.Host :='Host';
  IdHTTP1.Port := 21;
  IdHTTP1.ReadTimeout := 5000;
  IdHTTP1.Request.Username := 'Nombre usuario';
  IdHTTP1.Request.Password := 'contraseña';
  try
    IdHTTP1.Connect;
  except
    ShowMessage('No se conecto');
  end;

y por lo que parece se conecta...pero ahora no se como hacer para subir. Les agradeceria si me dan una mano... Desde ya muchas gracias.

[cocute]

para subir ficheros necesitas mejor el idFTP no el IdHTTP,

Aqui tienes un ejemplo,
pon en el form un idFTP, dos botones y un OpenDialog1.

Yo lo he probado y funciona, estaría mejor con una barra de progreso y hacer comprobaciones y demás, pero funcionar funciona.

Código Delphi [-]

procedure TForm1.btnConnectClick(Sender: TObject);
begin
idFTP1.Host := 'HOST';
idFTP1.Port := 21;
idFTP1.Username := 'USER';
idFTP1.Password := 'PASSWORD';
idFTP1.Connect;
ShowMessage('Conectado con el servidor.');
end;

procedure TForm1.btnUploadClick(Sender: TObject);
begin
 if idFTP1.Connected then
  begin
   if OpenDialog1.Execute then
    begin
      idFTP1.Put(OpenDialog1.FileName, ExtractFileName(OpenDialog1.FileName));
      idFTP1.Disconnect;
      ShowMessage('Fichero subido.');
    end;
  end;
end;

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