serviceunit.pas

unit serviceunit;
//------------------------------------------------------------------------------
// Сервис
//------------------------------------------------------------------------------

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, DaemonApp, PipeCommThreadUnit,
  IniFiles, AtolKKTUnit, LoggerUnit;

const
  APP_NAME = 'AtolKKTService';

type

  { TAtolKKTService }

  TAtolKKTService = class(TDaemon)
    ApplicationProperties1: TApplicationProperties;
    procedure ApplicationProperties1Exception(Sender: TObject; E: Exception);
    procedure DataModuleContinue(Sender: TCustomDaemon; var OK: Boolean);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    //procedure DataModuleExecute(Sender: TCustomDaemon);
    procedure DataModuleShutDown(Sender: TCustomDaemon);
    procedure DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
    procedure DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
  private
    atol_cash_register_pipe: string;

    PipeComm: TPipeComm;

    procedure InitPipe;
    procedure ClosePipe;
  public

  end;

var
  AtolKKTService: TAtolKKTService;

implementation

procedure RegisterDaemon;
begin
  RegisterDaemonClass(TAtolKKTService)
end;

{$R *.lfm}

{ TAtolKKTService }

procedure TAtolKKTService.DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
var ini: TIniFile;
    local_log: boolean;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');

  local_log := ini.ReadBool('Logs','LocalLog',True);
  if (local_log) then
    MyLogger.startLog();

  //event_log := ini.ReadBool('Logs','EventLog',True);

  MyLogger.LogText('Служба запускается');

  atol_cash_register_pipe := ini.ReadString('Options','AtolCashRegisterPipe','');

  ini.Free;

  MyLogger.LogText('init pipe');

  // запускаем поток чтения PIPE
  InitPipe;
  MyLogger.LogText('pipe init is done');

  MyLogger.LogText('Служба запущена');
  OK := true;
  ReportStatus;
end;

procedure TAtolKKTService.DataModuleStop(Sender: TCustomDaemon; var OK: Boolean);
begin
  ClosePipe;
  MyLogger.LogText('pipe is closed (on stop)');
  OK := true;
  ReportStatus;
end;

procedure TAtolKKTService.ApplicationProperties1Exception(Sender: TObject; E: Exception);
var err_code: integer;
begin
  if (E is EATOLException) then
    begin
      err_code := (E as EATOLException).ErrorCode;
    end
  else err_code := 0;

  MyLogger.LogError(err_code, e.Message);
end;

procedure TAtolKKTService.DataModuleContinue(Sender: TCustomDaemon;
  var OK: Boolean);
begin
  MyLogger.LogText('Служба возобновлена!');
  OK := true;
  ReportStatus;
end;

procedure TAtolKKTService.DataModuleCreate(Sender: TObject);
begin

end;

procedure TAtolKKTService.DataModuleDestroy(Sender: TObject);
begin

end;

{
procedure TAtolKKTService.DataModuleExecute(Sender: TCustomDaemon);
begin
  MyLogger.LogText('Служба запущена!');

  ReportStatus;
end;
}

procedure TAtolKKTService.DataModuleShutDown(Sender: TCustomDaemon);
begin
  ClosePipe;
  MyLogger.LogText('pipe is closed (on shutdown)');
end;

procedure TAtolKKTService.InitPipe;
begin
  PipeComm := TPipeComm.Create(False, atol_cash_register_pipe);
end;

procedure TAtolKKTService.ClosePipe;
begin
  PipeComm.Terminate;
end;


initialization
  RegisterDaemon;
end.