pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

Added an example of HTTP header replacement in MiniBrowser

Browse Source
This commit is contained in:
Salvador Díaz Fau 2024-06-02 10:19:14 +02:00
parent 849c32718b
commit bf11a7586e
2 changed files with 42 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -246,6 +246,7 @@ type
procedure HandleKeyDown(const aMsg : TMsg; var aHandled : boolean);
procedure HandleBrowserInfo(const aResult : ICefValue);
procedure ReplaceAcceptEncoding(const aRequest : ICefRequest);
procedure InspectRequest(const aRequest : ICefRequest);
procedure InspectResponse(const aResponse : ICefResponse);
@ -530,7 +531,10 @@ begin
(frame <> nil) and
frame.IsMain and
frame.IsValid then
InspectRequest(request);
begin
ReplaceAcceptEncoding(request);
InspectRequest(request);
end;
end;
procedure TMiniBrowserFrm.Chromium1CanDownload(Sender: TObject;
@ -1219,6 +1223,42 @@ begin
'Error code : ' + inttostr(result));
end;
// This is just an example of HTTP header replacement.
procedure TMiniBrowserFrm.ReplaceAcceptEncoding(const aRequest : ICefRequest);
const
ACCEPT_ENCODING_HEADER = 'Accept-Encoding';
var
TempOldMap, TempNewMap : ICefStringMultimap;
i : NativeUInt;
begin
try
TempNewMap := TCefStringMultimapOwn.Create;
TempOldMap := TCefStringMultimapOwn.Create;
// We get all the old request headers
aRequest.GetHeaderMap(TempOldMap);
i := 0;
while (i < TempOldMap.Size) do
begin
// Copy all headers except the "Accept-Encoding" header
if (CompareText(TempOldMap.Key[i], ACCEPT_ENCODING_HEADER) <> 0) then
TempNewMap.Append(TempOldMap.Key[i], TempOldMap.Value[i]);
inc(i);
end;
// We append the new "Accept-Encoding" header with a custom value
TempNewMap.Append(ACCEPT_ENCODING_HEADER, 'gzip');
// And then we set all the headers in the request
aRequest.SetHeaderMap(TempNewMap);
finally
TempNewMap := nil;
TempOldMap := nil;
end;
end;
procedure TMiniBrowserFrm.InspectRequest(const aRequest : ICefRequest);
var
TempHeaderMap : ICefStringMultimap;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 602,
"InternalVersion" : 603,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "125.0.19"
}