he probado con esto:
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
ShowMessage('El servidor esta offline');
Free;
end;
end;
end;
pero cuando el servidor está offline me salen dos mensajes emergentes:
1º el que he puesto yo: "El servidor esta offline"
cuando cierro el 1º me sale este:
2º el "The specified file was not found"
como quito el 2º?
se que la excepción es ERROR_FILE_NOT_FOUND pero no estoy familiarizado con el uso de excepciones, poco a poco lo voy pillando viendo ejemplos