Re: Setting and sending header
Posted: Mon Aug 24, 2020 5:15 pm
Suddenly... only this code works and sends referer. Others can send, but php saw them and javascript did not.
This code is:
And it works only in 2623. Solved!
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;