System.Zip.TZipProgressEvent
Delphi
TZipProgressEvent = procedure(Sender: TObject; FileName: string; Header: TZipHeader; Position: Int64) of object;
C++
typedef void __fastcall (__closure *TZipProgressEvent)(System::TObject* Sender, System::UnicodeString FileName, const TZipHeader &Header, __int64 Position);
Properties
Type | Visibility | Source | Unit | Parent |
---|---|---|---|---|
type typedef |
public | System.Zip.pas System.Zip.hpp |
System.Zip | System.Zip |
Description
The type of event for the zip file operation progress event handlers.
One of such event handlers is OnProgress.
TZipProgressEvent accepts the following parameters:
Sender
: The TZipFile object performing the current operation.FileName
: The name of the affected file.Header
: The TZipHeader of the affected file.Position
: The number of bytes already processed.
You can get the progress of the current operation like this:
PercentageOfCompletion := Position div Header.UncompressedSize;