TomBuzin/HDCApi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dalsi zmeny

Browse Source
This commit is contained in:
TomBuz
2026-03-03 16:18:27 +01:00
parent 03ff9ebc84
commit a62b608cfd
97 changed files with 4635 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
_custom/EMPolar/winSvc/mainSvcStart.inc Normal file
View File

@ -0,0 +1,22 @@
datMod.LogInfo (Quick.Logger.etInfo, 'Start sluzby EMP vytezovani dokumentu - inverval 10 sekund...');
{$IFDEF DEBUG}
WriteLn ('Start sluzby EMP vytezovani dokumentu - inverval 10 sekund...');
{$ENDIF}
empVytezovaniDokThr:= THeoEMPVytezovaniDokThread.Create (ThreadTerminated, self);
if (empVytezovaniDokThr<>nil) then
begin
if (empVytezovaniDokThr.Started) then
begin
datMod.LogInfo (Quick.Logger.etInfo, ' OK');
{$IFDEF DEBUG}
WriteLn (' OK');
{$ENDIF}
end;
end
else
begin
datMod.LogInfo (Quick.Logger.etInfo, ' thread empVytezovaniDokThr neni vytvoren');
{$IFDEF DEBUG}
WriteLn (' thread empVytezovaniDokThr neni vytvoren');
{$ENDIF}
end;