TAbGzipItem

type TAbGzipItem = class(TAbArchiveItem)

protected

  FGZHeader: TAbGzHeader;

  FExtraField: TAbGzipExtraField;

  FFileComment: AnsiString;

  FRawFileName: AnsiString;

  function GetFileSystem;

  function GetHasExtraField;

  function GetHasFileComment;

  function GetHasFileName;

  function GetIsText;

  procedure SetFileComment();

  procedure SetFileSystem();

  procedure SetIsText();

  function GetExternalFileAttributes; override;

  function GetIsEncrypted; override;

  function GetLastModFileDate; override;

  function GetLastModFileTime; override;

  function GetLastModTimeAsDateTime; override;

  procedure SetExternalFileAttributes(); override;

  procedure SetFileName(); override;

  procedure SetIsEncrypted(); override;

  procedure SetLastModFileDate(); override;

  procedure SetLastModFileTime(); override;

  procedure SetLastModTimeAsDateTime(); override;

  procedure SaveGzHeaderToStream();

  procedure LoadGzHeaderFromStream();

public

  property CompressionMethod: Byte; [r]

  property ExtraFlags: Byte; [rw]

  property Flags: Byte; [r]

  property FileComment: AnsiString; [rw]

  property FileSystem: TAbGzFileSystem; [rw]

  property ExtraField: TAbGzipExtraField; [r]

  property IsEncrypted: Boolean; [r]

  property HasExtraField: Boolean; [r]

  property HasFileName: Boolean; [r]

  property HasFileComment: Boolean; [r]

  property IsText: Boolean; [rw]

  property GZHeader: TAbGzHeader; [r]

  constructor Create;

  destructor Destroy; override;

end;

TAbGzipItem

TAbArchiveItem

TObject