Конференция "Сети" » WebBrowser через прокси [D7]
 
  • stas © (20.06.11 14:03) [0]
    Для работы TWebBrowser через прокси использую процедуру


    procedure TfmBrowser.ApplyProxy(Proxy:TProxy);

    begin
     if trim(Proxy.proxy_name)<>'' then
      begin

       New(PIInfo);
       PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;

       PIInfo^.lpszProxy := PAnsiChar(Proxy.proxy_name+':'+IntToStr(Proxy.proxy_port));

       PIInfo^.lpszProxyBypass := PAnsiChar('');

       UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);

      if Proxy.user<>'' then
       begin
         UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, Pchar(Proxy.user), SizeOf(Proxy.user)+1, 0);
         UrlMkSetSessionOption(INTERNET_OPTION_PROXY_Password, Pchar(Proxy.password), SizeOf(Proxy.password)+1, 0);
       end;
      end;

       browser.Navigate ('http://google.com')
     end;




    По какой-то причине работает не со всеми прокси. Подскажите кто сталкивался может быть я че-то не так делаю?
  • stas © (20.06.11 15:55) [1]
    Разобрался...
  • brother © (27.06.11 10:25) [2]
    разобрался? так покажи! Может еще кому пригодится?
  • wiom (21.05.14 19:22) [3]
    да, мне например...
 
Конференция "Сети" » WebBrowser через прокси [D7]
Есть новые Нет новых   [120566   +203][b:0][p:0.001]