• Cef4动态设置代理IP方法

    • Cef4动态设置代理IP方法

      procedure TfrmMain.OnChrmBeforeBrowse(Sender: TObject;
      const browser: ICefBrowser; const frame: ICefFrame;
      const request: ICefRequest; user_gesture, isRedirect: Boolean;
      out Result: Boolean);
      var
      TempError : ustring;
      TempProxy : ICefValue;
      TempValue : ICefValue;
      TempDict : ICefDictionaryValue;
      str_proxyIP : string;
      begin
      str_proxyIP :='你的代理IP地址';//格式127.0.0.1:8888
      if Pos(':', str_proxyIP)>0 then
      begin

      try
        if (browser      <> nil) and
           (browser.Host <> nil) and
           (browser.Host.RequestContext.CanSetPreference('proxy'))
        then
        begin
          TempProxy := TCefValueRef.New;
          TempValue := TCefValueRef.New;
          TempDict  := TCefDictionaryValueRef.New;
          TempValue.SetString('fixed_servers');
          TempDict.SetValue('mode', TempValue);
          TempDict.SetString('server', str_proxyIP);
          TempProxy.SetDictionary(TempDict);
          browser.Host.RequestContext.SetPreference('proxy', TempProxy, TempError);
        end;
      finally
        TempProxy := nil;
        TempValue := nil;
        TempDict  := nil;
      end;

      end;
      end;

      标签: delphi

    • 当前暂无评论 »

      • 发表评论: ( 注意:为了防止广告评论,本站链接已经启用nofollow)
      •   您的名字
      •   E-mail
      •   您的网址(选填)

Powered by Typecho)))   ICP:蜀ICP备05009250号