Главная страница
    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.039 c
14-1101764522
Knight
2004-11-30 00:42
2004.12.26
Москвичи, кто слышал фамилию Трюховецкий?


3-1101219425
Skywalker
2004-11-23 17:17
2004.12.26
Как выбрать из базы определенной количество записей?


1-1102694816
Gear
2004-12-10 19:06
2004.12.26
Как перетащить форму мышью кликая на любой её области?


6-1097541468
Tatyana
2004-10-12 04:37
2004.12.26
webbrouser


8-1096480482
Riddler
2004-09-29 21:54
2004.12.26
Как проиграть midi файл





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский