|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi Webbrowser прокси с авторизацией (Небольшой код)
Здравствуйте, необходимо было создать браузер (для личных целей, с автовводом и всякими наворотами),что собственно уже готово. Но вот возникла сложность – необходимо работать с проксями, да не обычными, а элитными – с авторизацией. Весь интернет перерыл... как совокупить Twebbrowser и прокси с авторизацией? EmbeddedWB – уже пробовал, авторизация кривая.
Может кто подскажет? Вот без авторизации, как прикрутить авторизацию проксей? Код:
procedure proxy_go(proxy: string); var proxy_info : PInternetProxyInfo; begin New (proxy_info); proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY; proxy_info^.lpszProxy := PChar(proxy); proxy_info^.lpszProxyBypass := PChar(''); UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0); Dispose(proxy_info); //proxy_go('127.0.0.1:8888'); end; procedure TForm1.Button1Click(Sender: TObject); begin proxy_go('127.0.0.1:8888'); Webbrowser1.Navigate(edit1.Text); end; |