TZlibWriteArchive

type TZlibWriteArchive = class(TObject)

  fInputFiles: TZlibFilesList;

  fOnCompress: TZlibCompressProgProc;

  fOnError: TZlibErrorProc;

public

  constructor Create;

Creates an instance of the TZlibWriteArchive object

  destructor Destroy; override;

  function CreateArchive;

Compresses and write all the files in the list to OutStream

  property OnError: TZlibErrorProc; [rw]

Callback used to intercept errors before an exception is raised

  property OnCompress: TZlibCompressProgProc; [rw]

Callback used to imform the user of the compression progress

published

  property OutStream: TStream; [rw]

Stream the compressed archive it written to

  property InputFiles: TZlibFilesList; [r]

List of files to be compressed

end;

TZlibWriteArchive

Object used to create ZibArchive files.

TObject