Italian community of Lazarus and Free Pascal

TWebServiceDaemon = class(TCustomDaemon) 
private
    FDaemonWorkerThread : TDaemonWorkerThread;
    FDieDaemon : TSimpleEvent;

    procedure ThreadStopped (Sender : TObject);
  public
    function Start : Boolean; override;
    function Stop : Boolean; override;
    Function ShutDown : Boolean; override;
  end; 

procedure TWebServiceDaemon.ThreadStopped(Sender: TObject);
begin
  FreeAndNil(FDaemonWorkerThread);
  FreeAndNil(FDieDaemon);
end; 

function TWebServiceDaemon.Start: Boolean;
begin
  Result:=inherited Start;

  // Service started
  FDieDaemon := TSimpleEvent.Create;
  FDaemonWorkerThread := TDaemonWorkerThread.Create(FDieDaemon);
  FDaemonWorkerThread.OnTerminate:=@ThreadStopped;
  FDaemonWorkerThread.FreeOnTerminate:=False;
  FDaemonWorkerThread.Start;
end;

function TWebServiceDaemon.Stop: Boolean;
begin
  Result:=inherited Stop;
  //Service stopped
  FDaemonWorkerThread.LetsGoEvent.SetEvent;
  FDieDaemon.ResetEvent;
  FDaemonWorkerThread.Terminate;
  FDieDaemon.WaitFor(5000);
end;

function TWebServiceDaemon.ShutDown: Boolean;
begin
  Result:= Stop;
end;

  TDaemonWorkerThread = class (TThread)
  private
    FServer: TIlmioserverHTTPConLaSuaBellaImplementazione;
    FLetsGoEvent : TSimpleEvent;
    FLetsDieEvent : TSimpleEvent;
  protected
    procedure Execute; override;
  public
    constructor Create (aLetsDieEvent : TSimpleEvent); reintroduce;
    destructor Destroy; override;

    property LetsGoEvent : TSimpleEvent read FLetsGoEvent;
  end;

constructor TDaemonWorkerThread.Create(aLetsDieEvent : TSimpleEvent);
begin
  inherited Create(false);

  FLetsGoEvent := TSimpleEvent.Create;
  FLetsGoEvent.ResetEvent;
  FLetsDieEvent := aLetsDieEvent;

  FServer := TIlmioserverHTTPConLaSuaBellaImplementazione.Create(...);
  FServer.InizializzoQuelloCheServe;
end;

destructor TDaemonWorkerThread.Destroy;
begin
  FLetsGoEvent.Free;
  FreeAndNil(FServer);
  inherited Destroy;
end;


procedure TDaemonWorkerThread.Execute;
begin
  // Daemon worker thread executing
  while not Terminated do
  begin
    if not FServer.Attivo then
    begin
      FServer.VoglioCheTiAttivi;

      // Server running
    end;
    if not Terminated then
    begin
      // Daemon worker thread waiting...
      FLetsGoEvent.WaitFor(INFINITE);
      FLetsGoEvent.ResetEvent;
      // Daemon worker thread resumed!
    end;
  end;
  if FServer.SeiAttivo? then
  begin
    FServer.VoglioCheTiChiudi;
    // server closed
  end;
  Sleep (500); // questo alle volte aiuta se il server impiega un po' a tirarsi giù.... ma devi valutare tu, magari puoi passare una callback al server...
  FLetsDieEvent.SetEvent;
  // Daemon worker thread terminated
end;