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.