Прокси в webbrowser1.

[sxcine]

Как произвести работу twebbrowser через прокси?
желательно из лист бокса!
почти весь инет облазил, ничего подходящего не нашел!
помогите пожалуйста!

[Виталий Желтяков]

Нет ничего проще:

//--------------- Процедура установки подключения к прокси-серверу -----------//
procedure SetProxy;
var
  PIInfo: PInternetProxyInfo;
begin
  New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar(ProxyServer + ':' + ProxyPort);
  //  Список адресов, доступ к которым возможен минуя Proxy сервер
  PIInfo^.lpszProxyBypass := PChar('');

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
  Dispose(PIInfo);
end;
//----------------------------------------------------------------------------//

//-------------------- Процедура установки параметрос соединения -------------//
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if UseProxy Then
    SetProxy;
end;
//----------------------------------------------------------------------------//

p.s. процедура универсальна, т.е. работает для всех соединений.

[sxcine]

а какой компонент нужно ещё установить?
а то не компилирует.

[Pasha_Sh]

uses ... urlmon, wininet

[demiancz]

У меня не получается. Выдает ошибки

[Error] Unit1.pas(37): Undeclared identifier: 'ProxyServer'
[Error] Unit1.pas(37): Undeclared identifier: 'ProxyPort'
[Error] Unit1.pas(47): Undeclared identifier: 'WebBrowser1BeforeNavigate2'
[Error] Unit1.pas(47): ';' expected but '(' found
[Error] Unit1.pas(48): '=' expected but ';' found
[Error] Unit1.pas(49): ';' expected but ')' found
[Error] Unit1.pas(51): Undeclared identifier: 'UseProxy'
[Error] Unit1.pas(59): Undeclared identifier: 'WebBrowser1Navigate'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

ПМОГИТЕ!!!

немного подправил сам. Теперь такие ошибки

[Error] Unit1.pas(54): Undeclared identifier: 'UseProxy'
[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.SetProxy'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Спасите! Помогите!

[grafgrial]

Держи, немного поправить остается
Snak v.1.0.rar
Если помог, плиз click на весы

[Speeker]

Прокси почему то меняеться только раз за віполнение программы
а дальше остаеться тот на который раз уже поменял. как решить?

[Voody]

Перед сменой прокси вызывать процедуру:

procedure EmptyIECache;
Var
    lpEntryInfo : PInternetCacheEntryInfo;
    hCacheDir   : LongWord;
    dwEntrySize : LongWord;
    dwLastError : LongWord;
Begin
    dwEntrySize := 0;
    FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
    GetMem( lpEntryInfo, dwEntrySize );
    hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
    If ( hCacheDir <> 0 ) Then
        DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
    FreeMem( lpEntryInfo );
    Repeat
        dwEntrySize := 0;
        FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
        dwLastError := GetLastError();
        If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
            GetMem( lpEntryInfo, dwEntrySize );
            If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
                DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
            FreeMem(lpEntryInfo);
        End;
    Until ( dwLastError = ERROR_NO_MORE_ITEMS );
End;

[fbus]

всё это работает только для открытых прокси. как-то бился с этой проблемой но так никакого внятного ответа даже на форуме embarcadero так и не дали.
так что прокси с авторизацией не прокатят. тупо сделал заполнение всплывающей формы логином\пассом и тыканьем на ок. работало