Code: Select all
procedure example;
var
Header: ICefStringMultimap;
Request: ICefRequest;
Data: ICefPostData;
begin
Request := TCefRequestRef.New;
Request.Url := 'https://megogo.ru/ru/mult/year_2019-2020';
Request.Method := '';
Header := TCefStringMultimapOwn.Create;
Header.Append('Referer', 'https://google.com');
Request.SetHeaderMap(Header);
Data := TCefPostDataRef.New;
Request.PostData := Data;
Chromium2.Browser.MainFrame.LoadRequest(Request);
end;
I tried to set Request.Method to GET and POST, but nothing changed.
When I try to open them with OpenURL(''); everything is ok.
Please help me. I just want to open sites in new tab sending real referer.