(Delphi DLL) Get Current Date/Time from NIST Time Server

Demonstrates using Chilkat Socket to connect to an NIST time server and (using the old Time Protocol (RFC 868)), will read the current GMT time.

Note: This is not necessarily the very best means for getting the current date/time. The most commonly used time protocol is the Network Time Protocol (RFC-1305).

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, CkDateTime, Socket;

...

procedure TForm1.Button1Click(Sender: TObject);
var
socket: HCkSocket;
maxWaitMs: Integer;
useTls: Boolean;
success: Boolean;
bigEndian: Boolean;
dt: HCkDateTime;
bLocalTime: Boolean;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

socket := CkSocket_Create();

// Connect to an NIST time server and read the current date/time
maxWaitMs := 4000;
useTls := False;
success := CkSocket_Connect(socket,'time-c.nist.gov',37,useTls,maxWaitMs);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;

// The time server will send a big-endian 32-bit integer representing
// the number of seconds since since 00:00 (midnight) 1 January 1900 GMT.
// The ReceiveInt32 method will receive a 4-byte integer, but returns
// True or False to indicate success.  If successful, the integer
// is obtained via the ReceivedInt property.
bigEndian := True;
success := CkSocket_ReceiveInt32(socket,bigEndian);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSocket__lastErrorText(socket));
    Exit;
  end;

dt := CkDateTime_Create();
CkDateTime_SetFromNtpTime(dt,CkSocket_getReceivedInt(socket));

// Show the current local date/time
bLocalTime := True;
Memo1.Lines.Add('Current local date/time: ' + CkDateTime__getAsRfc822(dt,bLocalTime));

maxWaitMs := 10;
CkSocket_Close(socket,maxWaitMs);

CkSocket_Dispose(socket);
CkDateTime_Dispose(dt);

end;