Delphi ActiveX

Transition from Cert.GetValidToDt to Cert.ValidToStr

Provides instructions for replacing deprecated GetValidToDt method calls with ValidToStr. 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
cert: TChilkatCert;
ckdt1: ICkDateTime;
ckdt2: TCkDateTime;

begin
cert := TChilkatCert.Create(Self);

// ------------------------------------------------------------------------
// The GetValidToDt method is deprecated:

ckdt1 := cert.GetValidToDt();
if (cert.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// ...
// ...

// ------------------------------------------------------------------------
// Do the equivalent using the ValidToStr property

ckdt2 := TCkDateTime.Create(Self);
ckdt2.SetFromRfc822(cert.ValidToStr);
end;