Added Multi-Browser mode to TChromium

MiniBrowser demo now has the Multi-browser mode enabled. Added TChromium.MultiBrowserMode Added TChromium.BrowserById Added TChromium.BrowserCount Added TChromium.BrowserIdByIndex Added TChromium.SelectBrowser Added TChromium.CloseAllBrowsers Added TChromium.TryCloseBrowser
2025-07-12 22:30:17 +02:00 · 2020-05-07 11:46:48 +02:00
parent 5c2204b207
commit 132edb2e88
6 changed files with 883 additions and 437 deletions
--- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
+++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
@ -129,28 +129,48 @@ type
    Simulatekeyboardpresses1: TMenuItem;
    Flushcookies1: TMenuItem;
    Acceptlanguage1: TMenuItem;
+
    procedure FormShow(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+
+    procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
+
+    procedure Chromium1AfterCreated(Sender: TObject; const browser: ICefBrowser);
+    procedure Chromium1LoadingStateChange(Sender: TObject; const browser: ICefBrowser; isLoading, canGoBack, canGoForward: Boolean);
+    procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
+    procedure Chromium1AddressChange(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const url: ustring);
+    procedure Chromium1BeforeContextMenu(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const params: ICefContextMenuParams; const model: ICefMenuModel);
+    procedure Chromium1StatusMessage(Sender: TObject; const browser: ICefBrowser; const value: ustring);
+    procedure Chromium1TextResultAvailable(Sender: TObject; const aText: ustring);
+    procedure Chromium1FullScreenModeChange(Sender: TObject; const browser: ICefBrowser; fullscreen: Boolean);
+    procedure Chromium1PreKeyEvent(Sender: TObject; const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg; out isKeyboardShortcut, Result: Boolean);
+    procedure Chromium1KeyEvent(Sender: TObject; const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg; out Result: Boolean);
+    procedure Chromium1ContextMenuCommand(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const params: ICefContextMenuParams; commandId: Integer; eventFlags: Cardinal; out Result: Boolean);
+    procedure Chromium1PdfPrintFinished(Sender: TObject; aResultOK: Boolean);
+    procedure Chromium1ResourceResponse(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; const response: ICefResponse; out Result: Boolean);
+    procedure Chromium1ResolvedHostAvailable(Sender: TObject; result: Integer; const resolvedIps: TStrings);
+    procedure Chromium1PrefsAvailable(Sender: TObject; aResultOK: Boolean);
+    procedure Chromium1BeforeDownload(Sender: TObject; const browser: ICefBrowser; const downloadItem: ICefDownloadItem; const suggestedName: ustring; const callback: ICefBeforeDownloadCallback);
+    procedure Chromium1DownloadUpdated(Sender: TObject; const browser: ICefBrowser; const downloadItem: ICefDownloadItem; const callback: ICefDownloadItemCallback);
+    procedure Chromium1BeforeResourceLoad(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; const callback: ICefRequestCallback; out Result: TCefReturnValue);
+    procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
+    procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
+    procedure Chromium1RenderCompMsg(var aMessage : TMessage; var aHandled: Boolean);
+    procedure Chromium1LoadingProgressChange(Sender: TObject; const browser: ICefBrowser; const progress: Double);
+    procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer);
+    procedure Chromium1LoadError(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; errorCode: Integer; const errorText, failedUrl: ustring);
+    procedure Chromium1CertificateError(Sender: TObject; const browser: ICefBrowser; certError: Integer; const requestUrl: ustring; const sslInfo: ICefSslInfo; const callback: ICefRequestCallback; out Result: Boolean);
+    procedure Chromium1NavigationVisitorResultAvailable( const entry: ICefNavigationEntry; current: Boolean; index, total: Integer; var aResult: Boolean);
+    procedure Chromium1DownloadImageFinished(Sender: TObject; const imageUrl: ustring; httpStatusCode: Integer; const image: ICefImage);
+    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 BackBtnClick(Sender: TObject);
    procedure ForwardBtnClick(Sender: TObject);
    procedure ReloadBtnClick(Sender: TObject);
-    procedure Chromium1AfterCreated(Sender: TObject;
-      const browser: ICefBrowser);
-    procedure Chromium1LoadingStateChange(Sender: TObject;
-      const browser: ICefBrowser; isLoading, canGoBack,
-      canGoForward: Boolean);
-    procedure Chromium1TitleChange(Sender: TObject;
-      const browser: ICefBrowser; const title: ustring);
-    procedure Chromium1AddressChange(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      const url: ustring);
-    procedure Chromium1BeforeContextMenu(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      const params: ICefContextMenuParams; const model: ICefMenuModel);
-    procedure Chromium1StatusMessage(Sender: TObject;
-      const browser: ICefBrowser; const value: ustring);
-    procedure Chromium1TextResultAvailable(Sender: TObject;
-      const aText: ustring);
-    procedure PopupMenu1Popup(Sender: TObject);
    procedure DevTools1Click(Sender: TObject);
    procedure Preferences1Click(Sender: TObject);
    procedure ConfigBtnClick(Sender: TObject);
@ -160,82 +180,17 @@ type
    procedure Inczoom1Click(Sender: TObject);
    procedure Deczoom1Click(Sender: TObject);
    procedure Resetzoom1Click(Sender: TObject);
-    procedure Chromium1FullScreenModeChange(Sender: TObject;
-      const browser: ICefBrowser; fullscreen: Boolean);
-    procedure Chromium1PreKeyEvent(Sender: TObject;
-      const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg;
-      out isKeyboardShortcut, Result: Boolean);
-    procedure Chromium1KeyEvent(Sender: TObject;
-      const browser: ICefBrowser; const event: PCefKeyEvent; osEvent: PMsg;
-      out Result: Boolean);
-    procedure ApplicationEvents1Message(var Msg: tagMSG;
-      var Handled: Boolean);
    procedure Openfile1Click(Sender: TObject);
-    procedure Chromium1ContextMenuCommand(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      const params: ICefContextMenuParams; commandId: Integer;
-      eventFlags: Cardinal; out Result: Boolean);
-    procedure Chromium1PdfPrintFinished(Sender: TObject;
-      aResultOK: Boolean);
-    procedure Chromium1ResourceResponse(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      const request: ICefRequest; const response: ICefResponse;
-      out Result: Boolean);
    procedure StopBtnClick(Sender: TObject);
    procedure Resolvehost1Click(Sender: TObject);
-    procedure Chromium1ResolvedHostAvailable(Sender: TObject;
-      result: Integer; const resolvedIps: TStrings);
-    procedure Timer1Timer(Sender: TObject);
-    procedure Chromium1PrefsAvailable(Sender: TObject; aResultOK: Boolean);
-    procedure Chromium1BeforeDownload(Sender: TObject;
-      const browser: ICefBrowser; const downloadItem: ICefDownloadItem;
-      const suggestedName: ustring;
-      const callback: ICefBeforeDownloadCallback);
-    procedure Chromium1DownloadUpdated(Sender: TObject;
-      const browser: ICefBrowser; const downloadItem: ICefDownloadItem;
-      const callback: ICefDownloadItemCallback);
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-    procedure Chromium1BeforeResourceLoad(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      const request: ICefRequest; const callback: ICefRequestCallback;
-      out Result: TCefReturnValue);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-    procedure Chromium1Close(Sender: TObject; const browser: ICefBrowser;
-      var aAction : TCefCloseBrowserAction);
-    procedure Chromium1BeforeClose(Sender: TObject;
-      const browser: ICefBrowser);
-    procedure Chromium1RenderCompMsg(var aMessage : TMessage; var aHandled: Boolean);
-    procedure Chromium1LoadingProgressChange(Sender: TObject;
-      const browser: ICefBrowser; const progress: Double);
    procedure OpenfilewithaDAT1Click(Sender: TObject);
-    procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
-      const frame: ICefFrame; httpStatusCode: Integer);
    procedure Memoryinfo1Click(Sender: TObject);
-    procedure Chromium1LoadError(Sender: TObject;
-      const browser: ICefBrowser; const frame: ICefFrame;
-      errorCode: Integer; const errorText, failedUrl: ustring);
-    procedure Chromium1CertificateError(Sender: TObject;
-      const browser: ICefBrowser; certError: Integer;
-      const requestUrl: ustring; const sslInfo: ICefSslInfo;
-      const callback: ICefRequestCallback; out Result: Boolean);
-    procedure Chromium1NavigationVisitorResultAvailable(
-      const entry: ICefNavigationEntry; current: Boolean; index, total: Integer;
-      var aResult: Boolean);
    procedure Downloadimage1Click(Sender: TObject);
-    procedure Chromium1DownloadImageFinished(Sender: TObject;
-      const imageUrl: ustring; httpStatusCode: Integer;
-      const image: ICefImage);
    procedure Simulatekeyboardpresses1Click(Sender: TObject);
    procedure Flushcookies1Click(Sender: TObject);
-    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 Acceptlanguage1Click(Sender: TObject);
-    procedure Chromium1ZoomPctAvailable(Sender: TObject;
-      const aZoomPct: Double);
+    procedure PopupMenu1Popup(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);

  protected
    FResponse   : TStringList;
@ -497,7 +452,9 @@ end;

 procedure TMiniBrowserFrm.Chromium1Close(Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
 begin
-  if (browser <> nil) and (Chromium1.BrowserId = browser.Identifier) then
+  if (browser <> nil) and
+     (Chromium1.BrowserId = browser.Identifier) and
+     (CEFWindowParent1 <> nil) then
    begin
      PostMessage(Handle, CEF_DESTROY, 0, 0);
      aAction := cbaDelay;
@ -1023,7 +980,10 @@ begin
    begin
      FClosing := True;
      Visible  := False;
-      Chromium1.CloseBrowser(True);
+
+      // if TChromium.MultiBrowserMode is enabled then we have to close all
+      // stored browsers and not only the main browser.
+      Chromium1.CloseAllBrowsers;
    end;
 end;

@ -1034,7 +994,16 @@ begin
  FResponse            := TStringList.Create;
  FRequest             := TStringList.Create;
  FNavigation          := TStringList.Create;
-  Chromium1.DefaultURL := MINIBROWSER_HOMEPAGE;
+
+  // The MultiBrowserMode store all the browser references in TChromium.
+  // The first browser reference is the browser in the main form.
+  // When MiniBrowser allows CEF to create child popup browsers it will also
+  // store their reference inside TChromium and you can use all the TChromium's
+  // methods and properties to manipulate those browsers.
+  // To do that call TChromium.SelectBrowser with the browser ID that will be
+  // used when you call any method or property in TChromium.
+  Chromium1.MultiBrowserMode := True;
+  Chromium1.DefaultURL       := MINIBROWSER_HOMEPAGE;
 end;

 procedure TMiniBrowserFrm.FormDestroy(Sender: TObject);
@ -1074,7 +1043,7 @@ end;

 procedure TMiniBrowserFrm.BrowserDestroyMsg(var aMessage : TMessage);
 begin
-  CEFWindowParent1.Free;
+  FreeAndNil(CEFWindowParent1);
 end;

 procedure TMiniBrowserFrm.Acceptlanguage1Click(Sender: TObject);
--- a/demos/Lazarus/MiniBrowser/MiniBrowser.lps
+++ b/demos/Lazarus/MiniBrowser/MiniBrowser.lps
@ -10,7 +10,7 @@
        <IsPartOfProject Value="True"/>
        <TopLine Value="46"/>
        <CursorPos Y="65"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="22"/>
        <Loaded Value="True"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit0>
@ -22,13 +22,13 @@
        <ResourceBaseClass Value="Form"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
-        <TopLine Value="22"/>
-        <CursorPos X="37" Y="48"/>
-        <UsageCount Value="21"/>
+        <TopLine Value="509"/>
+        <CursorPos X="48" Y="543"/>
+        <UsageCount Value="22"/>
        <Bookmarks Count="3">
-          <Item0 Y="840" ID="1"/>
+          <Item0 Y="842" ID="1"/>
          <Item1 X="49" Y="61" ID="2"/>
-          <Item2 X="65" Y="1059" ID="3"/>
+          <Item2 X="65" Y="1073" ID="3"/>
        </Bookmarks>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
@ -43,7 +43,7 @@
        <EditorIndex Value="-1"/>
        <TopLine Value="69"/>
        <CursorPos X="86" Y="70"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="22"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit2>
      <Unit3>
@ -53,7 +53,7 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <EditorIndex Value="-1"/>
-        <UsageCount Value="21"/>
+        <UsageCount Value="22"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit3>
      <Unit4>
@ -182,7 +182,7 @@
        <UsageCount Value="10"/>
      </Unit21>
    </Units>
-    <JumpHistory Count="5" HistoryIndex="4">
+    <JumpHistory Count="10" HistoryIndex="9">
      <Position1>
        <Filename Value="MiniBrowser.lpr"/>
        <Caret Line="65" TopLine="46"/>
@ -203,6 +203,26 @@
        <Filename Value="uMiniBrowser.pas"/>
        <Caret Line="48" Column="37" TopLine="22"/>
      </Position5>
+      <Position6>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="310" Column="52" TopLine="295"/>
+      </Position6>
+      <Position7>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="1005" Column="88" TopLine="979"/>
+      </Position7>
+      <Position8>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="1037" Column="50" TopLine="996"/>
+      </Position8>
+      <Position9>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="1157" Column="62" TopLine="1129"/>
+      </Position9>
+      <Position10>
+        <Filename Value="uMiniBrowser.pas"/>
+        <Caret Line="214" Column="29" TopLine="191"/>
+      </Position10>
    </JumpHistory>
    <RunParams>
      <FormatVersion Value="2"/>
--- a/demos/Lazarus/MiniBrowser/uMiniBrowser.pas
+++ b/demos/Lazarus/MiniBrowser/uMiniBrowser.pas
@ -537,7 +537,9 @@ end;

 procedure TMiniBrowserFrm.Chromium1Close(Sender: TObject; const browser: ICefBrowser; var aAction : TCefCloseBrowserAction);
 begin
-  if (browser <> nil) and (Chromium1.BrowserId = browser.Identifier) then
+  if (browser <> nil) and
+     (Chromium1.BrowserId = browser.Identifier) and
+     (CEFWindowParent1 <> nil) then
    begin
      PostMessage(Handle, CEF_DESTROY, 0, 0);
      aAction := cbaDelay;
@ -989,7 +991,10 @@ begin
    begin
      FClosing := True;
      Visible  := False;
-      Chromium1.CloseBrowser(True);
+
+      // if TChromium.MultiBrowserMode is enabled then we have to close all
+      // stored browsers and not only the main browser.
+      Chromium1.CloseAllBrowsers;
    end;
 end;

@ -1000,7 +1005,16 @@ begin
  FResponse            := TStringList.Create;
  FRequest             := TStringList.Create;
  FNavigation          := TStringList.Create;
-  Chromium1.DefaultURL := MINIBROWSER_HOMEPAGE;
+
+  // The MultiBrowserMode store all the browser references in TChromium.
+  // The first browser reference is the browser in the main form.
+  // When MiniBrowser allows CEF to create child popup browsers it will also
+  // store their reference inside TChromium and you can use all the TChromium's
+  // methods and properties to manipulate those browsers.
+  // To do that call TChromium.SelectBrowser with the browser ID that will be
+  // used when you call any method or property in TChromium.
+  Chromium1.MultiBrowserMode := True;
+  Chromium1.DefaultURL       := MINIBROWSER_HOMEPAGE;
 end;

 procedure TMiniBrowserFrm.FormDestroy(Sender: TObject);
@ -1152,7 +1166,7 @@ end;

 procedure TMiniBrowserFrm.BrowserDestroyMsg(var aMessage : TMessage);
 begin
-  CEFWindowParent1.Free;
+  FreeAndNil(CEFWindowParent1);
 end;

 procedure TMiniBrowserFrm.AddURL(const aURL : string);
--- a/demos/Lazarus/ToolBoxBrowser2/ToolBoxBrowser2.lps
+++ b/demos/Lazarus/ToolBoxBrowser2/ToolBoxBrowser2.lps
@ -4,10 +4,11 @@
    <PathDelim Value="\"/>
    <Version Value="11"/>
    <BuildModes Active="Default"/>
-    <Units Count="2">
+    <Units Count="5">
      <Unit0>
        <Filename Value="ToolBoxBrowser2.lpr"/>
        <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="10"/>
        <CursorPos X="63" Y="20"/>
        <UsageCount Value="20"/>
@ -20,21 +21,56 @@
        <ComponentName Value="MainForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <TopLine Value="82"/>
-        <CursorPos X="87" Y="105"/>
+        <CursorPos X="55" Y="94"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit1>
+      <Unit2>
+        <Filename Value="..\..\..\source\uCEFConstants.pas"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="604"/>
+        <CursorPos X="3" Y="613"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\..\source\uCEFBufferPanel.pas"/>
+        <EditorIndex Value="4"/>
+        <TopLine Value="668"/>
+        <CursorPos X="76" Y="678"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="..\..\..\source\uCEFChromiumCore.pas"/>
+        <EditorIndex Value="3"/>
+        <TopLine Value="958"/>
+        <CursorPos X="28" Y="970"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit4>
    </Units>
-    <JumpHistory Count="1">
+    <JumpHistory Count="4" HistoryIndex="3">
      <Position1>
        <Filename Value="uMainForm.pas"/>
        <Caret Line="13" Column="49"/>
      </Position1>
+      <Position2>
+        <Filename Value="..\..\..\source\uCEFBufferPanel.pas"/>
+        <Caret Line="12" Column="57"/>
+      </Position2>
+      <Position3>
+        <Filename Value="..\..\..\source\uCEFConstants.pas"/>
+        <Caret Line="613" Column="3" TopLine="604"/>
+      </Position3>
+      <Position4>
+        <Filename Value="..\..\..\source\uCEFChromiumCore.pas"/>
+        <Caret Line="970" Column="42" TopLine="202"/>
+      </Position4>
    </JumpHistory>
    <RunParams>
      <FormatVersion Value="2"/>
--- a/source/uCEFChromiumCore.pas
+++ b/source/uCEFChromiumCore.pas
--- a/update_CEF4Delphi.json
+++ b/update_CEF4Delphi.json
@ -2,7 +2,7 @@
  "UpdateLazPackages" : [
    {
      "ForceNotify" : true,
-      "InternalVersion" : 131,
+      "InternalVersion" : 132,
      "Name" : "cef4delphi_lazarus.lpk",
      "Version" : "81.3.1.0"
    }