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;

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