|
#1
|
||||
|
||||
Загрузка
Привет всем. Мой вопрос короткий но очень для меня сложный ,может он покажесься кому то простым . Вот что: помогите мне скачать файл с нета ,желательно с небольшими пояснениями .ну и все . За помощь буду очень доволен .заранее спасибо огромное !
|
#2
|
||||
|
||||
Мой совет тебе - используй библиотеку WinInet. Подключи ее в uses "wininet" там ты найдешь, все для скачки файла с Инета.
Пример скачивания файла с Инета. Код:
uses Wininet; 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; Последний раз редактировалось moo2k, 18.09.2007 в 11:57. |