delphi CEF4Delphi Chromium1 设置User-Agent

方法1

procedure TMiniBrowserFrm.Chromium1BeforeResourceLoad(Sender: TObject;

const browser: ICefBrowser; const frame: ICefFrame;

const request: ICefRequest; const callback: ICefRequestCallback;

out Result: TCefReturnValue);

//===============设置 User-Agent

var

TempOldMap, TempNewMap : ICefStringMultimap;

i : NativeUInt;

TempReplaced : boolean;

userAgent : string;

begin

Result := RV_CONTINUE;

userAgent := EditUA.Text;

if userAgent <> '' then

try

// We replace the Accept-Encoding HTTP header to request uncompressed resources.

// If the server sends uncompressed resources it should be easier to handle the

// end of the resource reception because we may know its length.

TempNewMap := TCefStringMultimapOwn.Create;

TempOldMap := TCefStringMultimapOwn.Create;

request.GetHeaderMap(TempOldMap);

TempReplaced := False;

i := 0;

while (i < TempOldMap.Size) do

begin

if (CompareText(TempOldMap.Key[i], 'User-Agent') = 0) then

begin

TempNewMap.Append('User-Agent', userAgent);

TempReplaced := True;

end

else

TempNewMap.Append(TempOldMap.Key[i], TempOldMap.Value[i]);

inc(i);

end;

if not(TempReplaced) then TempNewMap.Append('User-Agent', userAgent);

request.SetHeaderMap(TempNewMap);

finally

TempNewMap := nil;

TempOldMap := nil;

end;

//===============设置 User-Agent

Result := RV_CONTINUE;

if Chromium1.IsSameBrowser(browser) and

(frame <> nil) and

frame.IsMain and

frame.IsValid then

InspectRequest(request);

end;

方法2

procedure TMiniBrowserFrm.Chromium1BeforeResourceLoad(Sender: TObject;

const browser: ICefBrowser; const frame: ICefFrame;

const request: ICefRequest; const callback: ICefRequestCallback;

out Result: TCefReturnValue);

//===============设置 User-Agent

Var

map: ICefStringMultimap;

begin

map := TCefStringMultimapOwn.Create;

request.GetHeaderMap(map);

map.Append('User-Agent','Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16');

request.SetHeaderMap(map);

callback.Cont(true);

end;

//===============设置 User-Agent

Result := RV_CONTINUE;

if Chromium1.IsSameBrowser(browser) and

(frame <> nil) and

frame.IsMain and

frame.IsValid then

InspectRequest(request);

end;

推荐分享