Page 2 of 2

Re: Setting and sending header

Posted: Mon Aug 24, 2020 5:15 pm
by 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!

Re: Setting and sending header

Posted: Tue Aug 25, 2020 1:08 pm
by 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;

Re: Setting and sending header

Posted: Tue Aug 25, 2020 1:20 pm
by 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;