3

認証が必要なプロキシを適切に使用する方法。次のコードは、承認を必要としないプロキシでのみ機能します。

procedure SetProxy(username, password, proxy: ansistring);
var
    proxy_info : PInternetProxyInfo;
begin
    New(proxy_info);
    UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, PAnsichar(username), Length(username)+1, 0);
    UrlMkSetSessionOption(INTERNET_OPTION_PROXY_PASSWORD, PAnsichar(password), Length(password)+1, 0);
    proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
    proxy_info^.lpszProxy := PAnsiChar(proxy);
    proxy_info^.lpszProxyBypass := PAnsiChar('');
    UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
    SetProxy('username','password','YYY.YYY.YYY.YYY:XXX');
    EmbeddedWB1.Navigate('http://www.whatsmyuseragent.com/');    
end;
4

1 に答える 1

0

タンバリンを持って踊るのが好きな人が多いことに気づきました。;/

procedure TForm1.FormCreate(Sender: TObject);
begin
embeddedwb1.ProxySettings.SetProxy('ololo user agent','yourProxyServer:port');
embeddedwb1.Navigate('about:blank'); // still use proxy
embeddedwb1.Navigate('your URI here');
end;
于 2015-11-05T21:38:37.783 に答える