WinInet - соединение с и-нетом из под прокси [D3, Win95/98, Win2k]
Ваятель © (2004-09-21 11:15:00)
Привет!
Никак не могу разобрать как средствами WinInet выйти в
интернет находясь "за прокси", причем с аутентификацией, а после
закачать файл. Если без прокси, проблем нет, а вот с прокси (причем
с аутентификацией) чегой-то не получается.
В идеале, хорошо бы, чтобы программа подхватывала те
имя/пароль которые запомнил эксплорер, если таковые настройки
сохранены..
X (2004-09-28 16:54:00) [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;
Наверх 
ЧАТ |
Орешник |
|
