[Overview][Constants][Types][Classes][Index] | Reference for unit 'Zipper' (#fcl)

# TCompressor

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Compressor object

## Declaration

Source position: zipper.pp line 208

`type TCompressor = class(TObject)`
`public`
`constructor Create(); virtual;` |  | Creates a TCompressor object
`procedure Compress; virtual; abstract;` |  | Compresses input stream to output stream
`class function ZipID; virtual; abstract;` |  | Identifier for type of compression
`class function ZipVersionReqd; virtual; abstract;` |  | ZIP version required in the method
`function ZipBitFlag; virtual; abstract;` |  | Current bit
`procedure Terminate;` |  | Halts the compressor by setting the Terminated property to True
`property BufferSize: LongWord; [r]` |  | Size of the buffer used for compression
`property OnPercent: Integer; [rw]` |  | Threshold percentage which triggers an OnProgress update
`property OnProgress: TProgressEvent; [rw]` |  | Event handler signalled to indicate the completion percentage for the compressor
`property Crc32Val: LongWord; [rw]` |  | Running CRC32 value
`property Terminated: Boolean; [r]` |  | Set to True when the Terminate method is called
`end;`

## Inheritance

`TCompressor` |  | Compressor object
`TObject`

## Description

This object compresses a stream into a compressed zip stream.