diff --git a/source/uCEFApplicationCore.pas b/source/uCEFApplicationCore.pas index 733b3cdd..ecf09212 100644 --- a/source/uCEFApplicationCore.pas +++ b/source/uCEFApplicationCore.pas @@ -187,6 +187,7 @@ type FNetLogFile : ustring; FNetLogCaptureMode : TCefNetLogCaptureMode; FRemoteAllowOrigins : ustring; + FAutoAcceptCamAndMicCapture : boolean; // Fields used during the CEF initialization @@ -515,6 +516,7 @@ type property NetLogFile : ustring read FNetLogFile write FNetLogFile; // --log-net-log property NetLogCaptureMode : TCefNetLogCaptureMode read FNetLogCaptureMode write FNetLogCaptureMode; // --net-log-capture-mode property RemoteAllowOrigins : ustring read FRemoteAllowOrigins write FRemoteAllowOrigins; // --remote-allow-origins + property AutoAcceptCamAndMicCapture : boolean read FAutoAcceptCamAndMicCapture write FAutoAcceptCamAndMicCapture; // --auto-accept-camera-and-microphone-capture // Properties used during the CEF initialization property WindowsSandboxInfo : Pointer read FWindowsSandboxInfo write FWindowsSandboxInfo; @@ -769,6 +771,7 @@ begin FNetLogFile := ''; FNetLogCaptureMode := nlcmDefault; FRemoteAllowOrigins := ''; + FAutoAcceptCamAndMicCapture := False; // Fields used during the CEF initialization FWindowsSandboxInfo := nil; @@ -2143,6 +2146,9 @@ begin if (length(FRemoteAllowOrigins) > 0) then ReplaceSwitch(aKeys, aValues, '--remote-allow-origins', FRemoteAllowOrigins); + if FAutoAcceptCamAndMicCapture then + ReplaceSwitch(aKeys, aValues, '--auto-accept-camera-and-microphone-capture'); + if FNetLogEnabled then begin ReplaceSwitch(aKeys, aValues, '--log-net-log', FNetLogFile); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 98c8ab59..1bf2483f 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 491, + "InternalVersion" : 492, "Name" : "cef4delphi_lazarus.lpk", "Version" : "114.2.11" }