[TitiS]

Всем привет, нужна помощь,

С Proxy на уровне Delphi ни когда не работал (использовал онлайн сервисы), но пришла необходимость кое-что реализовать в своей программе... Пожалуйста, ответьте на следующие вопросы:

1. Подскажите как можно взять настройки Proxy у Internet Explorer'а
2. Как работать с Proxy - чтобы загрузить например страничку http://www.denasoft.net/code.php
3. Как настраивать у прокси IP, порт, и что там ещё настраивается.

Блин, вопросы какие то ламерские получилось, ну и пофиг. Заказчику необходимо именно Proxy соединение

[Keygenmusic]

компонент HTTP(S) прокси http://www.delphisources.ru/pages/so...ttp_proxy.html

если интересует SOCKS - надо тупо читать его спецификацию, там всё делать может и долго, но не так уж сложно.

[TitiS]

Сообщение от Keygenmusic

компонент HTTP(S) прокси http://www.delphisources.ru/pages/so...ttp_proxy.html

если интересует SOCKS - надо тупо читать его спецификацию, там всё делать может и долго, но не так уж сложно.

Спасибо, хоть один нормальный пример, правда он у меня не сразу запустился. Надо было код не много подкорректировать. Что касается сокетов - заказчик обойдётся.

[k@Z@k]

uses urlmon, wininet;
var var PIInfo : PInternetProxyInfo;
begin

New (PIInfo) ;
// Изменение настроек ПРОКСИ
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := PChar(Trim(form2.Edit1.Text)); // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := PChar(''); // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;
WebBrowser.Navigate('URL');// proxy для этого URL, настройки прокси в системе не поменяются

end;