API Internet

← →
kkostik (2003-12-17 11:01) [0]

Люди помоги никак разобраться не могу, пытаюсь авторизоваться на проксе, а прокся отпинывает. Делаю это так:
FSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PROXY,
PChar(FProxyName), nil, 0);
FConnect := InternetConnect(FSession, PChar(FHost), FPort,
PChar(FUserName), PChar(FPassword),INTERNET_SERVICE_HTTP, 0, 0)
Сессии открываются, вроде всё хорошо, но когды пытаюсь, что либо скачать, то получаю ошибочную стараницу прокси!
Ктото это делал?
Все объекты Delphi тоже не работаю по этому поводу!

← →
gedd © (2003-12-22 15:06) [1]

Ага присоединяюсь к вопросу, тоже пробовал и ошибка аналогичная.

← →
S@shka © (2003-12-22 15:10) [2]

Так может прокся не поддерживает метод COnnect&?

← →
RomanL (2003-12-22 17:49) [3]

1. Надо изменить свойства запроса, указав имя и пароль для прокси
InternetSetOption (hRequest, INTERNET_OPTION_PROXY_USERNAME, PChar (FTProxyUserName), Length (FTProxyUserName)+1); InternetSetOption (hRequest, INTERNET_OPTION_PROXY_PASSWORD, PChar (FTProxyPassword), Length (FTProxyPassword)+1);
2. Если прокси использует не Basic-аутентификацию, то надо изменить Header запроса след. образом:
HttpHeader := "Proxy-Connection: Keep-Alive"#13#10; HttpAddRequestHeaders (hRequest, PChar (HttpHeader), Length (HttpHeader), HTTP_ADDREQ_FLAG_REPLACE or HTTP_ADDREQ_FLAG_ADD);

API Internet Найти похожие ветки