(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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.
Dim json As New Chilkat.JsonObject
Dim success As Boolean
success = json.UpdateString("ntp_server","pool.ntp.org")

// Query the NTP server for the current date/time.
Dim dt As New 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
Dim success As Boolean
success = dt.SetFromNtpServer(json.Emit())
If (success = False) Then
    System.DebugLog(dt.LastErrorText)
    Return
End If

// Show the date/time in various formats..
Dim bLocalTime As Boolean
bLocalTime = True
System.DebugLog(dt.GetAsTimestamp(bLocalTime))
System.DebugLog(dt.GetAsRfc822(bLocalTime))
System.DebugLog(Str(dt.GetAsUnixTime(bLocalTime)))

// Sample output:

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