Fixed CookieAccessFilter events not being triggered

Fixed SimpleServer demo to call the updated ICefPostData function names

demos/Delphi_VCL/SimpleServer/uSimpleServer.pas

@@ -195,27 +195,26 @@ end;
 
 procedure TSimpleServerFrm.ShowPostDataInfo(const aPostData : ICefPostData);
 var
-  i, j : integer;
+  i : integer;
   TempLen : NativeUInt;
-  TempList : IInterfaceList;
-  TempElement : ICefPostDataElement;
   TempBytes : TBytes;
+  TempArray : TCefPostDataElementArray;
 begin
-  if (aPostData = nil) then exit;
+  TempArray := nil;
+
+  try
+    try
+      if (aPostData <> nil) and (aPostData.GetElementCount > 0) then
+        begin
+          aPostData.GetElements(aPostData.GetElementCount, TempArray);
 
           i := 0;
-  j := aPostData.GetCount;
+          while (i < length(TempArray)) do
-
-  TempList := aPostData.GetElements(j);
-
-  while (i < j) do
             begin
-      TempElement := TempList.Items[i] as ICefPostDataElement;
+              if (TempArray[i].GetBytesCount > 0) then
-
-      if (TempElement.GetBytesCount > 0) then
                 begin
-          SetLength(TempBytes, TempElement.GetBytesCount);
+                  SetLength(TempBytes, TempArray[i].GetBytesCount);
-          TempLen := TempElement.GetBytes(TempElement.GetBytesCount, @TempBytes[0]);
+                  TempLen := TempArray[i].GetBytes(TempArray[i].GetBytesCount, @TempBytes[0]);
 
                   if (TempLen > 0) then
                     begin
@@ -226,6 +225,25 @@ begin
 
               inc(i);
             end;
+
+          i := 0;
+          while (i < length(TempArray)) do
+            begin
+              TempArray[i] := nil;
+              inc(i);
+            end;
+        end;
+    except
+      on e : exception do
+        if CustomExceptionHandler('TSimpleServerFrm.ShowPostDataInfo', e) then raise;
+    end;
+  finally
+    if (TempArray <> nil) then
+      begin
+        Finalize(TempArray);
+        TempArray := nil;
+      end;
+  end;
 end;
 
 function TSimpleServerFrm.BufferToString(const aBuffer : TBytes) : string;

demos/Lazarus/SimpleServer/SimpleServer.lps

@@ -8,8 +8,8 @@
       <Unit0>
         <Filename Value="SimpleServer.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="38"/>
+        <CursorPos X="65" Y="54"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -20,9 +20,10 @@
         <ComponentName Value="SimpleServerFrm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="113"/>
+        <TopLine Value="194"/>
-        <CursorPos X="46" Y="290"/>
+        <CursorPos Y="250"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

demos/Lazarus/SimpleServer/uSimpleServer.lfm

@@ -15,7 +15,7 @@ object SimpleServerFrm: TSimpleServerFrm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '2.0.2.0'
+  LCLVersion = '2.0.4.0'
   object ButtonPnl: TPanel
     Left = 0
     Height = 94

demos/Lazarus/SimpleServer/uSimpleServer.pas

@@ -197,27 +197,26 @@ end;
 
 procedure TSimpleServerFrm.ShowPostDataInfo(const aPostData : ICefPostData);
 var
-  i, j : integer;
+  i : integer;
   TempLen : NativeUInt;
-  TempList : IInterfaceList;
-  TempElement : ICefPostDataElement;
   TempBytes : TBytes;
+  TempArray : TCefPostDataElementArray;
 begin
-  if (aPostData = nil) then exit;
+  TempArray := nil;
+
+  try
+    try
+      if (aPostData <> nil) and (aPostData.GetElementCount > 0) then
+        begin
+          aPostData.GetElements(aPostData.GetElementCount, TempArray);
 
           i := 0;
-  j := aPostData.GetCount;
+          while (i < length(TempArray)) do
-
-  TempList := aPostData.GetElements(j);
-
-  while (i < j) do
             begin
-      TempElement := TempList.Items[i] as ICefPostDataElement;
+              if (TempArray[i].GetBytesCount > 0) then
-
-      if (TempElement.GetBytesCount > 0) then
                 begin
-          SetLength(TempBytes, TempElement.GetBytesCount);
+                  SetLength(TempBytes, TempArray[i].GetBytesCount);
-          TempLen := TempElement.GetBytes(TempElement.GetBytesCount, @TempBytes[0]);
+                  TempLen := TempArray[i].GetBytes(TempArray[i].GetBytesCount, @TempBytes[0]);
 
                   if (TempLen > 0) then
                     begin
@@ -228,8 +227,28 @@ begin
 
               inc(i);
             end;
+
+          i := 0;
+          while (i < length(TempArray)) do
+            begin
+              TempArray[i] := nil;
+              inc(i);
+            end;
+        end;
+    except
+      on e : exception do
+        if CustomExceptionHandler('TSimpleServerFrm.ShowPostDataInfo', e) then raise;
+    end;
+  finally
+    if (TempArray <> nil) then
+      begin
+        Finalize(TempArray);
+        TempArray := nil;
+      end;
+  end;
 end;
 
+
 function TSimpleServerFrm.BufferToString(const aBuffer : TBytes) : string;
 var
   i, j : integer;

source/uCEFChromium.pas

@@ -3163,7 +3163,8 @@ begin
             assigned(FOnResourceResponse) or
             assigned(FOnGetResourceResponseFilter) or
             assigned(FOnResourceLoadComplete) or
-            assigned(FOnProtocolExecution);
+            assigned(FOnProtocolExecution) or
+            MustCreateCookieAccessFilter;
 end;
 
 function TChromium.MustCreateCookieAccessFilter : boolean;

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 33,
+      "InternalVersion" : 34,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "76.1.13.0"
     }