diff --git a/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas b/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas index f014c732..d2775185 100644 --- a/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas +++ b/demos/Delphi_VCL/SimpleServer/uSimpleServer.pas @@ -14,7 +14,7 @@ uses Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls, Math, ShellAPI, {$ENDIF} - uCEFInterfaces, uCEFServerComponent, uCEFTypes, uCEFMiscFunctions; + uCEFInterfaces, uCEFServerComponent, uCEFTypes, uCEFMiscFunctions, uCEFStringMultimap; type TSimpleServerFrm = class(TForm) @@ -140,6 +140,9 @@ begin end; procedure TSimpleServerFrm.ShowRequestInfo(const aRequest : ICefRequest); +var + TempHeaderMap : ICefStringMultimap; + i : NativeUInt; begin if (aRequest = nil) then exit; @@ -149,6 +152,15 @@ begin if (length(aRequest.ReferrerUrl) > 0) then ConnectionLogMem.Lines.Add('Request Referrer : ' + aRequest.ReferrerUrl); + TempHeaderMap := TCefStringMultimapOwn.Create; + aRequest.GetHeaderMap(TempHeaderMap); + i := 0; + while (i < TempHeaderMap.Size) do + begin + ConnectionLogMem.Lines.Add('HTTP header : ' + TempHeaderMap.Key[i] + ':' + TempHeaderMap.Value[i]); + inc(i); + end; + ShowPostDataInfo(aRequest.PostData); end; diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 24220dcb..e37a7aba 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 817, + "InternalVersion" : 818, "Name" : "cef4delphi_lazarus.lpk", "Version" : "142.0.8" }