A: CEF TTask

Author: sxmxta

src/CEF_Events_Declaration.inc

@@ -220,3 +220,6 @@ procedure MenuButtonComponent_OnMenuButtonPressed(const Sender: TObject; const m
 {==TCEFTextfieldComponent==}
 procedure TextfieldComponent_OnTextfieldKeyEvent(const Sender: TObject; const textfield: ICefTextfield; const event: TCefKeyEvent; var aResult : boolean);
 procedure TextfieldComponent_OnAfterUserAction(const Sender: TObject; const textfield: ICefTextfield);
+
+// TTask
+procedure Task_OnExecute();

src/CEF_Events_Implement.inc

@@ -1158,3 +1158,9 @@ procedure TLCLEvent.TextfieldComponent_OnAfterUserAction(const Sender: TObject;
 begin
   SendEvent([textfield]);
 end;
+
+// TTask
+procedure TLCLEvent.Task_OnExecute();
+begin
+  SendEvent([]);
+end;

src/CEF_LCL_Component.inc

@@ -32,4 +32,4 @@ uCEFExtension,
 uCEF_LCL_Entity, uCEF_LCL_Application, uCEF_LCL_Event, uCEF_LCL_V8AccessorRef, uCEF_LCL_V8HandlerRef, uCEF_LCL_V8InterceptorRef, uCEF_LCL_PdfPrintCallbackRef, uCEF_LCL_ClientRef, uCEF_LCL_ClientHandlersRef, uCEF_LCL_ResourceRequestHandlerRef,
 uCEF_LCL_V8ArrayBufferReleaseCallbackRef, uCEF_LCL_ValueConvert, uCEF_LCL_CompletionCallbackRef, uCEF_LCL_ExtensionHandlerRef, uCEF_LCL_AccessibilityHandlerRef, uCEF_LCL_CookieCallbacksRef, uCEF_LCL_RequestContextRef, uCEF_LCL_SchemeHandlerFactoryRef, uCEF_LCL_ResponseFilterRef,
 uCEF_LCL_DomVisitorRef, uCEF_LCL_WinAPICallbackRef, uCEF_LCL_TString, uCEF_LCL_RunFileDialogCallbackRef, uCEF_LCL_DownloadImageCallbackRef, uCEF_LCL_MenuModelDelegateRef, uCEF_LCL_ViewDelegateRef, uCEF_LCL_BrowserViewDelegateRef, uCEF_LCL_ButtonDelegateRef,
-uCEF_LCL_MenuButtonDelegateRef, uCEF_LCL_PanelDelegateRef, uCEF_LCL_TextfieldDelegateRef,uCEF_LCL_WindowDelegateRef,
+uCEF_LCL_MenuButtonDelegateRef, uCEF_LCL_PanelDelegateRef, uCEF_LCL_TextfieldDelegateRef,uCEF_LCL_WindowDelegateRef, uCEF_LCL_Task,

src/CEF_LCL_Export.inc

@@ -105,6 +105,7 @@
 {$I CEF_LCL_StreamReader.inc}
 {$I CEF_LCL_StreamWriter.inc}
 {$I CEF_LCL_StringMultiMap.inc}
+{$I CEF_LCL_Task.inc}
 {$I CEF_LCL_Textfield.inc}
 {$I CEF_LCL_TextfieldComponent.inc}
 {$I CEF_LCL_TextfieldDelegate.inc}

src/CEF_LCL_MiscFunctions.inc

@@ -170,6 +170,28 @@ begin
   handleExceptionEnd
 end;
 
+
+function Misc_CefPostTask(aThreadId : TCefThreadId; const aTask: ICefTask) : LongBool; extdecl;
+begin
+  handleExceptionBegin
+  Result := CefPostTask(aThreadId, aTask);
+  handleExceptionEnd
+end;
+
+function Misc_CefPostDelayedTask(aThreadId : TCefThreadId; const aTask : ICefTask; var aDelayMs : Int64) : LongBool; extdecl;
+begin
+  handleExceptionBegin
+  Result := CefPostDelayedTask(aThreadId, aTask, aDelayMs);
+  handleExceptionEnd
+end;
+
+function Misc_CefCurrentlyOn(aThreadId : TCefThreadId) : LongBool; extdecl;
+begin
+  handleExceptionBegin
+  Result := CefCurrentlyOn(aThreadId);
+  handleExceptionEnd
+end;
+
 exports
   Misc_WindowInfoAsChild,
   Misc_WindowInfoAsPopUp,
@@ -192,4 +214,7 @@ exports
   Misc_InitializeWindowHandle,
   Misc_ValidCefWindowHandle,
   Misc_GetScreenDPI,
-  Misc_GetDeviceScaleFactor;
+  Misc_GetDeviceScaleFactor,
+  Misc_CefPostTask,
+  Misc_CefPostDelayedTask,
+  Misc_CefCurrentlyOn;

src/CEF_LCL_Task.inc

@@ -0,0 +1,39 @@
+
+//constructor
+function Task_Create(): TTask; extdecl;
+begin
+  handleExceptionBegin
+  Result := TTask.Create();
+  handleExceptionEnd
+end;
+
+//function
+function Task_OnlyPostTask(AObj: TTask; threadId: TCefThreadId): LongBool; extdecl;
+begin
+  handleExceptionBegin
+  Result := AObj.OnlyPostTask(threadId);
+  handleExceptionEnd
+end;
+
+//function
+function Task_OnlyPostDelayedTask(AObj: TTask; threadId: TCefThreadId; var delay: int64): LongBool; extdecl;
+begin
+  handleExceptionBegin
+  Result := AObj.OnlyPostDelayedTask(threadId, delay);
+  handleExceptionEnd
+end;
+
+//property event
+procedure Task_SetOnExecute(AObj: TTask; AEventData: Pointer); extdecl;
+begin
+  {$DEFINE EventMethodName := Task_OnExecute}
+  {$DEFINE EventName := OnExecute}
+  EventMethodCode
+end;
+
+
+exports
+  Task_Create,
+  Task_OnlyPostTask,
+  Task_OnlyPostDelayedTask,
+  Task_SetOnExecute;

src/uCEF_LCL_Task.pas

@@ -0,0 +1,101 @@
+//----------------------------------------
+// Copyright © yanghy. All Rights Reserved.
+
+// Licensed under Lazarus.modifiedLGPL
+//----------------------------------------
+
+unit uCEF_LCL_Task;
+
+{$mode objfpc}{$H+}
+{$I cef.inc}
+
+interface
+
+uses
+  Classes, SysUtils, uCEFInterfaces, uCEFTypes,
+  uCEFTask,
+  uCEFMiscFunctions;
+
+type
+
+  // TTask
+  TTaskExecute = procedure() of object;
+
+  /// <summary>
+  /// Implement this interface for asynchronous task execution. If the task is
+  /// posted successfully and if the associated message loop is still running then
+  /// the execute() function will be called on the target thread. If the task
+  /// fails to post then the task object may be destroyed on the source thread
+  /// instead of the target thread. For this reason be cautious when performing
+  /// work in the task object destructor.
+  /// </summary>
+  /// <remarks>
+  /// <para><see cref="uCEFTypes|TCefTask">Implements TCefTask</see></para>
+  /// <para><see href="https://bitbucket.org/chromiumembedded/cef/src/master/include/capi/cef_task_capi.h">CEF source file: /include/capi/cef_task_capi.h (cef_task_t)</see></para>
+  /// </remarks>
+  TTask = class(TCefTaskOwn)
+  protected
+    FOnly: boolean;
+    FOnExecute: TTaskExecute;
+    /// <summary>
+    /// Method that will be executed on the target thread.
+    /// </summary>
+    procedure Execute; override;
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+    function OnlyPostTask(threadId: TCefThreadId): Boolean;
+    function OnlyPostDelayedTask(threadId: TCefThreadId; Delay: int64): Boolean;
+  published
+    /// <summary>
+    /// Method that will be executed on the target thread.
+    /// </summary>
+    property OnExecute: TTaskExecute read FOnExecute write FOnExecute;
+  end;
+
+implementation
+
+constructor TTask.Create();
+begin
+  inherited Create;
+  FOnExecute := nil;
+  FOnly := True;
+end;
+
+destructor TTask.Destroy;
+begin
+  inherited Destroy;
+  FOnExecute := nil;
+end;
+
+function TTask.OnlyPostTask(threadId: TCefThreadId): Boolean;
+begin
+  Result := False;
+  if FOnly and assigned(FOnExecute) then
+  begin
+    CefPostTask(threadId, self);
+    FOnly := False;
+    Result := True;
+  end;
+end;
+
+function TTask.OnlyPostDelayedTask(threadId: TCefThreadId; Delay: int64): Boolean;
+begin
+  Result := False;
+  if FOnly and assigned(FOnExecute) then
+  begin
+    CefPostDelayedTask(threadId, self, Delay);
+    FOnly := False;
+    Result := True;
+  end;
+end;
+
+procedure TTask.Execute;
+begin
+  if assigned(FOnExecute) then
+  begin
+    FOnExecute();
+  end;
+end;
+
+end.