Added TChromium.ClearCache procedure

Added TChromium.Offline property.
Added a menu option to the MiniBrowser demo to clear the cache with the DevTools methods.
Added a menu option to the MiniBrowser demo to take a screenshot with the DevTools methods.

demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm

@@ -293,6 +293,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
     OnBeforeResourceLoad = Chromium1BeforeResourceLoad
     OnResourceResponse = Chromium1ResourceResponse
     OnBeforePluginLoad = Chromium1BeforePluginLoad
+    OnDevToolsMethodResult = Chromium1DevToolsMethodResult
     Left = 32
     Top = 224
   end
@@ -375,6 +376,14 @@ object MiniBrowserFrm: TMiniBrowserFrm
       Caption = 'Find text...'
       OnClick = FindText1Click
     end
+    object Clearcache1: TMenuItem
+      Caption = 'Clear cache'
+      OnClick = Clearcache1Click
+    end
+    object akescreenshot1: TMenuItem
+      Caption = 'Take screenshot'
+      OnClick = akescreenshot1Click
+    end
     object N5: TMenuItem
       Caption = '-'
     end

demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas

@@ -43,30 +43,34 @@ interface
 
 uses
   {$IFDEF DELPHI16_UP}
-  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Menus,
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, System.Types, Vcl.ComCtrls, Vcl.ClipBrd,
+  System.Classes, Vcl.Graphics, Vcl.Menus, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+  Vcl.StdCtrls, Vcl.ExtCtrls, System.Types, Vcl.ComCtrls, Vcl.ClipBrd,
   System.UITypes, Vcl.AppEvnts, Winapi.ActiveX, Winapi.ShlObj,
+  System.NetEncoding,
   {$ELSE}
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Menus,
-  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd, AppEvnts, ActiveX, ShlObj,
+  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd,
+  AppEvnts, ActiveX, ShlObj, NetEncoding,
   {$ENDIF}
-  uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes, uCEFConstants,
+  uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFApplication, uCEFTypes,
-  uCEFWinControl, uCEFSentinel, uCEFChromiumCore;
+  uCEFConstants, uCEFWinControl, uCEFSentinel, uCEFChromiumCore;
 
 const
-  MINIBROWSER_SHOWDEVTOOLS    = WM_APP + $101;
+  MINIBROWSER_SHOWDEVTOOLS     = WM_APP + $101;
-  MINIBROWSER_HIDEDEVTOOLS    = WM_APP + $102;
+  MINIBROWSER_HIDEDEVTOOLS     = WM_APP + $102;
-  MINIBROWSER_COPYHTML        = WM_APP + $103;
+  MINIBROWSER_COPYHTML         = WM_APP + $103;
-  MINIBROWSER_SHOWRESPONSE    = WM_APP + $104;
+  MINIBROWSER_SHOWRESPONSE     = WM_APP + $104;
-  MINIBROWSER_COPYFRAMEIDS    = WM_APP + $105;
+  MINIBROWSER_COPYFRAMEIDS     = WM_APP + $105;
-  MINIBROWSER_COPYFRAMENAMES  = WM_APP + $106;
+  MINIBROWSER_COPYFRAMENAMES   = WM_APP + $106;
-  MINIBROWSER_SAVEPREFERENCES = WM_APP + $107;
+  MINIBROWSER_SAVEPREFERENCES  = WM_APP + $107;
-  MINIBROWSER_COPYALLTEXT     = WM_APP + $108;
+  MINIBROWSER_COPYALLTEXT      = WM_APP + $108;
-  MINIBROWSER_TAKESNAPSHOT    = WM_APP + $109;
+  MINIBROWSER_TAKESNAPSHOT     = WM_APP + $109;
-  MINIBROWSER_SHOWNAVIGATION  = WM_APP + $10A;
+  MINIBROWSER_SHOWNAVIGATION   = WM_APP + $10A;
-  MINIBROWSER_COOKIESFLUSHED  = WM_APP + $10B;
+  MINIBROWSER_COOKIESFLUSHED   = WM_APP + $10B;
-  MINIBROWSER_PDFPRINT_END    = WM_APP + $10C;
+  MINIBROWSER_PDFPRINT_END     = WM_APP + $10C;
-  MINIBROWSER_PREFS_AVLBL     = WM_APP + $10D;
+  MINIBROWSER_PREFS_AVLBL      = WM_APP + $10D;
+  MINIBROWSER_SCREENSHOT_AVLBL = WM_APP + $10E;
 
   MINIBROWSER_HOMEPAGE = 'https://www.google.com';
 
@@ -130,6 +134,8 @@ type
     Flushcookies1: TMenuItem;
     Acceptlanguage1: TMenuItem;
     FindText1: TMenuItem;
+    Clearcache1: TMenuItem;
+    akescreenshot1: TMenuItem;
 
     procedure FormShow(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -168,6 +174,7 @@ type
     procedure Chromium1CookiesFlushed(Sender: TObject);
     procedure Chromium1BeforePluginLoad(Sender: TObject; const mimeType, pluginUrl: ustring; isMainFrame: Boolean; const topOriginUrl: ustring; const pluginInfo: ICefWebPluginInfo; var pluginPolicy: TCefPluginPolicy; var aResult: Boolean);
     procedure Chromium1ZoomPctAvailable(Sender: TObject; const aZoomPct: Double);
+    procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: Integer; success: Boolean; const result: ICefValue);
 
     procedure BackBtnClick(Sender: TObject);
     procedure ForwardBtnClick(Sender: TObject);
@@ -193,8 +200,14 @@ type
     procedure PopupMenu1Popup(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure FindText1Click(Sender: TObject);
+    procedure Clearcache1Click(Sender: TObject);
+    procedure akescreenshot1Click(Sender: TObject);
 
   protected
+    FScreenshotMsgID : integer;
+    FScreenshotRslt  : boolean;
+    FScreenshotValue : ustring;
+
     FResponse   : TStringList;
     FRequest    : TStringList;
     FNavigation : TStringList;
@@ -229,6 +242,7 @@ type
     procedure CookiesFlushedMsg(var aMessage : TMessage); message MINIBROWSER_COOKIESFLUSHED;
     procedure PrintPDFEndMsg(var aMessage : TMessage); message MINIBROWSER_PDFPRINT_END;
     procedure PreferencesAvailableMsg(var aMessage : TMessage); message MINIBROWSER_PREFS_AVLBL;
+    procedure ScreenshotAvailableMsg(var aMessage : TMessage); message MINIBROWSER_SCREENSHOT_AVLBL;
     procedure WMMove(var aMessage : TWMMove); message WM_MOVE;
     procedure WMMoving(var aMessage : TMessage); message WM_MOVING;
     procedure WMEnterMenuLoop(var aMessage: TMessage); message WM_ENTERMENULOOP;
@@ -968,6 +982,11 @@ begin
   ShowStatusText('Zoom : ' + floattostr(aZoomPct) + '%');
 end;
 
+procedure TMiniBrowserFrm.Clearcache1Click(Sender: TObject);
+begin
+  Chromium1.ClearCache;
+end;
+
 procedure TMiniBrowserFrm.FindText1Click(Sender: TObject);
 begin
   FindFrm.Show;
@@ -1071,6 +1090,80 @@ begin
   URLCbx.Text := aURL;
 end;
 
+procedure TMiniBrowserFrm.akescreenshot1Click(Sender: TObject);
+begin
+  inc(FScreenshotMsgID);
+  Chromium1.ExecuteDevToolsMethod(FScreenshotMsgID, 'Page.captureScreenshot', nil);
+end;
+
+procedure TMiniBrowserFrm.Chromium1DevToolsMethodResult(      Sender     : TObject;
+                                                        const browser    : ICefBrowser;
+                                                              message_id : Integer;
+                                                              success    : Boolean;
+                                                        const result     : ICefValue);
+var
+  TempDict : ICefDictionaryValue;
+  TempValue : ICefValue;
+begin
+  if (message_id = FScreenshotMsgID) then
+    begin
+      FScreenshotRslt := success;
+
+      if success then
+        begin
+          TempDict  := result.GetDictionary;
+          TempValue := TempDict.GetValue('data');
+
+          if (TempValue <> nil) and (TempValue.GetType = VTYPE_STRING) then
+            FScreenshotValue := TempValue.GetString
+           else
+            FScreenshotValue := '';
+        end
+       else
+        FScreenshotValue := '';
+
+      PostMessage(Handle, MINIBROWSER_SCREENSHOT_AVLBL, 0, 0);
+    end;
+end;
+
+procedure TMiniBrowserFrm.ScreenshotAvailableMsg(var aMessage : TMessage);
+var
+  TempData : TBytes;
+  TempFile : TFileStream;
+  TempLen  : integer;
+begin
+  if FScreenshotRslt and (length(FScreenshotValue) > 0) then
+    begin
+      TempData := TNetEncoding.Base64.DecodeStringToBytes(FScreenshotValue);
+      TempLen  := length(TempData);
+
+      if (TempLen > 0) then
+        begin
+          TempFile := nil;
+
+          SaveDialog1.DefaultExt := 'png';
+          SaveDialog1.Filter     := 'PNG files (*.png)|*.PNG';
+
+          if SaveDialog1.Execute then
+            try
+              try
+                TempFile := TFileStream.Create(SaveDialog1.FileName, fmCreate);
+                TempFile.WriteBuffer(TempData[0], TempLen);
+                showmessage('Screenshot saved successfully');
+              except
+                showmessage('There was an error saving the screenshot');
+              end;
+            finally
+              if (TempFile <> nil) then TempFile.Free;
+            end;
+        end
+       else
+        showmessage('There was an error decoding the screenshot');
+    end
+   else
+    showmessage('There was an error taking the screenshot');
+end;
+
 procedure TMiniBrowserFrm.ShowDevToolsMsg(var aMessage : TMessage);
 var
   TempPoint : TPoint;

source/uCEFChromiumCore.pas

@@ -118,6 +118,7 @@ type
       FPrefsFileName          : string;
       FIsOSR                  : boolean;
       FSafeSearch             : boolean;
+      FOffline                : boolean;
       FYouTubeRestrict        : integer;
       FPrintingEnabled        : boolean;
       FWindowInfo             : TCefWindowInfo;
@@ -365,6 +366,7 @@ type
       procedure SetWindowlessFrameRate(aValue : integer);
       procedure SetAudioMuted(aValue : boolean);
       procedure SetSafeSearch(aValue : boolean);
+      procedure SetOffline(aValue : boolean);
       procedure SetYouTubeRestrict(aValue : integer);
       procedure SetPrintingEnabled(aValue : boolean);
       procedure SetAcceptLanguageList(const aValue : ustring);
@@ -693,6 +695,7 @@ type
       procedure   ResolveHost(const aURL : ustring);
       function    IsSameBrowser(const aBrowser : ICefBrowser) : boolean;
       function    ExecuteTaskOnCefThread(aCefThreadId : TCefThreadId; aTaskID : cardinal; aDelayMs : Int64 = 0) : boolean;
+      procedure   ClearCache;
 
       function    DeleteCookies(const url : ustring = ''; const cookieName : ustring = ''; aDeleteImmediately : boolean = False) : boolean;
       function    VisitAllCookies(aID : integer = 0) : boolean;
@@ -842,6 +845,7 @@ type
       property  Block3rdPartyCookies          : boolean                      read FBlock3rdPartyCookies        write SetBlock3rdPartyCookies;
       property  MultiBrowserMode              : boolean                      read FMultiBrowserMode            write SetMultiBrowserMode;
       property  DefaultWindowInfoExStyle      : cardinal                     read FDefaultWindowInfoExStyle    write FDefaultWindowInfoExStyle;
+      property  Offline                       : boolean                      read FOffline                     write SetOffline;
 
       property  WebRTCIPHandlingPolicy        : TCefWebRTCHandlingPolicy     read FWebRTCIPHandlingPolicy      write SetWebRTCIPHandlingPolicy;
       property  WebRTCMultipleRoutes          : TCefState                    read FWebRTCMultipleRoutes        write SetWebRTCMultipleRoutes;
@@ -1137,6 +1141,7 @@ begin
   FAcceptLanguageList     := '';
   FAcceptCookies          := cpAllow;
   FBlock3rdPartyCookies   := False;
+  FOffline                := False;
 
   //
   // Somo focus issues in CEF seem to be fixed when you use WS_EX_NOACTIVATE in
@@ -2937,6 +2942,26 @@ begin
     end;
 end;
 
+procedure TChromiumCore.SetOffline(aValue : boolean);
+var
+  TempParams : ICefDictionaryValue;
+begin
+  if (FOffline <> aValue) then
+    try
+      FOffline := aValue;
+
+      TempParams := TCefDictionaryValueRef.New;
+      TempParams.SetBool('offline', FOffline);
+      TempParams.SetDouble('latency', 0);
+      TempParams.SetDouble('downloadThroughput', 0);
+      TempParams.SetDouble('uploadThroughput', 0);
+
+      ExecuteDevToolsMethod(0, 'Network.emulateNetworkConditions', TempParams);
+    finally
+      TempParams := nil;
+    end;
+end;
+
 procedure TChromiumCore.SetYouTubeRestrict(aValue : integer);
 begin
   if (FYouTubeRestrict <> aValue) then
@@ -3641,6 +3666,11 @@ begin
   end;
 end;
 
+procedure TChromiumCore.ClearCache;
+begin
+  ExecuteDevToolsMethod(0, 'Network.clearBrowserCache', nil);
+end;
+
 function TChromiumCore.GetRequestContext : ICefRequestContext;
 begin
   if Initialized then

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 154,
+      "InternalVersion" : 155,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "83.4.2.0"
     }