TCefFileDialogMode and TCefDuplexMode defined as constants

- Added more parameter checks in CefRegisterExtension
- Minor change registering the extension in JSExtension demo. The TempHandler reference is valid until it reaches the "finally".

demos/JavaScript/JSExtension/00-DeleteDCUs.bat

@@ -9,6 +9,7 @@ del /s /q *.local
 del /s /q *.~*
 rmdir Win32\Debug
 rmdir Win32\Release
+rmdir "Win32\Debug with log"
 rmdir Win32
 rmdir __history
 rmdir __recovery

demos/JavaScript/JSExtension/JSExtension.dproj

@@ -45,6 +45,17 @@
         <Cfg_2>true</Cfg_2>
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug with log' or '$(Cfg_3)'!=''">
+        <Cfg_3>true</Cfg_3>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_3)'=='true') or '$(Cfg_3_Win32)'!=''">
+        <Cfg_3_Win32>true</Cfg_3_Win32>
+        <CfgParent>Cfg_3</CfgParent>
+        <Cfg_3>true</Cfg_3>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <VerInfo_Locale>3082</VerInfo_Locale>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
@@ -102,6 +113,22 @@
         <AppEnableHighDPI>true</AppEnableHighDPI>
         <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_3)'!=''">
+        <DCC_Define>DEBUG;INTFLOG;$(DCC_Define)</DCC_Define>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_3_Win32)'!=''">
+        <DCC_RunTimeTypeInfo>true</DCC_RunTimeTypeInfo>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
+        <DCC_RangeChecking>true</DCC_RangeChecking>
+        <DCC_MapFile>3</DCC_MapFile>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
@@ -113,17 +140,21 @@
         <DCCReference Include="uSimpleTextViewer.pas">
             <Form>SimpleTextViewerFrm</Form>
         </DCCReference>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
         </BuildConfiguration>
-        <BuildConfiguration Include="Base">
-            <Key>Base</Key>
-        </BuildConfiguration>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_1</Key>
             <CfgParent>Base</CfgParent>
         </BuildConfiguration>
+        <BuildConfiguration Include="Debug with log">
+            <Key>Cfg_3</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
     </ItemGroup>
     <ProjectExtensions>
         <Borland.Personality>Delphi.Personality.12</Borland.Personality>

demos/JavaScript/JSExtension/uJSExtension.pas

@@ -202,15 +202,23 @@ begin
                        '  };' +
                        '})();';
 
+  try
     TempHandler := TTestExtensionHandler.Create;
-
     CefRegisterExtension('myextension', TempExtensionCode, TempHandler);
+  finally
+    TempHandler := nil;
+  end;
 end;
 
 procedure CreateGlobalCEFApp;
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitialized;
+
+  {$IFDEF INTFLOG}
+  GlobalCEFApp.LogFile             := 'debug.log';
+  GlobalCEFApp.LogSeverity         := LOGSEVERITY_INFO;
+  {$ENDIF}
 end;
 
 procedure TJSExtensionFrm.GoBtnClick(Sender: TObject);

demos/SubProcess/uSimpleBrowser.pas

@@ -126,6 +126,7 @@ end;
 procedure TForm1.FormShow(Sender: TObject);
 begin
   Caption := 'Simple Browser - Initializing browser. Please wait...';
+
   ChromiumWindow1.ChromiumBrowser.OnBeforePopup        := Chromium_OnBeforePopup;
 
   // You *MUST* call CreateBrowser to create and initialize the browser.

source/uCEFConstants.pas

@@ -222,6 +222,10 @@ const
   DRAG_OPERATION_EVERY    = $FFFFFFFF;
 
   // /include/internal/cef_types.h (cef_file_dialog_mode_t)
+  FILE_DIALOG_OPEN                 = $00000000;
+  FILE_DIALOG_OPEN_MULTIPLE        = $00000001;
+  FILE_DIALOG_OPEN_FOLDER          = $00000002;
+  FILE_DIALOG_SAVE                 = $00000003;
   FILE_DIALOG_TYPE_MASK            = $000000FF;
   FILE_DIALOG_OVERWRITEPROMPT_FLAG = $01000000;
   FILE_DIALOG_HIDEREADONLY_FLAG    = $02000000;
@@ -326,6 +330,12 @@ const
   LOGSEVERITY_ERROR    = 4;
   LOGSEVERITY_DISABLE  = 99;
 
+  // /include/internal/cef_types.h (cef_duplex_mode_t)
+  DUPLEX_MODE_UNKNOWN    = -1;
+  DUPLEX_MODE_SIMPLEX    = 0;
+  DUPLEX_MODE_LONG_EDGE  = 1;
+  DUPLEX_MODE_SHORT_EDGE = 2;
+
 
 //******************************************************
 //****************** OTHER CONSTANTS *******************

source/uCEFMiscFunctions.pas

@@ -362,7 +362,10 @@ function CefRegisterExtension(const name, code: ustring; const Handler: ICefv8Ha
 var
   TempName, TempCode : TCefString;
 begin
-  if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
+  if (GlobalCEFApp <> nil)  and
+     GlobalCEFApp.LibLoaded and
+     (length(name) > 0)     and
+     (length(code) > 0)     then
     begin
       TempName := CefString(name);
       TempCode := CefString(code);

source/uCEFTypes.pas

@@ -276,6 +276,9 @@ type
   TCefJsonWriterOptions            = Cardinal;    // /include/internal/cef_types.h (cef_json_writer_options_t)
   TCefSSLContentStatus             = Cardinal;    // /include/internal/cef_types.h (cef_ssl_content_status_t)
   TCefLogSeverity                  = Cardinal;    // /include/internal/cef_types.h (cef_log_severity_t)
+  TCefFileDialogMode               = Cardinal;    // /include/internal/cef_types.h (cef_file_dialog_mode_t)
+  TCefDuplexMode                   = Integer;     // /include/internal/cef_types.h (cef_duplex_mode_t)
+
 
 {$IFDEF FPC}
   NativeInt   = PtrInt;
@@ -577,17 +580,6 @@ type
     MENUITEMTYPE_SUBMENU
   );
 
-  // /include/internal/cef_types.h (cef_file_dialog_mode_t)
-  TCefFileDialogMode = (
-    FILE_DIALOG_OPEN,
-    FILE_DIALOG_OPEN_MULTIPLE,
-    FILE_DIALOG_OPEN_FOLDER,
-    FILE_DIALOG_SAVE,
-    FILE_DIALOG_TYPE_MASK = $FF,
-    FILE_DIALOG_OVERWRITEPROMPT_FLAG = $01000000,
-    FILE_DIALOG_HIDEREADONLY_FLAG = $02000000
-  );
-
   // /include/internal/cef_types.h (cef_focus_source_t)
   TCefFocusSource = (
     FOCUS_SOURCE_NAVIGATION = 0,
@@ -860,14 +852,6 @@ type
     COLOR_MODEL_PROCESSCOLORMODEL_RGB
   );
 
-  // /include/internal/cef_types.h (cef_duplex_mode_t)
-  TCefDuplexMode = (
-    DUPLEX_MODE_UNKNOWN = -1,
-    DUPLEX_MODE_SIMPLEX,
-    DUPLEX_MODE_LONG_EDGE,
-    DUPLEX_MODE_SHORT_EDGE
-  );
-
   // /include/internal/cef_types.h (cef_json_parser_options_t)
   TCefJsonParserOptions = (
     JSON_PARSER_RFC = 0,

source/uCEFv8Context.pas

@@ -79,7 +79,7 @@ uses
 
 class function TCefv8ContextRef.Current: ICefv8Context;
 begin
-  Result := UnWrap(cef_v8context_get_current_context())
+  Result := UnWrap(cef_v8context_get_current_context());
 end;
 
 function TCefv8ContextRef.Enter: Boolean;
@@ -89,7 +89,7 @@ end;
 
 class function TCefv8ContextRef.Entered: ICefv8Context;
 begin
-  Result := UnWrap(cef_v8context_get_entered_context())
+  Result := UnWrap(cef_v8context_get_entered_context());
 end;
 
 function TCefv8ContextRef.Exit: Boolean;