WinInet Файл скачан полностью?

[Halogen]

Добрый час, суть вопроса в заголовке, как можно узнать скачан файл полностью или же закачка была прервана или с ошибкой?
Качаю так

function GetInetFile(const fileURL, FileName: string): boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: file;
  sAppName: string;
begin
  Result := False;
  sAppName := ExtractFileName(Application.ExeName);
  hSession := InternetOpen(PChar(sAppName),
  INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
    try
      AssignFile(f, FileName);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until
        BufferLen = 0;
      CloseFile(f);
      Result := True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

[Stilet]

В статье http://procoder.info/index.php/entry/html-naraspashku/ я привожу пример с обработкой ошибок закачки. Можешь им воспользоваться для правки своей программы.

[саша40]

поставить expert после кода в try.
Если Expert сработало значит произошла ошибка.

[Stilet]

поставить expert после кода в try.
Если Expert сработало значит произошла ошибка.

Да? Только тут есть одна нисрастуха - эти Win API (Вообще-то почти все Винапи) через try...except не ловятся. Поэтому нужно анализировать что возвращают функции. Так что ты не прав.

[Halogen]

Stilet, спасибо за статью очень познавательно, нашел пример хороший, если поковырять чутка будет то что нужно, всем спасибо можно закрывать

[саша40]

Сообщение от Stilet

Да? Только тут есть одна нисрастуха - эти Win API (Вообще-то почти все Винапи) через try...except не ловятся. Поэтому нужно анализировать что возвращают функции. Так что ты не прав.

Интересно почему? Должны по идее ловится.

[Stilet]

Интересно почему?

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

if a call to InternetReadFile does not result in a completed transaction, it will return FALSE and a subsequent call to GetLastError will return ERROR_IO_PENDING. When the transaction is completed the InternetStatusCallback specified in a previous call to InternetSetStatusCallback will be called with INTERNET_STATUS_REQUEST_COMPLETE.

У винды своя система отлова ошибок. Впрочем не только у винды. Эксепшн не для таких ошибок предназначены.