(Visual FoxPro) Query NTP Server for Current Date/Time

Demonstrates how to query an NTP server to get the current date/time.

Note: This feature was added in Chilkat v9.5.0.96.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJson
LOCAL loDt
LOCAL lnSuccess
LOCAL lnBLocalTime

* Specify the NTP server domain.
* Information is passed in a JSON object to allow for any unanticipated future optional information that might need to be provided.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("ntp_server","pool.ntp.org")

* Query the NTP server for the current date/time.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
* Note: The SetFromNtpServer method is available starting in v9.5.0.96 for most Chilkat builds, but not all.
* If the SetFromNtpServer method is not present, contact support@chilkatsoft.com for a hotfix build.
* It should be available in all programming languages/platforms starting in v9.5.0.97
lnSuccess = loDt.SetFromNtpServer(loJson.Emit())
IF (lnSuccess = 0) THEN
    ? loDt.LastErrorText
    RELEASE loJson
    RELEASE loDt
    CANCEL
ENDIF

* Show the date/time in various formats..
lnBLocalTime = 1
? loDt.GetAsTimestamp(lnBLocalTime)
? loDt.GetAsRfc822(lnBLocalTime)
? STR(loDt.GetAsUnixTime(lnBLocalTime))

* Sample output:

* 2023-10-31T09:43:27-05:00
* Tue, 31 Oct 2023 09:43:27 -0500
* 1698745407

RELEASE loJson
RELEASE loDt