paweld/simple-logger
1
0
Fork 0
mirror of https://github.com/paweld/simple-logger synced 2025-04-05 04:47:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixes related to waiting for the log to be written to a file

Browse Source 
tested on Windows
This commit is contained in:
Paweł Dmitruk 2024-02-10 09:11:37 +01:00 committed by GitHub
parent 8b98d1a9ca
commit 74ddb0e858
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
LPDLogU.pas
View File

@ -422,7 +422,7 @@ end;
procedure TSaveLogThread.Execute; procedure TSaveLogThread.Execute;
var var
sleepms: Integer; sleepms: Integer;
cs: Int64; cs: QWord;
function GetSleepMs: Integer; inline; function GetSleepMs: Integer; inline;
begin begin
@ -433,7 +433,7 @@ var
end; end;
begin begin
sleepms := GetSleepMs; sleepms := 0;
cs := GetTickCount64; cs := GetTickCount64;
while not Terminated do while not Terminated do
begin begin
@ -497,6 +497,8 @@ end;
destructor TLogger.Destroy; destructor TLogger.Destroy;
begin begin
while FLogList.Count > 0 do
sleep(1);
if FSaveThread <> nil then if FSaveThread <> nil then
begin begin
FSaveThread.Terminate; FSaveThread.Terminate;