TNTPClient

Return to Unit Services

public
`constructor Create;`
`destructor Destroy; override;`
private
`FLock:TMutexHandle;`

`FPollInterval:LongWord;`	How often to poll the server (in seconds)
`FPollTimeout:LongWord;`	How long before receive or send timeout occurs (in milliseconds)
`FPollRetries:LongWord;`	How many times to retry a poll

`FRetryTimeout:LongWord;`	How long to wait between poll retries (in milliseconds)

`FUseClockOffset:Boolean;`	Use the calculated NTP clock offset to update the local time
`FClockTolerance:LongWord;`	Milliseconds difference between local and remote to trigger a clock set

`FInitialClockGet:Boolean;`	Has the time been obtained at least once
`FInitialClockCount:LongWord;`	How many times have we tried to obtain the initial clock
`FInitialClockRetry:Boolean;`	Should the client setup a worker thread to retry until the initial clock has been set (Default: True)

`FTimerHandle:TTimerHandle;`	Handle for the NTP update timer

`function AcquireLock:Boolean;`
`function ReleaseLock:Boolean;`

`procedure SetPollInterval(APollInterval:LongWord);`
`procedure SetPollTimeout(APollTimeout:LongWord);`
`procedure SetPollRetries(APollRetries:LongWord);`

`procedure SetRetryTimeout(ARetryTimeout:LongWord);`

`procedure SetUseClockOffset(AUseClockOffset:Boolean);`
`procedure SetClockTolerance(AClockTolerance:LongWord);`

`procedure SetInitialClockGet(AInitialClockGet:Boolean);`
`procedure SetInitialClockCount(AInitialClockCount:LongWord);`

`procedure SetTimerHandle(ATimerHandle:TTimerHandle);`
public
`property PollInterval:LongWord read FPollInterval write SetPollInterval;`
`property PollTimeout:LongWord read FPollTimeout write SetPollTimeout;`
`property PollRetries:LongWord read FPollRetries write SetPollRetries;`

`property RetryTimeout:LongWord read FRetryTimeout write SetRetryTimeout;`

`property UseClockOffset:Boolean read FUseClockOffset write SetUseClockOffset;`
`property ClockTolerance:LongWord read FClockTolerance write SetClockTolerance;`

`property InitialClockGet:Boolean read FInitialClockGet write SetInitialClockGet;`
`property InitialClockCount:LongWord read FInitialClockCount write SetInitialClockCount;`
`property InitialClockRetry:Boolean read FInitialClockRetry write SetInitialClockRetry;`

`property TimerHandle:TTimerHandle read FTimerHandle write SetTimerHandle;`

`function GetTime:Int64;`

`procedure IncrementInitialClockCount;`

`function FormatTime(Time:Int64):String;`
`function FormatOffset(Offset:Int64):String;`

`function CalculateClockOffset(T1,T2,T3,T4:Int64):Int64;`
`function CalculateRoundtripDelay(T1,T2,T3,T4:Int64):Int64;`