(PowerBuilder) 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

integer li_rc
oleobject loo_Json
oleobject loo_Dt
integer li_Success
integer li_BLocalTime

// 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.
loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("ntp_server","pool.ntp.org")

// Query the NTP server for the current date/time.
loo_Dt = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_Dt.ConnectToNewObject("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
li_Success = loo_Dt.SetFromNtpServer(loo_Json.Emit())
if li_Success = 0 then
    Write-Debug loo_Dt.LastErrorText
    destroy loo_Json
    destroy loo_Dt
    return
end if

// Show the date/time in various formats..
li_BLocalTime = 1
Write-Debug loo_Dt.GetAsTimestamp(li_BLocalTime)
Write-Debug loo_Dt.GetAsRfc822(li_BLocalTime)
Write-Debug string(loo_Dt.GetAsUnixTime(li_BLocalTime))

// Sample output:

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


destroy loo_Json
destroy loo_Dt