BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

procedure TForm1.Chromium2BeforeResourceLoad(Sender: TObject;
  const browser: ICefBrowser; const frame: ICefFrame;
  const request: ICefRequest; const callback: ICefRequestCallback;
  out Result: TCefReturnValue);
var
  map: ICefStringMultimap;
begin
  map := TCefStringMultimapOwn.Create;
  request.GetHeaderMap(map);
  map.Append('referer', 'https://google.com');
  map.Append('Accept-Language', 'ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7');
  request.SetHeaderMap(map);
end;

Code: Select all

  for i:=1 to map.Size do
  begin
    ShowMessage(map.Key[i]+':'+map.Value[i])
  end;

Code: Select all

request.SetHeaderMap(map);

Code: Select all

  Header.append('referer', 'https://google.com');

Code: Select all

  request.Method:='GET';