anchor.diff:  {* See: RFC 1952                                         *}
   {* "GZIP file format specification version 4.3"          *}
   {* for more information on GZip                          *}
  +{* See "algorithm.doc" in Gzip source and "format.txt"   *}
  +{* on gzip.org for differences from RFC                  *}
   {*********************************************************}
   
   {$I AbDefine.inc}
  
positive.code:   tempFileName : string;
  begin
    AStream.Read(FGzHeader, SizeOf(TAbGzHeader));
  
    if HasExtraField then begin
      { get length of extra data }
  
negative.code:   TAbGzipItem = class(TAbArchiveItem)
    protected {private}
      FGZHeader : TAbGzHeader;
      FExtraField, FFileComment : AnsiString;
  
    protected
      function GetFileSystem: TAbGzFileSystem;
      function GetHasExtraField: Boolean;
      function GetHasFileComment: Boolean;
      function GetHasFileName: Boolean;
      function GetIsText: Boolean;
  
      procedure SetExtraField(const Value: AnsiString);
      procedure SetFileComment(const Value : AnsiString);
      procedure SetFileSystem(const Value: TAbGzFileSystem);
      procedure SetIsText(const Value: Boolean);
  
      function GetExternalFileAttributes : LongInt; override;
  