Class TChiefUnzip (unit Chfunzip)

Inherits from

TObject

Simple Delphi Component for UNZIP * by Dr Abimbola Olowofoyeku (The African Chief) Homepage: http://ourworld.compuserve.com/homepages/African_Chief {$I unzip.Inc} {.$define UseDLL} { /// uncomment this line to use the DLL ///

Constructors


CONSTRUCTOR Create ;

compressed size

/////////////////////////////////////////////////////



Functions

FUNCTION CompressedSize : longint;

uncompressed size of the archive

DESTRUCTOR Destroy;


PROCEDURE SetDirectoryName ( CONST aName : String );


PROCEDURE SetFileName ( CONST aName : String );

compressed size

PROCEDURE SetFileSpecs ( CONST Spec : String );


PROCEDURE SetQuestionProc ( aProc : UnzipQuestionProc );


PROCEDURE SetReportProc ( aProc : UnzipReportProc );


FUNCTION Size : longint;

view the archive;must provide callback procedure

FUNCTION Unzip : integer;


FUNCTION View : integer;

unzip the archive

no zipfilename or target directory


Properties

Events

Variables

CompSize : longint;

points to callback procedure

FDir : String;

source ZIP file name

FName : String;


FQuestion : UnzipQuestionProc;

points to callback procedure

FReport : UnzipReportProc;

file specifications to process in ZIP file

FSpec : String;

target directory


Constructors


CONSTRUCTOR Create ;

compressed size

/////////////////////////////////////////////////////


Functions


FUNCTION CompressedSize : longint;

uncompressed size of the archive


DESTRUCTOR Destroy;


PROCEDURE SetDirectoryName ( CONST aName : String );


PROCEDURE SetFileName ( CONST aName : String );

compressed size


PROCEDURE SetFileSpecs ( CONST Spec : String );


PROCEDURE SetQuestionProc ( aProc : UnzipQuestionProc );


PROCEDURE SetReportProc ( aProc : UnzipReportProc );


FUNCTION Size : longint;

view the archive;must provide callback procedure


FUNCTION Unzip : integer;


FUNCTION View : integer;

unzip the archive

no zipfilename or target directory


Properties


Events


Variables


CompSize : longint;

points to callback procedure


FDir : String;

source ZIP file name


FName : String;


FQuestion : UnzipQuestionProc;

points to callback procedure


FReport : UnzipReportProc;

file specifications to process in ZIP file


FSpec : String;

target directory