Declaration¶
Source position: zipper.pp line 218
type
TCompressor = class(TObject)
public
constructor Create;
procedure Compress;
class function ZipID : Word;
class function ZipVersionReqd : Word;
function ZipBitFlag : Word;
procedure Terminate;
property BufferSize: LongWord; {r}
property OnPercent: Integer; {rw}
property OnProgress: TProgressEvent; {rw}
property Crc32Val: LongWord; {rw}
property Terminated: Boolean; {r}
end;
Inheritance¶
Description¶
This object compresses a stream into a compressed zip stream.
Properties¶
| Member | Visibility | Description |
|---|---|---|
| BufferSize read only | public | Size of the buffer used for compression. |
| Crc32Val | public | Running CRC32 value. |
| Terminated read only | public | Set to True when the Terminate method is called. |
Methods¶
| Member | Visibility | Description |
|---|---|---|
| Compress | public | Compresses input stream to output stream. |
| Create | public | Creates a TCompressor object. |
| Terminate | public | Halts the compressor by setting the Terminated property to True. |
| ZipBitFlag | public | Current bit. |
| ZipID | public | Identifier for type of compression. |
| ZipVersionReqd | public | ZIP version required in the method. |
Events¶
| Member | Visibility | Description |
|---|---|---|
| OnPercent | public | Threshold percentage which triggers an OnProgress update. |
| OnProgress | public | Event handler signalled to indicate the completion percentage for the compressor. |