Tdecompressionstream

type Tdecompressionstream = class(Tcustomzlibstream)

protected

  raw_read: Int64;

  compressed_read: Int64;

  skipheader: Boolean;

  procedure reset;

  function GetPosition; override;

public

  constructor create();

  destructor destroy; override;

  function read(); override;

  function Seek(); override;

  function get_compressionrate;

  property OnProgress: Tnotifyevent;

end;

Tdecompressionstream

Tcustomzlibstream

TObject