Ver Mensaje Individual
  #2  
Antiguo 03-07-2007
phrodo phrodo is offline
Miembro
 
Registrado: sep 2004
Posts: 17
Reputación: 0
phrodo Va por buen camino
¿por que no pruebas con el componente IDHttp de las Indy?

Es muy facil con ese componente bajar cualquier fichero desde tu propia aplicación

Este codigo lo utilizo yo en una aplicación mia. Espero que te sirva. Yo lo importé de un colega del foro, y funcionó a la perfección. La direccion URL de descarga la tienes que cambiar por la direccion del fichero que quieras descargar.

Código Delphi [-]

 resourcestring

  rsFinDescarga = 'Fin de la descarga';
  rsProgresoDes = 'Progreso descarga %d / %d KB';
  rsUrlDescarga = 'http://www.tudireccion.com/tuarchivo.rar';

procedure TFPpal.btnDescargaClick(Sender: TObject);
begin
  btnDescarga.Enabled := false;
  try
    IdHTTP.Get(rsUrlDescarga);
  finally
    btnDescarga.Enabled := true;
  end;
  ShowMessage(rsFinDescarga);
end;

procedure TfrmPrincipal.IdHTTPWorkBegin(Sender: TObject;
 AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  FTotalBytes := AWorkCountMax;
  bProgreso.Max := AWorkCountMax;
  gProgreso.MaxValue := AWorkCountMax;
end;

procedure TfrmPrincipal.IdHTTPWork(Sender: TObject;
 AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  Application.ProcessMessages();
  gProgreso.Progress := AWorkCount;
  bProgreso.Position := AWorkCount;

  lbProgresoDescarga.Caption := Format
   (rsProgresoDes, [AWorkCount div 1024,
    FTotalBytes div 1024]);
end;

procedure TfrmPrincipal.IdHTTPWorkEnd(Sender: TObject;
 AWorkMode: TWorkMode);
begin
  gProgreso.Progress := 0;
  bProgreso.Position := 0;

  lbProgresoDescarga.Caption :=
   Format(rsProgresoDes, [0,0]);
end;


espero que te sirva. Un saludo.
Responder Con Cita