From 0aa4ac493acbde4ea32b1b7994a5d02d9ac01987 Mon Sep 17 00:00:00 2001
From: Eric Grange <egrange@creative-it.net>
Date: Fri, 22 Jan 2021 17:43:17 +0100
Subject: [PATCH] Updated for CEF 88.1.4 (Chromium 88.0.4324.96)

---
 cefHtmlSnapshot.dpr        |   8 ++++++++
 cefHtmlSnapshot.dproj      |   3 ++-
 cefHtmlSnapshot.res        | Bin 117224 -> 117228 bytes
 uCEFSnapshotParameters.pas |   6 +++---
 uEncapsulatedBrowser.pas   |   9 +++++----
 5 files changed, 18 insertions(+), 8 deletions(-)

diff --git a/cefHtmlSnapshot.dpr b/cefHtmlSnapshot.dpr
index a1ac483..cd02041 100644
--- a/cefHtmlSnapshot.dpr
+++ b/cefHtmlSnapshot.dpr
@@ -39,6 +39,8 @@ program cefHtmlSnapshot;
 
 {$I cef.inc}
 
+{.$define USE_BUNDLE}
+
 {$APPTYPE CONSOLE}
 
 {$IFDEF WIN32}
@@ -58,6 +60,7 @@ uses
   SysUtils,
   {$ENDIF }
   uCEFApplication, uCEFApplicationCore,
+  {$ifdef USE_BUNDLE} UChromiumBundle,{$endif}
   uEncapsulatedBrowser in 'uEncapsulatedBrowser.pas',
   uCEFBrowserThread in 'uCEFBrowserThread.pas',
   uCEFSnapshotParameters in 'uCEFSnapshotParameters.pas';
@@ -134,7 +137,12 @@ begin
    end;
    try
       try
+         {$ifdef USE_BUNDLE}
+         vChromiumBundleQuickCheck := True;
+         CreateGlobalCEFApp(parameters, ChromiumUnBundledPath);
+         {$else}
          CreateGlobalCEFApp(parameters);
+         {$endif}
          if WaitForMainAppEvent then
             WriteResult;
       except
diff --git a/cefHtmlSnapshot.dproj b/cefHtmlSnapshot.dproj
index 3d00d6c..8dcd62e 100644
--- a/cefHtmlSnapshot.dproj
+++ b/cefHtmlSnapshot.dproj
@@ -95,7 +95,8 @@
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>1</VerInfo_MinorVer>
-        <VerInfo_Keys>CompanyName=delphitools.info;FileDescription=$(MSBuildProjectName);FileVersion=0.1.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=delphitools.info;FileDescription=$(MSBuildProjectName);FileVersion=0.1.88.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Release>88</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
diff --git a/cefHtmlSnapshot.res b/cefHtmlSnapshot.res
index 75d5418459fc658fabd184cbc7605e22d33e3b65..30c43ae2f8cb3c17fbd508fa88cd1456ff481132 100644
GIT binary patch
delta 60
zcmaDcnf=XV_6Z7%ITID-frO(eW5mRARmL+D=PEO<n0Rn8vk?R5<a9<=P74ML20aD?
Q28QN|jN2zNGKQZ30A^PbU;qFB

delta 56
zcmaDenf=9N_6Z7%850%dfrO(eBg4dURmKw&=PENUnRsw9vjGFg<a9<=Rs#k-27~6Q
MjN7L&GKQZ302wzCxc~qF

diff --git a/uCEFSnapshotParameters.pas b/uCEFSnapshotParameters.pas
index b879030..3eaa0f5 100644
--- a/uCEFSnapshotParameters.pas
+++ b/uCEFSnapshotParameters.pas
@@ -7,7 +7,7 @@ interface
    uCEFTypes, uCEFMiscFunctions;
 
 const
-   cChromiumSubFolder = 'Chromium87';
+   cChromiumSubFolder = 'Chromium88';
    cDLLSubfolder = 'Libraries';
 
 type
@@ -46,8 +46,8 @@ implementation
 uses LibTurboJPEG, Vcl.Imaging.pngimage, System.StrUtils;
 
 const
-   cHelp = 'cefHtmlSnaphot utility v0.1 - Html to image or pdf coversion using Chromium Embedded Framework'#10
-         + 'Using CEF 87.1.12.0, CEF4Delphi, TurboJPEG see https://github.com/EricGrange/cefHtmlSnapshot'#10#10
+   cHelp = 'cefHtmlSnaphot utility v0.1.88 - Html to image or pdf coversion using Chromium Embedded Framework'#10
+         + 'Using CEF 88.0.4324.96, CEF4Delphi, TurboJPEG see https://github.com/EricGrange/cefHtmlSnapshot'#10#10
          + 'cefHtmlSnapshot.exe url_or_file [-arg1 value1] [-arg2 value2] ... output_file'#10
          + #10
          + '  -?, -h, --help    This inline documentation'#10
diff --git a/uEncapsulatedBrowser.pas b/uEncapsulatedBrowser.pas
index 6c4d9c6..7513550 100644
--- a/uEncapsulatedBrowser.pas
+++ b/uEncapsulatedBrowser.pas
@@ -68,7 +68,7 @@   TEncapsulatedBrowser = class
       property ErrorText       : ustring    read FErrorText;
   end;
 
-procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters);
+procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters; const chromiumPath : String = '');
 function  WaitForMainAppEvent : boolean;
 procedure WriteResult;
 
@@ -111,7 +111,7 @@ procedure WriteResult;
       WriteLn('Snapshot saved successfully as ' + EncapsulatedBrowser.Parameters.OutputFilePath);
 end;
 
-procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters);
+procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters; const chromiumPath : String = '');
 begin
    GlobalCEFApp                            := TCefApplication.Create;
    GlobalCEFApp.WindowlessRenderingEnabled := True;
@@ -124,7 +124,9 @@ procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters);
    GlobalCEFApp.OnContextInitialized       := GlobalCEFApp_OnContextInitialized;
    GlobalCEFApp.BrowserSubprocessPath      := 'cefHtmlSnapshot.exe'; // This is the other EXE for the CEF subprocesses. It's on the same directory as this app.
 
-   SetCurrentDir(ExtractFilePath(ParamStr(0)) + cChromiumSubFolder);
+   if chromiumPath = '' then
+      SetCurrentDir(ExtractFilePath(ParamStr(0)) + cChromiumSubFolder)
+   else SetCurrentDir(chromiumPath);
    vParameters := parameters;
 
    GlobalCEFApp.EnableGPU := False;
@@ -134,7 +136,6 @@ procedure CreateGlobalCEFApp(const parameters : TSnapshotParameters);
    GlobalCEFApp.EnablePrintPreview := False;
    GlobalCEFApp.DisableJavascriptAccessClipboard := True;
    GlobalCEFApp.DisableSpellChecking := True;
-   GlobalCEFApp.FlashEnabled := False;
    GlobalCEFApp.MuteAudio := True;
    GlobalCEFApp.AllowFileAccessFromFiles := True;
    GlobalCEFApp.EnableMediaStream := False;