Скачать файлы из Интернета

← →
Novichok_new © (2007-02-16 08:49) [0]

Наверняка этот вопрос часто задавался, но, стыдно признаться, я даже не знаю – как сформулировать запрос в поисковике, чтобы найти ответ на вопрос:
На сайте в каталоге: «http://www.sayt.ru/katalog/» периодически выкладываются нужные мне файлы. Для доступа к этому каталогу требуется войти с определённым логином и паролем. Мне необходимо проверить – есть ли доступ в Интернет на данной машине, и, соответственно, скачать файлы. Что мне нужно искать? (функции, процедуры)

← →
megabyte © (2007-02-16 09:43) [1]

Рюхать протоколы HTTP и/или FTP. Можно юзать компоненты Indy.

← →
Elen © (2007-02-16 09:56) [2]

> Novichok_new © (16.02.07 08:49)

... или еще через winsock.

← →
Elen © (2007-02-16 09:57) [3]

> Elen © (16.02.07 09:56) [2]

Ой ошибочка - через WinInet, хотела сказать :)

← →
Novichok_New © (2007-02-16 12:17) [4]

Спасибо! , нашёл:
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;
Но как быть с логином и паролем?

← →
novill © (2007-02-16 12:52) [5]

> [4] Novichok_New © (16.02.07 12:17)

А как он хранится?

Если это http, можно отправь логин и пароль в http запросе.

мсдн HttpSendRequest может поможет...

Скачать файлы из Интернета Найти похожие ветки