Delphi ActiveX

Transition from Email.GetDt to Email.EmailDateStr

Provides instructions for replacing deprecated GetDt method calls with EmailDateStr. Delphi ActiveX

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
email: TChilkatEmail;
dateTimeObj: ICkDateTime;
dt: TCkDateTime;

begin
email := TChilkatEmail.Create(Self);

// ...
// ...

// ------------------------------------------------------------------------
// The GetDt method is deprecated:

dateTimeObj := email.GetDt();
if (email.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

// ...
// ...

// ------------------------------------------------------------------------
// Do the equivalent using EmailDateStr.

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