Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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
14-1102416695
vajo
2004-12-07 13:51
2004.12.26
12 декабря - Праздник? Т.Е. 13 декабря - Выходной?


3-1101890148
Iova
2004-12-01 11:35
2004.12.26
Можно выполнять системные запросы в Query


14-1102311556
Чеширский Кот из Гондураса
2004-12-06 08:39
2004.12.26
Позвольте представиться


1-1102785933
vvvaaa
2004-12-11 20:25
2004.12.26
Промотка панели


1-1101979607
stud
2004-12-02 12:26
2004.12.26
array [] of tstrings;





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский