Как правильно написать функцию загрузки файлов из интернета..?

[Человек_Борща]

Доброго времени суток!

Пишу приложение сервис. Сервис обновляет файлы на ПК.

А т.к. это сервис, нужно чтобы он работал как надо.

Как правильно написать функцию загрузки файлов по http с проверкой, есть ли интернет и установлено ли соедениние?

Я пока что, это сделал вот так:

Function DownloadFile(aURL, SaveTo: string): boolean;
var
  http: TIdHTTP; // качало
  st: TMemoryStream; // приём-поток
begin
  http := TIdHTTP.Create(nil);
  http.ProtocolVersion:=pv1_1;
  http.HandleRedirects:=true;
  st := TMemoryStream.Create;
  try
    http.Get(aURL, st); // получаем
    If st.Size > 0 then
    begin
      st.SaveToFile(SaveTo);
      if FileExists(SaveTo) then
        Result := True
      else
        Result := False;
    end
    else
      Result := False;
  finally
    FreeAndNil(st);
    FreeAndNil(http);
  end;
end;

Как проверить, что нужный мне http сервер жив?

Если сервер прибит, то вылетает Socket Error connection refused.
Но ещё может вылететь что Connection reset by peer.

Кк избегать подобного?

[Аватар]

Почему бы try ... except не использовать?

[Человек_Борща]

Вариант Вечно все куда проще чем я представляю...

Function DownloadFile(aURL, SaveTo: string): boolean;
var
  http: TIdHTTP; // качало
  st: TMemoryStream; // приём-поток
begin
  http := TIdHTTP.Create(nil);
  http.ProtocolVersion := pv1_1;
  http.HandleRedirects := True;
  st := TMemoryStream.Create;
  try
    try
      http.Get(aURL, st); // получаем
    except
      Result := False;
    end;

    If st.Size > 0 then
    begin
      st.SaveToFile(SaveTo);
      if FileExists(SaveTo) then
        Result := True
      else
        Result := False;
    end
    else
      Result := False;
    /// сохраняем
  finally
    FreeAndNil(st);
    FreeAndNil(http);
  end;
end;

[Аватар]

st.SaveToFile(SaveTo); тоже может аварию вызвать, а если нормально завершилось то FileExists излишне

[Человек_Борща]

аварии не будет. т.к. поток сначало сохр. данные в файл. И только том уже проверка на наличие файла.

[Аватар]

Сообщение от Человек_Борща

аварии не будет. т.к. поток сначало сохр. данные в файл. И только том уже проверка на наличие файла.

Любое сохранение файла на диск может вызвать критическую ошибку, причина которой может быть в отсутствии полномочий на запись, отсутствии места на диске, сбойная дорожка, существование открытого файла с таким же именем в том же каталоге. А если уж SaveToFile отработал без ошибки, то проверка на существование - масло маслянное