Setting and sending header

[andreykrasnodar]

Suddenly... only this code works and sends referer. Others can send, but php saw them and javascript did not.
This code is:

Code: Select all

procedure TForm1.Test;
var
  Header: ICefStringMultimap;
  Request: ICefRequest;
  Data: ICefPostData;
  referer:string;
begin
  chromium2.SendReferrer:=true;
  referer:='https://yahoo.com';
  Request := TCefRequestRef.New;
  Data := TCefPostDataRef.New;
  Header := TCefStringMultimapOwn.Create;
  Request.SetReferrer(referer, REFERRER_POLICY_ORIGIN_WHEN_CROSS_ORIGIN);
  Request.Assign('https://example.com', 'GET', Data, Header);
  Chromium2.Browser.MainFrame.LoadRequest(Request);
 end;

And it works only in 2623. Solved!

[dilfich]

I didn't check it, but it should work.
https://prnt.sc/u5l45v

Code: Select all

procedure TForm1.Test;
var
  Header: ICefStringMultimap;
  Request: ICefRequest;
  referer:string;
begin
  chromium2.SendReferrer:=true;
  referer:='https://yahoo.com';
  Header := TCefStringMultimapOwn.Create;
  Request := TCefRequestRef.New;
  Request.Assign('https://example.com', 'GET', nil, Header);
  Request.SetReferrer(referer, REFERRER_POLICY_ORIGIN_WHEN_CROSS_ORIGIN);
  Chromium2.Browser.MainFrame.LoadRequest(Request);
 end;

[dilfich]

According to your example, only the police variable is called something else.
Everything is OK - https://prnt.sc/u5l801 - , and what is needed?

Code: Select all

procedure TestRF;
var
  Header: ICefStringMultimap;
  Request: ICefRequest;
  referer:string;
begin
  Chromium1.SendReferrer:=true;
  referer:='https://yahoo.com';
  Header := TCefStringMultimapOwn.Create;
  Request := TCefRequestRef.New;
  Request.Assign('https://example.com', 'GET', nil, Header);
  Request.SetReferrer(referer, REFERRER_POLICY_CLEAR_REFERRER_ON_TRANSITION_FROM_SECURE_TO_INSECURE);
  Chromium1.Browser.MainFrame.LoadRequest(Request);
 end;