Ver Mensaje Individual
  #4  
Antiguo 03-07-2007
fmatias fmatias is offline
Miembro
 
Registrado: jun 2003
Posts: 25
Reputación: 0
fmatias Va por buen camino
Resuelto

Bueno, ya he corregido el procedimiento para que se guarde el fichero en local en la dirección indicada.

El procedimiento que me indicó prhodo fue el siguiente:
Código Delphi [-]
procedure TFPpal.btnDescargaClick(Sender: TObject);
begin
  btnDescarga.Enabled := false;
  try
    IdHTTP.Get(rsUrlDescarga);
  finally
    btnDescarga.Enabled := true;
  end;
  ShowMessage(rsFinDescarga);
end;

Para que guarde el fichero lo he modificado de la siguiente forma, añadiendo la variable Destino y modificando la función IdHttp.get

Código Delphi [-]
procedure TForm1.btndescargaClick(Sender: TObject);
var
Destino: TFileStream;
begin
  btnDescarga.Enabled := false;
  Destino:=TFileStream.Create('c:\destino.zip', fmCreate);

  try
    IdHTTP.Get(ecarga.Text,destino);
  finally
    btnDescarga.Enabled := true;
    destino.free;
  end;
  ShowMessage(rsFinDescarga);

end;

Muchas gracias a prhodo por su colaboración, me ha ahorrado bastante tiempo de trabajo.

Saludos a todos.
Responder Con Cita