AfterCompressFile Event
Marks the completion of compression of a file.
Syntax
type TAfterCompressFileEvent = procedure ( Sender: TObject; const Path: String; FileSize: Int64; DataSource: Integer ) of Object;
property OnAfterCompressFile: TAfterCompressFileEvent read FOnAfterCompressFile write FOnAfterCompressFile;
Remarks
Subscribe to this event to get notified about the completion of compression of a file.
The Path parameter specifies the internal path to the entry inside the archive. The FileSize indicates the size of the file before compression, and the DataSource specifies the type of the source media.
| fdsFile (0) | The data was taken from a file. |
| fdsStream (1) | The data was taken from a stream assigned to FileStream property. |
| fdsBuffer (2) | The file data taken from the FileData buffer. |