Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
ВнизКак авторизоваться на прокси? Найти похожие ветки
← →
Григорьев Антон © (2004-10-14 16:55) [0]Есть программа, читающая страницу с помощью Internet API. Пока я выходил в интернет через прокси, не требующий авторизации, программа нормально работала при указании в функции InternetOpen типа доступа INTERNET_OPEN_TYPE_PRECONFIG. Теперь у нас новый прокси, он требует авторизации. Программа перестала работать с любым типом доступа. Аська стала работать с новым прокси после того, как я задал там имя пользователя и пароль, который используется для авторизации на прокси. А как задать имя и пароль из своей программы? Или как прописать их в реестре, чтобы работал тип доступа INTERNET_OPEN_TYPE_PRECONFIG?
← →
Rouse_ © (2004-10-14 17:59) [1]INTERNET_OPEN_TYPE_PROXY?
← →
Григорьев Антон © (2004-10-14 18:02) [2]
> Rouse_ © (14.10.04 17:59) [1]
Не получается. И никак не пойму, куда писать логин и пароль для авторизации.
← →
Rouse_ © (2004-10-14 18:03) [3]InternetConnect
← →
PEAKTOP © (2004-10-15 00:18) [4]
var
IsProxy :Boolean;
Proxy :string;
const
AppTitle:string = "Microsoft Internet Explorer";
IsProxy := RegGetDWord(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyEnable")=1;
if IsProxy then
begin
Proxy := RegGetStr(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer");
hInet := InternetOpen(@AppTitle[1], 3, @Proxy[1], nil, 0)
end
else
hInet := InternetOpen(@AppTitle[1], 0, nil, nil, 0);
if(hInet<>NIL) then
begin
....Что-то делаем ....
InternetCloseHandle(hInet);
end;
В примере условно считаем, что определены функции RegGetDWord и RegGetString, читающие из реестра DWord и String соответственно.
← →
PEAKTOP © (2004-10-15 00:26) [5]А вот с авторизацией:
hInet := InternetOpen("Mozilla", 3, "192.168.0.1", nil, 0)
if(hInet<>NIL) then
begin
hInet2 := InternetConnect(hInet, "192.168.0.1", 3128 {Proxy-port = 3128}, "username", "password", 3 {HTTP}, 0, 0);
if(hInet2=NIL)then
begin
.. Do something ...
InternetCloseHandle(hInet2);
end;
InternetCloseHandle(hInet);
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c