User-Agent spoofing code:
Code: Select all
procedure TForm1.Chromium1BeforeResourceLoad(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const callback: ICefRequestCallback;
out Result: TCefReturnValue);
var
header, header_new: ICefStringMultimap;
i: NativeUInt;
uaset: boolean;
begin
header := TCefStringMultimapOwn.Create;
header_new := TCefStringMultimapOwn.Create;
request.GetHeaderMap(header);
for i := 0 to header.Size - 1 do
begin
if AnsiLowerCase(header.Key[i]) = 'user-agent' then
begin
header_new.Append(header.Key[i],'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.90 Safari/537.36');
uaset := true;
end
else
header_new.Append(header.Key[i],header.Value[i]);
end;
if not uaset then
header_new.Append('User-Agent','Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.90 Safari/537.36');
request.SetHeaderMap(header_new);
end;
Could you help to understand what this may be connected with and how to fix it? Thanks in advance.