[In0stRAnez]

Собственно вот функция которая даёт возможность скачать файл из интернета, проблема в том что я не знаю как правильно вставить сюда обработчик ошибок... дело в том что вылетает ошибочка и убивается приложение если я пытаюсь скачать файлик с инета а сетевые подключения отключены...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

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 try   Result:=False;   sAppName := ExtractFileName(Application.ExeName);   hSession := InternetOpen(PChar(sAppName),   INTERNET_OPEN_TYPE_PRECONFIG,   nil, nil, 0);   hURL := InternetOpenURL(hSession,   PChar(fileURL),   nil,0,0,0);     try      AssignFile(f, FileName);      Rewrite(f,1);        repeat          InternetReadFile(hURL, @Buffer,          SizeOf(Buffer), BufferLen); <font color="Red">         BlockWrite(f, Buffer, BufferLen)</font>        until BufferLen = 0;              CloseFile(f);              Result:=True;         finally              InternetCloseHandle(hURL)       end       finally              InternetCloseHandle(hSession) end; end;   function GetWindowsFolder:string; var p:PChar; begin GetMem(p, MAX_PATH); result:=''; if GetWindowsDirectory(p, MAX_PATH)>0 then   result:=string(p); FreeMem(p); end;