Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.01.18;
Скачать: [xml.tar.bz2];

Вниз

Поддержка Proxy   Найти похожие ветки 

 
Смирнов Сергей   (2008-12-05 19:14) [0]

Всем Привет, хочу добавить в программу (WinInet), поддержку работы с прокси. Нашел вот такую функцию на просторах интернета:

// При помощи данной процедуры, Написанной на языке Delphi, можно установить Proxy,
// через которую будет осуществляться работа в Internet, Proxy адрес указывается в
// формате адрес : порт, например 195.43.67.33:8080.

procedure ChangeProxy(aProxy: string);
var
 PIInfo: PInternetProxyInfo;
begin
 New(PIInfo);
 PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
 PIInfo^.lpszProxy := PChar(aProxy);
 // Список адресов, доступ к которым осуществляется не через прокси
 PIInfo^.lpszProxyBypass := PChar("");
 UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
   SizeOf(Internet_Proxy_Info), 0);
 Dispose(PIInfo);
end;


Функция работает корректно, но я не силён в терминологии, хочу задать вопрос, Вам Многоуважаемые Мастера.

Вопрос: Фунция эта только для работы через Http proxy, или с SOCKS4, SOCKS5, HTTPS тоже? Или я все перепутал?


 
KilkennyCat ©   (2008-12-05 20:17) [1]

Ты забыл добавить еще один немаловажный вопрос: а будет ли сие работать, если прокси-сервер требует авторизации?


 
KilkennyCat ©   (2008-12-05 20:21) [2]


> Http proxy, или с SOCKS4, SOCKS5, HTTPS


44    INTERNET_DEFAULT_FTP_PORT = 21;                   { default for FTP servers }
45    INTERNET_DEFAULT_GOPHER_PORT = 70;                {    "     "  gopher " }
46    INTERNET_DEFAULT_HTTP_PORT = 80;                  {    "     "  HTTP   " }
47    INTERNET_DEFAULT_HTTPS_PORT = 443;                {    "     "  HTTPS  " }
48    INTERNET_DEFAULT_SOCKS_PORT = 1080;


 
KilkennyCat ©   (2008-12-05 20:22) [3]

а вообще смотри просто исходник WinInet.pas - много вопросов отпадет.
правда, появятся много других... :)


 
Смирнов Сергей   (2008-12-05 20:30) [4]


> если прокси-сервер требует авторизации?


Добавил, скорее всего нет, так как нет соответствующих параметров!


 
KilkennyCat ©   (2008-12-05 20:37) [5]

http://www.indyproject.org/KB/index.html?tidftpsocksproxy.htm - может, этот вариант более универсален?


 
KilkennyCat ©   (2008-12-05 20:43) [6]


> так как нет соответствующих параметров!


Это не факт.
Я с прокси не особо силен, но напомню, что, например, запись "ftp://user:password@host:port/dir" включает в себя все необходимое. для фтп. возможно, так и с прокси.


 
Смирнов Сергей   (2008-12-05 20:50) [7]


> KilkennyCat ©   (05.12.08 20:37) [5]


Indy, нет не надо мне  сего! (Не в коем не принижая её возможностей!) Только WinInet!!!


 
Смирнов Сергей   (2008-12-06 14:44) [8]

Так всё же, полноценная это функция для прокси соединения, естественно без Авторизации! Пока без... ;)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.01.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.007 c
15-1227260800
Petr V. Abramov
2008-11-21 12:46
2009.01.18
Топ-менеджер Microsoft признался в обмане потребителей


15-1226316049
aSa
2008-11-10 14:20
2009.01.18
Компонент как Object Inspector


2-1228392234
linx
2008-12-04 15:03
2009.01.18
Лишние знаки после запятой при отображ. результ. запр.в DBGreed


2-1228396508
Учащийся
2008-12-04 16:15
2009.01.18
TVarRec


2-1228576692
neon-w
2008-12-06 18:18
2009.01.18
Столбец из .txt в массив?





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