(Delphi ActiveX) JSON Date Parsing

Demonstrates how to parse date/time strings from JSON.

Note: This example uses the DtOf and DateOf methods introduced in Chilkat v9.5.0.73

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
json: TChilkatJsonObject;
dateTime: TCkDateTime;
dt: TDtObj;
getAsLocal: Integer;

begin
json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;

// First, let's create JSON containing some date/time strings.
json.UpdateString('test.timestamp','2018-01-30T20:35:00Z');
json.UpdateString('test.rfc822','Tue, 24 Apr 2018 08:47:03 -0500');
json.UpdateString('test.dateStrings[0]','2018-01-30T20:35:00Z');
json.UpdateString('test.dateStrings[1]','Tue, 24 Apr 2018 08:47:03 -0500');
json.UpdateNumber('test.StartLoggingTime','1446834998.695');
json.UpdateNumber('test.Expiration','1442877512.0');
json.UpdateInt('test.StartTime',1518867432);

Memo1.Lines.Add(json.Emit());

// We've built the following JSON:

// {
//   "test": {
//     "timestamp": "2018-01-30T20:35:00Z",
//     "rfc822": "Tue, 24 Apr 2018 08:47:03 -0500",
//     "dateStrings": [
//       "2018-01-30T20:35:00Z",
//       "Tue, 24 Apr 2018 08:47:03 -0500"
//     ],
//     "StartLoggingTime": 1446834998.695,
//     "Expiration": 1442877512.0,
//     "StartTime": 1518867432
//   }
// }

// Use the DateOf and DtOf methods to load Chilkat date/time objects with the date/time values.
// The CkDateTime object is primarily for loading a date/time from numerous formats, and then getting
// the date/time in various formats.  Thus, it's primarly for date/time format conversion.
// The DtObj object holds a date/time where the individual components (day, month, year, hour, minutes, etc.) are 
// immediately accessible as integers.
dateTime := TCkDateTime.Create(Self);
dt := TDtObj.Create(Self);
getAsLocal := 0;

// Load the date/time at test.timestamp into the dateTime object.
success := json.DateOf('test.timestamp',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));
Memo1.Lines.Add(IntToStr(dateTime.GetAsUnixTime(0)));
Memo1.Lines.Add(dateTime.GetAsRfc822(getAsLocal));

success := json.DateOf('test.rfc822',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

json.I := 0;
success := json.DateOf('test.dateStrings[i]',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

json.I := 1;
success := json.DateOf('test.dateStrings[i]',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

success := json.DateOf('test.StartLoggingTime',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

success := json.DateOf('test.Expiration',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

success := json.DateOf('test.StartTime',dateTime.ControlInterface);
Memo1.Lines.Add(dateTime.GetAsTimestamp(getAsLocal));

// Output so far:

// 	2018-01-30T20:35:00Z
// 	1517344500
// 	Tue, 30 Jan 2018 20:35:00 GMT
// 	2018-04-24T13:47:03Z
// 	2018-01-30T20:35:00Z
// 	2018-04-24T13:47:03Z
// 	2015-11-07T00:36:38Z
// 	2015-09-22T04:18:32Z
// 	2018-02-17T17:37:12Z

// Now load the date/time strings into the dt object:
success := json.DtOf('test.timestamp',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

success := json.DtOf('test.rfc822',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

json.I := 0;
success := json.DtOf('test.dateStrings[i]',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

json.I := 1;
success := json.DtOf('test.dateStrings[i]',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

success := json.DtOf('test.StartLoggingTime',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

success := json.DtOf('test.Expiration',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

success := json.DtOf('test.StartTime',getAsLocal,dt.ControlInterface);
Memo1.Lines.Add('month=' + IntToStr(dt.Month) + ', day=' + IntToStr(dt.Day) + ', year=' + IntToStr(dt.Year) + ', hour='
     + IntToStr(dt.Hour) + ', minute=' + IntToStr(dt.Minute));

// Output:

// month=1, day=30, year=2018, hour=20, minute=35
// month=4, day=24, year=2018, hour=13, minute=47
// month=1, day=30, year=2018, hour=20, minute=35
// month=4, day=24, year=2018, hour=13, minute=47
// month=11, day=6, year=2015, hour=18, minute=36
// month=9, day=21, year=2015, hour=23, minute=18
// month=2, day=17, year=2018, hour=11, minute=37
end;