paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 10:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TTimespan overload. Mostly fixes #37495

Browse Source
This commit is contained in:
marcoonthegit 2023-05-20 16:40:52 +02:00
parent 452ec93f06
commit b77fec3433
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-base/src/syncobjs.pp
View File

@ -18,7 +18,7 @@ unit syncobjs;
interface
uses
sysutils;
sysutils,system.timespan;
type
PSecurityAttributes = Pointer;
@ -53,6 +53,9 @@ type
end;
THandleObject= class;
THandleObjectArray = array of THandleObject;
{ THandleObject }
THandleObject = class abstract (TSynchroObject)
protected
FHandle : TEventHandle;
@ -64,7 +67,8 @@ type
public
constructor Create(UseComWait : Boolean=false);
destructor Destroy; override;
function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;
function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;overload;
function WaitFor(const Timeout : TTimespan) : TWaitResult;overload;
{$IFDEF MSWINDOWS}
class function WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult;
{$ENDIF MSWINDOWS}
@ -193,6 +197,11 @@ begin
{$ENDIF OS2}
end;
function THandleObject.WaitFor(const Timeout: TTimespan): TWaitResult;
begin
result:=waitfor(round(timeout.TotalMilliseconds));
end;
{$IFDEF MSWINDOWS}
class function THandleObject.WaitForMultiple(const HandleObjs: THandleObjectArray; Timeout: Cardinal; AAll: Boolean; out SignaledObj: THandleObject; UseCOMWait: Boolean = False; Len: Integer = 0): TWaitResult;
var