he probado esto que creia que era lo correcto pero no funciona, no me detecta la excepcion me salta el mensaje que me salia a la primera de "Error downloading URL: http://www.web.com/fichero.txt" en vez del que pongo
Código Delphi
[-]procedure TForm1.descargarURL ( const direccionURL, ficheroLocal : string);
begin
if direccionURL <> '' then
begin
with TDownloadURL.Create(self) do
try
URL := direccionURL;
FileName := ficheroLocal;
OnDownloadProgress := URL_OnDownloadProgress;
ExecuteTarget(nil);
except
on e : EFileNotFoundException do
begin
ShowMessage('El servidor esta offline');
Free;
end;
end;
end;
end;