TUnZipper

type TUnZipper = class(TObject)

protected

  procedure OpenInput;

  procedure CloseOutput();

  procedure CloseInput;

  procedure FindEndHeaders();

  procedure ReadZipDirectory;

  procedure ReadZipHeader();

  procedure DoEndOfFile;

  procedure UnZipOneFile(); virtual;

  function OpenOutput();

  procedure SetBufSize();

  procedure SetFileName();

  procedure SetOutputPath();

  function CreateDeCompressor(); virtual;

public

  constructor Create;

  destructor Destroy; override;

  procedure UnZipAllFiles();

  procedure UnZipFile();

  procedure UnZipFiles();

  class procedure Unzip();

  procedure Clear;

  procedure Examine;

  procedure Terminate;

  property BufferSize: LongWord; [rw]

  property OnOpenInputStream: TCustomInputStreamEvent; [rw]

  property OnCloseInputStream: TCustomInputStreamEvent; [rw]

  property OnCreateStream: TOnCustomStreamEvent; [rw]

  property OnDoneStream: TOnCustomStreamEvent; [rw]

  property OnPercent: Integer; [rw]

  property OnProgress: TProgressEvent; [rw]

  property OnProgressEx: TProgressEventEx; [rw]

  property OnStartFile: TOnStartFileEvent; [rw]

  property OnEndFile: TOnEndOfFileEvent; [rw]

  property FileName: RawByteString; [rw]

  property OutputPath: RawByteString; [rw]

  property FileComment: AnsiString; [r]

  property Files: TStrings; [r]

  property Entries: TFullZipFileEntries; [r]

  property UseUTF8: Boolean; [rw]

  property Flat: Boolean; [rw]

  property Terminated: Boolean; [r]

end;

TUnZipper

TObject