TAbTarItem

type TAbTarItem = class(TAbArchiveItem)

protected

  PTarHeader: PAbTarHeaderRec;

  FTarHeaderList: TList;

  FTarHeaderTypeList: TList;

  FTarItem: TAbTarItemRec;

  function GetDevMajor;

  function GetDevMinor;

  function GetGroupID;

  function GetGroupName;

  function GetLinkName;

  function GetUserID;

  function GetUserName;

  function GetModTime;

  function GetNumHeaders;

  function GetMagic;

  procedure SetDevMajor();

  procedure SetDevMinor();

  procedure SetGroupID();

  procedure SetGroupName();

  procedure SetLinkFlag();

  procedure SetLinkName();

  procedure SetUserID();

  procedure SetUserName();

  procedure SetModTime();

  procedure SetMagic();

  function GetCompressedSize; override;

  function GetExternalFileAttributes; override;

  function GetFileName; override;

  function GetIsDirectory; override;

  function GetIsEncrypted; override;

  function GetLastModFileDate; override;

  function GetLastModFileTime; override;

  function GetLastModTimeAsDateTime; override;

  function GetNativeFileAttributes; override;

  function GetUncompressedSize; override;

  procedure SetCompressedSize(); override;

  procedure SetExternalFileAttributes(); override;

  procedure SetFileName(); override;

  procedure SetIsEncrypted(); override;

  procedure SetLastModFileDate(); override;

  procedure SetLastModFileTime(); override;

  procedure SetLastModTimeAsDateTime(); override;

  procedure SetUncompressedSize(); override;

  procedure SaveTarHeaderToStream();

  procedure LoadTarHeaderFromStream();

  property Magic: string; [rw]

public

  property Mode: LongWord; [rw]

  property UserID: Integer; [rw]

  property GroupID: Integer; [rw]

  property ModTime: Int64; [rw]

  property CheckSumGood: Boolean; [r]

  property LinkFlag: AnsiChar; [rw]

  property LinkName: string; [rw]

  property UserName: string; [rw]

  property GroupName: string; [rw]

  property DevMajor: Integer; [rw]

  property DevMinor: Integer; [rw]

  property ExternalFileAttributes: LongWord;

  property ArchiveFormat: TAbTarHeaderFormat; [rw]

  property ItemType: TAbTarItemType; [rw]

  property ItemReadOnly: Boolean; [rw]

  property FileHeaderCount: Integer; [r]

  property HeaderCount: Integer; [r]

  property StreamPosition: Int64; [rw]

  constructor Create;

  destructor Destroy; override;

end;

TAbTarItem

TAbArchiveItem

TObject