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.

[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