Delphi ActiveX

Replace Deprecated GetExpirationDt

Shows how to replace the deprecated GetExpirationDt method. 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
cache: TChilkatCache;
cache_item_key: WideString;
dt1: ICkDateTime;
dt2: TCkDateTime;

begin
cache := TChilkatCache.Create(Self);

// ....
// ....

cache_item_key := 'xyz';

// Instead of this:
dt1 := cache.GetExpirationDt(cache_item_key);

// Do this:
dt2 := TCkDateTime.Create(Self);
dt2.SetFromRfc822(cache.GetExpirationStr(cache_item_key));
end;