Hi,
I need to add a custom request headers before I browse. I've added
some code to show what I tried so far, but this doesn't work.
Thanks in advance..
procedure TForm1.Chromium1BeforeBrowse(Sender: TCustomChromium;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; navType: TCefHandlerNavtype; isRedirect:
Boolean;
out Result: TCefRetval);
var
map: ICefStringMap;
begin
map := TCefStringMapOwn.Create;
map.Append('X-MyApp-Cycle', 'Fiets');
request.SetHeaderMap(map);
map := nil;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chromium1.DefaultUrl := '
http://localhost:8080/bkticker/woot.cfm';
end;