Delphi ActiveX Requires Chilkat v11.0.0+

Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object. Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
dtTime: TCkDateTime;
bLocalTime: Integer;
unixTime: Integer;
dtObj: TDtObj;

begin
success := 0;

email := TChilkatEmail.Create(Self);

//  Load a .eml file into the email object.
success := email.LoadEml('/home/users/chilkat/eml/myEml.eml');

dtTime := TCkDateTime.Create(Self);
dtTime.SetFromRfc822(email.EmailDateStr);

//  Once we have the CkDateTime object, we can get the date/time in many different formats:

//  Get as a RFC822 GMT string:
bLocalTime := 0;
Memo1.Lines.Add(dtTime.GetAsRfc822(bLocalTime));

//  Get as an RFC822 string in the local timezone.
//  (remember, the daylight savings that existed at the given time in the past is applied)
bLocalTime := 1;
Memo1.Lines.Add(dtTime.GetAsRfc822(bLocalTime));

//  Get as a 32-bit UNIX time (local or GMT..)
//  The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
unixTime := dtTime.GetAsUnixTime(bLocalTime);
Memo1.Lines.Add('Unix time: ' + IntToStr(unixTime));

//  One can also get the as a "DtObj" object for accessing the individual
//  parts of the date/time, such as month, day, year, hour, minute, etc.
//  The DtObj can be obtained in the GMT or local timezone:
dtObj := TDtObj.Create(Self);
dtTime.ToDtObj(bLocalTime,dtObj.ControlInterface);

if (dtTime.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add('This should never really happen!');
    Exit;
  end;

Memo1.Lines.Add(IntToStr(dtObj.Day) + '-' + IntToStr(dtObj.Month) + '-' + IntToStr(dtObj.Year) + ' ' + IntToStr(dtObj.Hour) + ':' + IntToStr(dtObj.Minute) + ':' + IntToStr(dtObj.Second));