Added uCEFApplicationCore.pas to project files

- Replaced response.GetHeader by response.GetHeaderByName in ResponseFilterBrowser demo

demos/Delphi_VCL/ResponseFilterBrowser/uResponseFilterBrowser.pas

@@ -493,7 +493,7 @@ begin
       FFilterInit := True;
 
       CheckResponseHeaders(response);
-      UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
+      UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
     end
    else
     Result := nil;
@@ -557,7 +557,7 @@ begin
   try
     FStreamCS.Acquire;
 
-    TempContentEncoding := trim(lowercase(response.GetHeader('Content-Encoding')));
+    TempContentEncoding := trim(lowercase(response.GetHeaderByName('Content-Encoding')));
 
     if (length(TempContentEncoding) > 0) and (TempContentEncoding <> 'identity') then
       begin
@@ -568,7 +568,7 @@ begin
       end
      else
       begin
-        TempContentLength := trim(response.GetHeader('Content-Length'));
+        TempContentLength := trim(response.GetHeaderByName('Content-Length'));
 
         if (length(TempContentLength) > 0) and
            TryStrToInt(TempContentLength, TempLen) and
@@ -601,7 +601,7 @@ begin
     // we still can use this event to know when the resource is complete
     if IsMyResource(request) and CopyScriptBtn.Checked then
       begin
-        UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
+        UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
 
         // Only send the message if this event is triggered before we have a OnFilter event with data_in = nil
         if not(FRscCompleted) then
@@ -624,7 +624,7 @@ begin
   if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then
     begin
       CheckResponseHeaders(response);
-      UpdateRscEncoding(response.MimeType, response.GetHeader('Content-Type'));
+      UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
     end;
 end;
 

packages/CEF4Delphi.dpk

@@ -172,7 +172,8 @@ contains
   uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
   uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
   uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
-  uCEFSentinel in '..\source\uCEFSentinel.pas';
+  uCEFSentinel in '..\source\uCEFSentinel.pas',
+  uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
 
 end.
 

packages/CEF4Delphi.dproj

@@ -267,6 +267,7 @@
         <DCCReference Include="..\source\uCEFResourceSkipCallback.pas"/>
         <DCCReference Include="..\source\uCEFResourceReadCallback.pas"/>
         <DCCReference Include="..\source\uCEFSentinel.pas"/>
+        <DCCReference Include="..\source\uCEFApplicationCore.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

packages/CEF4Delphi_D7.dpk

@@ -169,6 +169,7 @@ contains
   uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
   uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
   uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
-  uCEFSentinel in '..\source\uCEFSentinel.pas';
+  uCEFSentinel in '..\source\uCEFSentinel.pas',
+  uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
 
 end.

packages/CEF4Delphi_FMX.dpk

@@ -177,7 +177,8 @@ contains
   uCEFResourceRequestHandler in '..\source\uCEFResourceRequestHandler.pas',
   uCEFResourceSkipCallback in '..\source\uCEFResourceSkipCallback.pas',
   uCEFResourceReadCallback in '..\source\uCEFResourceReadCallback.pas',
-  uCEFSentinel in '..\source\uCEFSentinel.pas';
+  uCEFSentinel in '..\source\uCEFSentinel.pas',
+  uCEFApplicationCore in '..\source\uCEFApplicationCore.pas';
 
 end.
 

packages/CEF4Delphi_FMX.dproj

@@ -293,6 +293,7 @@
         <DCCReference Include="..\source\uCEFResourceSkipCallback.pas"/>
         <DCCReference Include="..\source\uCEFResourceReadCallback.pas"/>
         <DCCReference Include="..\source\uCEFSentinel.pas"/>
+        <DCCReference Include="..\source\uCEFApplicationCore.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>

packages/cef4delphi_lazarus.lpk

@@ -22,7 +22,7 @@
     <Description Value="CEF4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
     <License Value="MPL 1.1"/>
     <Version Major="78" Minor="3" Release="1"/>
-    <Files Count="144">
+    <Files Count="145">
       <Item1>
         <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>
         <UnitName Value="uCEFAccessibilityHandler"/>
@@ -608,6 +608,10 @@
         <HasRegisterProc Value="True"/>
         <UnitName Value="uCEFSentinel"/>
       </Item144>
+      <Item145>
+        <Filename Value="..\source\uCEFApplicationCore.pas"/>
+        <UnitName Value="uCEFApplicationCore"/>
+      </Item145>
     </Files>
     <RequiredPkgs Count="3">
       <Item1>

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 59,
+      "InternalVersion" : 60,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "78.3.1.0"
     }