Delphi中Chrome Chromium、Cef4学习笔记（七）

xtfnpgy

于 2022-03-29 13:15:27 发布

阅读量2.9k

点赞数

分类专栏： Delphi中Chrome Chromium学习笔记文章标签：拼多多上货精灵拼上拼突破加价

本文链接：https://blog.csdn.net/xtfnpgy/article/details/123818902

版权

Delphi中Chrome Chromium学习笔记专栏收录该内容

11 篇文章 9 订阅

订阅专栏

一、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;