System.ClickRecorder.Factory.pas

unit System.ClickRecorder.Factory;

interface

uses
  System.SysUtils,
  Winapi.Windows,
  System.ClickRecorder.Mousehook.Provider,
  System.ClickRecorder.Screenshot.Provider,
  System.ClickRecorder.Screenshot.SaveImageSequence.Provider;

type
  IClickRecorderFactory = interface(IInvokable)
    ['{C82F9D7E-BFF2-421E-92BE-FCAE84AA7908}']
    function OutDir(const AValue: string): IClickRecorderFactory; overload;
    function OutDir(): string; overload;

    function MousehookProvider(const AValue: IClickRecorderMousehookProvider): IClickRecorderFactory; overload;
    function MousehookProvider(): IClickRecorderMousehookProvider; overload;

    function ScreenshotProvider(const AValue: IClickRecorderScreenshotProvider): IClickRecorderFactory; overload;
    function ScreenshotProvider(): IClickRecorderScreenshotProvider; overload;

    function TriggerEvent(const AValue: TProc<TPoint>): IClickRecorderFactory; overload;
    function TriggerEvent(): TProc<TPoint>; overload;

    function IsRecording: Boolean;

    function Start(): IClickRecorderFactory;
    function Stop(): IClickRecorderFactory;
  end;

  TClickRecorderFactory = class(TInterfacedObject, IClickRecorderFactory)
  strict private
    FOutDir: string;
    FMousehookProvider: IClickRecorderMousehookProvider;
    FScreenshotProvider: IClickRecorderScreenshotProvider;
    FSaveImageSequenceProvider: IClickRecorderScreenshotSaveImageSequenceProvider;
    FTriggerEvent: TProc<TPoint>;
  private
    procedure Init();
  public
    constructor Create();
    destructor Destroy; override;

    function OutDir(const AValue: string): IClickRecorderFactory; overload;
    function OutDir(): string; overload;

    function MousehookProvider(const AValue: IClickRecorderMousehookProvider): IClickRecorderFactory; overload;
    function MousehookProvider(): IClickRecorderMousehookProvider; overload;

    function ScreenshotProvider(const AValue: IClickRecorderScreenshotProvider): IClickRecorderFactory; overload;
    function ScreenshotProvider(): IClickRecorderScreenshotProvider; overload;

    function TriggerEvent(const AValue: TProc<TPoint>): IClickRecorderFactory; overload;
    function TriggerEvent(): TProc<TPoint>; overload;

    function IsRecording: Boolean;

    function Start(): IClickRecorderFactory;
    function Stop(): IClickRecorderFactory;
  end;

implementation

uses
  //  System.Win.ComObj,
  //  Winapi.ActiveX,
  System.Classes,
  System.IOUtils;

{ TClickRecorderFactory }

constructor TClickRecorderFactory.Create;
begin
  inherited Create();
  FOutDir := String.Empty;
  FMousehookProvider := nil;
  FScreenshotProvider := nil;
  FSaveImageSequenceProvider := nil;
end;

destructor TClickRecorderFactory.Destroy;
begin
  //...
  inherited;
end;

function TClickRecorderFactory.MousehookProvider(const AValue: IClickRecorderMousehookProvider): IClickRecorderFactory;
begin
  FMousehookProvider := AValue;
  Result := Self;
end;

function TClickRecorderFactory.MousehookProvider: IClickRecorderMousehookProvider;
begin
  Result := FMousehookProvider;
end;

function TClickRecorderFactory.OutDir(const AValue: string): IClickRecorderFactory;
begin
  FOutDir := AValue;
  Result := Self;
end;

function TClickRecorderFactory.OutDir: string;
begin
  Result := FOutDir;
end;

function TClickRecorderFactory.ScreenshotProvider(const AValue: IClickRecorderScreenshotProvider): IClickRecorderFactory;
begin
  FScreenshotProvider := AValue;
  Result := Self;
end;

function TClickRecorderFactory.ScreenshotProvider: IClickRecorderScreenshotProvider;
begin
  if (not Assigned(FScreenshotProvider)) then
  begin
    FScreenshotProvider := TClickRecorderScreenshotProvider.Create;
    FScreenshotProvider
      .DrawCursor(True)
      .Monitor(0);
  end;

  Result :=  FScreenshotProvider;
end;

function TClickRecorderFactory.TriggerEvent(const AValue: TProc<TPoint>): IClickRecorderFactory;
begin
  FTriggerEvent := AValue;
  Result := Self;
end;

function TClickRecorderFactory.TriggerEvent: TProc<TPoint>;
begin
  Result := FTriggerEvent;
end;

procedure TClickRecorderFactory.Init;
begin
  FTriggerEvent :=
    procedure (APoint: TPoint)
    var
      T: TThread;
    begin
      T := TThread.CreateAnonymousThread(
        procedure
        begin
          FSaveImageSequenceProvider.SaveImage(ScreenshotProvider.TakeAScreenshot(APoint));
//          TThread.Synchronize(
//            TThread.CurrentThread,
//            procedure
//            begin
//            end);
        end);
//      T.FreeOnTerminate := False;
//      TThread.Sleep(0);
      T.Sleep(50);
      T.Start;

//      TThread.Synchronize(nil,
//        procedure
//        begin
//          CoInitializeEx(nil, COINIT_MULTITHREADED);
//          FSaveImageSequenceProvider.SaveImage(ScreenshotProvider.TakeAScreenshot(APoint));
//          CoUninitialize();
//        end);

    end;

  FMousehookProvider := TClickRecorderMousehookProvider.Create;
  FMousehookProvider
    .TriggerEvent(FTriggerEvent);

  FSaveImageSequenceProvider := TClickRecorderScreenshotSaveImageSequenceProvider.Create;
  FSaveImageSequenceProvider
    .OutDir(FOutDir);
end;

function TClickRecorderFactory.IsRecording: Boolean;
begin
  Result := (Assigned(FMousehookProvider) and FMousehookProvider.IsRecording);
end;

function TClickRecorderFactory.Start: IClickRecorderFactory;
begin
  if (not Assigned(FSaveImageSequenceProvider)) or (not Assigned(MousehookProvider())) then
  begin
    Init();
  end;

  if FMousehookProvider.IsRecording then
  begin
    Exit;
  end;

  FMousehookProvider
    .TriggerEvent(FTriggerEvent);

  FMousehookProvider.Start;
end;

function TClickRecorderFactory.Stop: IClickRecorderFactory;
begin
  if (not Assigned(FMousehookProvider)) or (ScreenshotProvider.IsRecording) then
  begin
    Exit;
  end;

  if FMousehookProvider.IsRecording then
  begin
    FMousehookProvider.Stop;
    FSaveImageSequenceProvider.ToZip;
  end;
end;

end.