paweld/simple-logger
1
0
Fork 0
mirror of https://github.com/paweld/simple-logger synced 2025-04-05 01:27:48 +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;
var
sleepms: Integer;
cs: Int64;
cs: QWord;
function GetSleepMs: Integer; inline;
begin
@ -433,7 +433,7 @@ var
end;
begin
sleepms := GetSleepMs;
sleepms := 0;
cs := GetTickCount64;
while not Terminated do
begin
@ -497,6 +497,8 @@ end;
destructor TLogger.Destroy;
begin
while FLogList.Count > 0 do
sleep(1);
if FSaveThread <> nil then
begin
FSaveThread.Terminate;