Unit ZipRead |
Classes |
Functions |
CloseZipFile - only clears ioresult variable
GetFirstInZip - ************** Get first entry from ZIP file
GetNextInZip - ************** Get next entry from ZIP file
isZip - ************** VERY simple test for zip file
Types |
buftype
pHeaderInfo
TDirtype
tHeaderInfo
TPackRec
Constants |
zip_FileError
zip_InternalError
zip_inuse
zip_NoMoreItems
zip_ok
Variables |
Functions |
Types |
buftype=array[0..65000] of char;
pHeaderInfo = ^tHeaderInfoWarning, new Structure tPackRec, the same for all packers!} {$R-} {no range checking!
TDirtype=array[0..259] of char;
tHeaderInfo = recordEXE-Header
ExeId : Array[0..1] Of Char;
Remainder : Word
size : Word
end;
TPackRec = record
buf : ^buftype;
bufsize : word;
localstart : word;
globalpos : longint;
Time : Longint;
Size : Longint;
CompressSize : Longint;
headeroffset : Longint;
CRC : Longint;
FileName : tdirtype;
PackMethod : word;
Attr : word;
flags : word;
end;
Constants |
Variables |