TZipper

type TZipper = class(TObject)

protected

  procedure CloseInput();

  procedure StartZipFile();

  function UpdateZipHeader();

  procedure BuildZipDirectory;

  procedure DoEndOfFile;

  procedure ZipOneFile(); virtual;

  function OpenInput();

  procedure GetFileInfo;

  procedure SetBufSize();

  procedure SetFileName();

  function CreateCompressor(); virtual;

  property NeedsZip64: Boolean; [rw]

public

  constructor Create;

  destructor Destroy; override;

  procedure ZipAllFiles; virtual;

  procedure SaveToFile();

  procedure SaveToStream();

  procedure ZipFile();

  procedure ZipFiles();

  class procedure Zip();

  procedure Clear;

  procedure Terminate;

  property BufferSize: LongWord; [rw]

  property OnPercent: Integer; [rw]

  property OnProgress: TProgressEvent; [rw]

  property OnStartFile: TOnStartFileEvent; [rw]

  property OnEndFile: TOnEndOfFileEvent; [rw]

  property FileName: RawByteString; [rw]

  property FileComment: AnsiString; [rw]

  property Files: TStrings; [r] deprecated ;

  property InMemSize: Int64; [rw]

  property Entries: TZipFileEntries; [rw]

  property Terminated: Boolean; [r]

  property UseLanguageEncoding: Boolean; [rw]

end;

TZipper

TObject