home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
qbnewsl
/
qbnws105
/
zv
/
dixarc02.inc
next >
Wrap
Text File
|
1990-10-24
|
4KB
|
109 lines
'Compression file types from Dick Dennison
'Use with credit Ci$ID - 74270,3636
'zip file stuff
TYPE central 'central directory record
sig AS LONG 'zip signature hex06054B50
vers AS INTEGER 'version made by
extvers AS INTEGER 'version needed to extra
bitflag AS INTEGER 'general purpose bitflag
compmeth AS INTEGER 'compression method
modtime AS INTEGER 'packed time
moddate AS INTEGER 'packed date
crc AS LONG 'crc 32 bit
compsize AS LONG 'compressed size
uncompsize AS LONG 'oldsize
fnamelen AS INTEGER 'file name length
extralen AS INTEGER 'extra field length
commentlen AS INTEGER'comment field length
disknum AS INTEGER 'disk number in this archive
infileattr AS INTEGER'int file attribute
extfileattr AS LONG 'ext file attribute
offsethead AS LONG 'offset of local header
filename AS STRING * 12
END TYPE
TYPE dirrec 'end of central directory record
sig AS LONG 'signature hex02014B50
n1num AS INTEGER
n2num AS INTEGER
n3num AS INTEGER
num AS INTEGER 'number of records on central dir
dirlen AS LONG 'size of central directory
offset AS LONG 'offset of central directory
commentlen AS INTEGER'length of zip comment
END TYPE
TYPE buftype
lin AS LONG 'buffer for signature comps
END TYPE
'lzh file stuff
TYPE head1
hsz AS STRING * 1 'header size
CKS AS STRING * 1 '16 bit checksum
END TYPE
TYPE Head2
mtd AS STRING * 5 'method
nsz AS LONG 'new size
osz AS LONG 'old size
tim AS INTEGER 'packed time
dat AS INTEGER 'packed date
ATR AS INTEGER 'file attribute
fnl AS STRING * 1 'file name length
END TYPE
TYPE head3
crc AS INTEGER 'CRC
END TYPE
'arc file stuff
TYPE header
arcid AS INTEGER '1D
filename AS STRING * 13 'filename
newsize AS LONG 'size now
adate AS INTEGER 'packed date
atime AS INTEGER 'packed time
crc AS INTEGER 'CRC
oldsize AS LONG 'uncompressed size
END TYPE
'zoo file stuff
TYPE zoomaster 'master header at beginning of file
zoohead AS STRING * 20
zoosig AS STRING * 8 'DCA7C4FD signature
zoo1ptr AS LONG
zooques AS LONG
zoomakver AS STRING * 1 'zoo version made by
zoominver AS STRING * 1 'minimum version needed to extract
END TYPE
TYPE zoofile 'file header
zoofsig AS STRING * 8 'DCA7C4FD signature
zooftyp AS STRING * 1
zoofcmp AS STRING * 1 'compression method
zoofnxh AS LONG 'location of next header
zoofcur AS LONG
zoofdat AS INTEGER 'packed date
zooftim AS INTEGER 'packed time
zoofcrc AS INTEGER 'crc
zoofosz AS LONG 'old size
zoofnsz AS LONG 'new size
zoofmver AS STRING * 1
zoofmin AS STRING * 1
zoofdel AS STRING * 1
zoofcmtp AS LONG 'comment pointer
zoofcmtl AS INTEGER 'comment length
extra AS STRING * 1
zoofnam AS STRING * 13 'filename
END TYPE
'pak file stuff
TYPE paktype
sig AS STRING * 1 '1 byte always 26
version AS STRING * 1 '1 byte) - type of compression used.
filename AS STRING * 13 '(13 bytes) - an ASCIIZ string.
size AS LONG '(4 bytes) giving the current file size.
Date AS INTEGER '(2 bytes) - packed date
Time AS INTEGER '(2 bytes) - packed time
CRC AS INTEGER '(2 bytes) the CRC checksum for the expanded file.
length AS LONG '(4 bytes) - original length of file
END TYPE