(Delphi ActiveX) Transition from ZipEntry.GetDt to ZipEntry.FileDateTimeStr
Provides instructions for replacing deprecated GetDt method calls with FileDateTimeStr. Note: This example requires Chilkat v11.0.0 or greater.
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
entry: TChilkatZipEntry;
dtObj: ICkDateTime;
dt: TCkDateTime;
begin
entry := TChilkatZipEntry.Create(Self);
// ...
// ...
// ------------------------------------------------------------------------
// The GetDt method is deprecated:
dtObj := entry.GetDt();
if (entry.LastMethodSuccess = 0) then
begin
Memo1.Lines.Add(entry.LastErrorText);
Exit;
end;
// ...
// ...
// ------------------------------------------------------------------------
// Do the equivalent using FileDateTimeStr.
dt := TCkDateTime.Create(Self);
dt.SetFromRfc822(entry.FileDateTimeStr);
end;
|