Скачать: CL | DM;

WinInet - соединение с и-нетом из под прокси   Найти похожие ветки 

← →
Ваятель   (2004-09-21 11:15) [0]

Привет!

Никак не могу разобрать как средствами WinInet выйти в интернет находясь "за прокси", причем с аутентификацией, а после закачать файл. Если без прокси, проблем нет, а вот с прокси (причем с аутентификацией) чегой-то не получается.

В идеале, хорошо бы, чтобы программа подхватывала те имя/пароль которые запомнил эксплорер, если таковые настройки сохранены..

---

← →
X   (2004-09-28 16:54) [1]

const
 BufferSize = 1024;
var
 HInt, HCon, HReq: HInternet;
 bSend, bRead: boolean;
 Buffer: array[1..BufferSize] of Byte;
 BufferLen: DWORD;
 f: file;
begin
INTERNET_OPEN_TYPE_PROXY, "proxy1:2418", nil, 0);
 HInt:=InternetOpen("Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)", INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 HCon:=InternetConnect(HInt, "mail.ru", INTERNET_DEFAULT_HTTP_PORT, PChar(User.Text), PChar(Password.Text), INTERNET_SERVICE_HTTP, 0, 0);
 HReq:=HttpOpenRequest(HCon, "GET", PChar("/send/info.dsp?"), nil, nil, nil, {INTERNET_FLAG_KEEP_CONNECTION or }INTERNET_FLAG_RELOAD, 0);
 bSend:=HttpSendRequest(HReq, "", 0, nil, 0);
 AssignFile(f, "inf_"+Edit1.Text+".htm");
 Rewrite(f,1);
 repeat
   bRead:=InternetReadFile(HReq, @Buffer, SizeOf(Buffer), BufferLen);
   BlockWrite(f, Buffer, BufferLen);
 until BufferLen = 0;
 CloseFile(f);
 InternetCloseHandle(HReq);
 InternetCloseHandle(HCon);
 InternetCloseHandle(HInt);
 ShowMessage("Ok");
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c