Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Необходимо установить прокси для twebbrowser. Погуглил, нашел код:

procedure TForm1.FormShow(Sender: TObject);
 
var PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
 // Изменение настроек ПРОКСИ
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := PChar('80.74.164.4:3128'); // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := PChar('http:\\2ip.ru'); // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
webbrowser1.Navigate('http:\\2ip.ru');
Dispose (PIInfo) ;
 end;

Вопрос задал: Ученый (статус: 8-ой класс) Вопрос отправлен: 9 августа 2010, 18:12 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Ерёмин А.А. (статус: *Администратор), 13 августа 2010, 10:05 [#1]: Цитата (Ученый): Выдает ошибку типо невозможно подключиться. Так может сам прокси нерабочий? Если вручную его указать в браузере, работает?

Ученый (статус: 8-ой класс), 13 августа 2010, 10:20 [#2]: Да рабочий прокси Андрюх. Я погуглил- на этот код многие жалуются чт оне работает. щас нащел решение через IdHTTP.

Ученый (статус: 8-ой класс), 13 августа 2010, 17:22 [#3]: народ, код рабочий. Не работает в данном случае на делфи 2009. На 7 и 2007 работает нормально!

Вадим К (статус: Академик), 13 августа 2010, 17:38 [#4]: ну тогда ответ просто - юникод. заменяем все string на ansistring и тому подобоное и все будет работать. Галочка "подтверждения прочтения" - вселенское зло.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.