Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Как авторизоваться на прокси?   Найти похожие ветки 

 
Григорьев Антон ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.041 c
14-1102056262
Leha
2004-12-03 09:44
2004.12.26
Копирование таблеток


8-1096140394
hgd
2004-09-25 23:26
2004.12.26
Как быстрее всего вывести на Image Bitmap?


1-1102494926
max2222
2004-12-08 11:35
2004.12.26
Невидимый процесс в консоли


1-1102677713
VAV
2004-12-10 14:21
2004.12.26
Конвертация HTML файла


3-1101462359
Chery
2004-11-26 12:45
2004.12.26
Синтаксис SQL: MySQL - драйвер ODBC 03.51.05 - Midas (delphi)