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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    Handle hoDt
    Boolean iSuccess
    Boolean iBLocalTime
    String sTemp1
    Integer iTemp1

    // 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.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "ntp_server" "pool.ntp.org" To iSuccess

    // Query the NTP server for the current date/time.
    Get Create (RefClass(cComCkDateTime)) To hoDt
    If (Not(IsComObjectCreated(hoDt))) Begin
        Send CreateComObject of hoDt
    End
    // 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
    Get ComEmit Of hoJson To sTemp1
    Get ComSetFromNtpServer Of hoDt sTemp1 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoDt To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Show the date/time in various formats..
    Move True To iBLocalTime
    Get ComGetAsTimestamp Of hoDt iBLocalTime To sTemp1
    Showln sTemp1
    Get ComGetAsRfc822 Of hoDt iBLocalTime To sTemp1
    Showln sTemp1
    Get ComGetAsUnixTime Of hoDt iBLocalTime To iTemp1
    Showln iTemp1

    // Sample output:

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


End_Procedure