Xbase++

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.

Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL oDt
LOCAL nBLocalTime

nSuccess := 0

//  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.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("ntp_server", "pool.ntp.org")

//  Query the NTP server for the current date/time.
oDt := CreateObject("Chilkat.CkDateTime")
nSuccess := oDt:SetFromNtpServer(oJson:Emit())
IF (nSuccess == 0)
    ? oDt:LastErrorText
    oJson:destroy()
    oDt:destroy()
    RETURN
ENDIF

//  Show the date/time in various formats..
nBLocalTime := 1
? oDt:GetAsTimestamp(nBLocalTime)
? oDt:GetAsRfc822(nBLocalTime)
? Str(oDt:GetAsUnixTime(nBLocalTime))

//  Sample output:

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

oJson:destroy()
oDt:destroy()