-
Notifications
You must be signed in to change notification settings - Fork 21
/
Copy pathFWZipConsts.pas
410 lines (356 loc) · 14.9 KB
/
FWZipConsts.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
////////////////////////////////////////////////////////////////////////////////
//
// ****************************************************************************
// * Project : FWZip
// * Unit Name : FWZipConsts
// * Purpose : Типы и константы используемые для работы с ZIP архивами
// * Author : Александр (Rouse_) Багель
// * Copyright : © Fangorn Wizards Lab 1998 - 2025.
// * Version : 2.0.6
// * Home Page : http://rouse.drkb.ru
// * Home Blog : http://alexander-bagel.blogspot.ru
// ****************************************************************************
// * Stable Release : http://rouse.drkb.ru/components.php#fwzip
// * Latest Source : https://github.com/AlexanderBagel/FWZip
// ****************************************************************************
//
// Используемые источники:
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
// https://zlib.net/zlib-1.3.1.tar.gz
// http://www.base2ti.com/
//
unit FWZipConsts;
{$IFDEF FPC}
{$MODE Delphi}
{$H+}
{$ENDIF}
interface
uses
{$IFDEF MSWINDOWS}
Windows,
{$ELSE}
Types,
{$ENDIF}
SysUtils,
Classes;
const
FWZipVersionInt = $02000006;
FWZipVersionStr = '2.0.6';
const
MAXBYTE = 255;
MAXWORD = 65535;
MAXDWORD = DWORD(-1);
MAX_PATH = 260;
type
DWORD = Cardinal;
LOBYTE = Byte;
LOWORD = Word;
// зависит от платформы, под Windows будет праться из Windows.pas
// под остальными из Types.pas
TFileTime = FILETIME;
PFileTime = ^TFileTime;
TFileAttributeData = record
dwFileAttributes: DWORD;
ftCreationTime: TFileTime;
ftLastAccessTime: TFileTime;
ftLastWriteTime: TFileTime;
nFileSizeHigh: DWORD;
nFileSizeLow: DWORD;
end;
{
IV. General Format of a .ZIP file
---------------------------------
Files stored in arbitrary order. Large .ZIP files can span multiple
diskette media or be split into user-defined segment sizes. [The
minimum user-defined segment size for a split .ZIP file is 64K.
(removed by PKWare 2003-06-01)]
Overall .ZIP file format:
[local file header 1]
[file data 1]
[data descriptor 1]
.
.
.
[local file header n]
[file data n]
[data descriptor n]
[archive decryption header] (EFS)
[archive extra data record] (EFS)
[central directory]
[zip64 end of central directory record]
[zip64 end of central directory locator]
[end of central directory record]
}
PLocalFileHeader = ^TLocalFileHeader;
TLocalFileHeader = packed record
LocalFileHeaderSignature: Cardinal; // (0x04034b50)
VersionNeededToExtract,
GeneralPurposeBitFlag,
CompressionMethod,
LastModFileTimeTime,
LastModFileTimeDate: Word;
Crc32,
CompressedSize,
UncompressedSize: Cardinal;
FilenameLength,
ExtraFieldLength: Word;
// file name (variable size)
// extra field (variable size)
end;
{
If bit 3 of the general purpose bit flag
is set, these fields are set to zero in the local header
and the correct values are put in the data descriptor and
in the central directory.
}
TDataDescriptor = packed record
DescriptorSignature, // (0x08074b50)
Crc32,
CompressedSize,
UncompressedSize: Cardinal;
{For Zip64 format archives, the compressed
and uncompressed sizes are 8 bytes each. ??!!}
end;
TEFS = packed record
ArchiveExtraDataSignature, // (0x08064b50)
ExtraFieldLength: Cardinal;
// extra field data (variable size)
end;
{
F. Central directory structure:
[file header 1]
.
.
.
[file header n]
[digital signature]
}
TCentralDirectoryFileHeader = packed record
CentralFileHeaderSignature: Cardinal; // (0x02014b50)
VersionMadeBy,
VersionNeededToExtract,
GeneralPurposeBitFlag,
CompressionMethod,
LastModFileTimeTime,
LastModFileTimeDate: Word;
Crc32,
CompressedSize,
UncompressedSize: Cardinal;
FilenameLength,
ExtraFieldLength,
FileCommentLength,
DiskNumberStart,
InternalFileAttributes: Word;
ExternalFileAttributes,
RelativeOffsetOfLocalHeader: Cardinal;
// file name (variable size)
// extra field (variable size)
// file comment (variable size)
end;
TCentralDirectoryFileHeaderEx = packed record
Header: TCentralDirectoryFileHeader;
UncompressedSize,
CompressedSize,
RelativeOffsetOfLocalHeader,
DataOffset: Int64;
DiskNumberStart: Integer;
FileName,
FileComment: string;
Attributes: TFileAttributeData;
ExceptOnWrite: Boolean;
end;
TNTFSFileTime = packed record
Mtime: TFileTime;
Atime: TFileTime;
Ctime: TFileTime;
end;
TExDataHeaderAndSize = packed record
Header: Word;
Size: Word;
end;
TExDataNTFS = packed record
HS: TExDataHeaderAndSize;
Reserved: Cardinal;
Tag: Word;
RecordSize: Word;
Data: TNTFSFileTime;
end;
TExDataInfo64 = packed record
HS: TExDataHeaderAndSize;
UncompressedSize, CompressedSize: Int64;
end;
TCentralDirectoryDigitalSignature = packed record
HeaderSignature: Cardinal; // (0x05054b50)
SizeOfData: Word;
// signature data (variable size)
end;
TZip64EOFCentralDirectoryRecord = packed record
Zip64EndOfCentralDirSignature: Cardinal; // (0x06064b50)
SizeOfZip64EOFCentralDirectoryRecord: int64;
VersionMadeBy,
VersionNeededToExtract: Word;
NumberOfThisDisk, // number of this disk
DiskNumberStart: Cardinal; // number of the disk with the start of the central directory
TotalNumberOfEntriesOnThisDisk, // total number of entries in the central directory on this disk
TotalNumberOfEntries, // total number of entries in the central directory
SizeOfTheCentralDirectory, // size of the central directory
RelativeOffsetOfCentralDirectory: Int64; // offset of start of central directory with respect to the starting disk number
// zip64 extensible data sector (variable size)
end;
TZip64EOFCentralDirectoryLocator = packed record
Signature, // zip64 end of central dir locator signature (0x07064b50)
DiskNumberStart: Cardinal; // number of the disk with the start of the zip64 end of central directory
RelativeOffset: Int64; // relative offset of the zip64 end of central directory record
TotalNumberOfDisks: Cardinal;
end;
TEndOfCentralDir = packed record
EndOfCentralDirSignature: Cardinal; // (0x06054b50)
NumberOfThisDisk,
DiskNumberStart,
TotalNumberOfEntriesOnThisDisk,
TotalNumberOfEntries: Word;
SizeOfTheCentralDirectory,
RelativeOffsetOfCentralDirectory: Cardinal;
ZipfileCommentLength: Word;
// .ZIP file comment (variable size)
end;
const
LOCAL_FILE_HEADER_SIGNATURE = $04034B50;
DATA_DESCRIPTOR_SIGNATURE = $08074B50;
// Маркер для разбитых на части архивов
// см. zip_format.txt 8.5.4 - 8.5.5
SPAN_DESCRIPTOR_SIGNATURE = DATA_DESCRIPTOR_SIGNATURE;
TEMPORARY_SPANING_DESCRIPTOR_SIGNATURE = $30304B50;
EXTRA_DATA_SIGNATURE = $08064B50;
CENTRAL_FILE_HEADER_SIGNATURE = $02014B50;
CENTRAL_DIRECTORY_DIGITAL_SIGNATURE = $05054B50;
ZIP64_END_OF_CENTRAL_DIR_SIGNATURE = $06064B50;
ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE = $07064B50;
END_OF_CENTRAL_DIR_SIGNATURE = $06054B50;
ZIP_SLASH = '/';
// Флаги для GeneralPurposeBitFlag
PBF_CRYPTED = 1;
// (For Methods 8 and 9 - Deflating)
PBF_COMPRESS_NORMAL = 0;
PBF_COMPRESS_MAXIMUM = 2;
PBF_COMPRESS_FAST = 4;
PBF_COMPRESS_SUPERFAST = 6;
PBF_DESCRIPTOR = 8;
PBF_STRONG_CRYPT = 64;
PBF_UTF8 = $800;
// Unsupported Zip formats
// AES is an encryption method, not a compression method.
// Since AES is an extension to the Zip file format, it reports as compression method 99.
Z_AES_COMPRESSION = 99;
// константы поддерживаемых полей ExData
SUPPORTED_EXDATA_ZIP64 = 1;
SUPPORTED_EXDATA_NTFSTIME = 10;
defaultWindowBits = -15;
type
TProgressState = (
psStart, // начало распаковки элемента, результирующий файл еще не создан
psInitialization, // результирующий файл создан и залочен, производится подготовка к распаковке
psInProgress, // идет распаковка
psFinalization, // распаковка завершена, сейчас будут разрушены все служебные объекты, результирующий файл все еще залочен
psEnd, // операция распаковки полностью завершена, результирующий файл доступен на чтение/запись
psException // ошибка
);
TZipProgressEvent = procedure(Sender: TObject; const FileName: string;
Percent, TotalPercent: Byte; var Cancel: Boolean; ProgressState: TProgressState) of object;
TZipExtractItemEvent = procedure(Sender: TObject; const FileName: string;
Extracted, TotalSize: Int64; ProgressState: TProgressState) of object;
TZipNeedPasswordEvent = procedure(Sender: TObject; const FileName: string;
var Password: string; var CancelExtract: Boolean) of object;
TZipSaveExDataEvent = procedure(Sender: TObject; ItemIndex: Integer;
UserExDataBlockCount: Integer; var Tag: Word; Data: TStream) of object;
TZipLoadExDataEvent = procedure(Sender: TObject; ItemIndex: Integer;
Tag: Word; Data: TStream) of object;
// Типы поведения TFWZipWriter при ошибке в процессе создания архива
TExceptionAction =
(
eaRetry, // повторить попытку
eaSkip, // пропустить текущий элемент
eaAbort, // остановить создание архива
eaUseNewFilePath, // использовать новый путь к файлу (пар. NewFilePath)
eaUseNewFilePathAndDel, // то-же что и acUseNewFilePath, только файл удаляется после использования
eaUseNewFileData, // использовать содержимое файла из стрима (пар. NewFileData)
eaReRaise // передать исключение наружу
);
TZipBuildExceptionEvent = procedure(Sender: TObject;
E: Exception; const ItemIndex: Integer;
var Action: TExceptionAction;
var NewFilePath: string; NewFileData: TMemoryStream) of object;
TZipExtractExceptionEvent = procedure(Sender: TObject;
E: Exception; const ItemIndex: Integer;
var Handled: Boolean) of object;
// Типы поведения TFWZipReader при конфликте имен файлов
TDuplicateAction =
(
daSkip, // пропустить файл
daOverwrite, // перезаписать
daUseNewFilePath, // сохранить с новым именем
daAbort // отменить распаковку
);
TZipDuplicateEvent = procedure(Sender: TObject;
var Path: string; var Action: TDuplicateAction) of object;
const
CRC32Table: array[Byte] of Cardinal =
(
$00000000, $77073096, $EE0E612C, $990951BA, $076DC419, $706AF48F,
$E963A535, $9E6495A3, $0EDB8832, $79DCB8A4, $E0D5E91E, $97D2D988,
$09B64C2B, $7EB17CBD, $E7B82D07, $90BF1D91, $1DB71064, $6AB020F2,
$F3B97148, $84BE41DE, $1ADAD47D, $6DDDE4EB, $F4D4B551, $83D385C7,
$136C9856, $646BA8C0, $FD62F97A, $8A65C9EC, $14015C4F, $63066CD9,
$FA0F3D63, $8D080DF5, $3B6E20C8, $4C69105E, $D56041E4, $A2677172,
$3C03E4D1, $4B04D447, $D20D85FD, $A50AB56B, $35B5A8FA, $42B2986C,
$DBBBC9D6, $ACBCF940, $32D86CE3, $45DF5C75, $DCD60DCF, $ABD13D59,
$26D930AC, $51DE003A, $C8D75180, $BFD06116, $21B4F4B5, $56B3C423,
$CFBA9599, $B8BDA50F, $2802B89E, $5F058808, $C60CD9B2, $B10BE924,
$2F6F7C87, $58684C11, $C1611DAB, $B6662D3D, $76DC4190, $01DB7106,
$98D220BC, $EFD5102A, $71B18589, $06B6B51F, $9FBFE4A5, $E8B8D433,
$7807C9A2, $0F00F934, $9609A88E, $E10E9818, $7F6A0DBB, $086D3D2D,
$91646C97, $E6635C01, $6B6B51F4, $1C6C6162, $856530D8, $F262004E,
$6C0695ED, $1B01A57B, $8208F4C1, $F50FC457, $65B0D9C6, $12B7E950,
$8BBEB8EA, $FCB9887C, $62DD1DDF, $15DA2D49, $8CD37CF3, $FBD44C65,
$4DB26158, $3AB551CE, $A3BC0074, $D4BB30E2, $4ADFA541, $3DD895D7,
$A4D1C46D, $D3D6F4FB, $4369E96A, $346ED9FC, $AD678846, $DA60B8D0,
$44042D73, $33031DE5, $AA0A4C5F, $DD0D7CC9, $5005713C, $270241AA,
$BE0B1010, $C90C2086, $5768B525, $206F85B3, $B966D409, $CE61E49F,
$5EDEF90E, $29D9C998, $B0D09822, $C7D7A8B4, $59B33D17, $2EB40D81,
$B7BD5C3B, $C0BA6CAD, $EDB88320, $9ABFB3B6, $03B6E20C, $74B1D29A,
$EAD54739, $9DD277AF, $04DB2615, $73DC1683, $E3630B12, $94643B84,
$0D6D6A3E, $7A6A5AA8, $E40ECF0B, $9309FF9D, $0A00AE27, $7D079EB1,
$F00F9344, $8708A3D2, $1E01F268, $6906C2FE, $F762575D, $806567CB,
$196C3671, $6E6B06E7, $FED41B76, $89D32BE0, $10DA7A5A, $67DD4ACC,
$F9B9DF6F, $8EBEEFF9, $17B7BE43, $60B08ED5, $D6D6A3E8, $A1D1937E,
$38D8C2C4, $4FDFF252, $D1BB67F1, $A6BC5767, $3FB506DD, $48B2364B,
$D80D2BDA, $AF0A1B4C, $36034AF6, $41047A60, $DF60EFC3, $A867DF55,
$316E8EEF, $4669BE79, $CB61B38C, $BC66831A, $256FD2A0, $5268E236,
$CC0C7795, $BB0B4703, $220216B9, $5505262F, $C5BA3BBE, $B2BD0B28,
$2BB45A92, $5CB36A04, $C2D7FFA7, $B5D0CF31, $2CD99E8B, $5BDEAE1D,
$9B64C2B0, $EC63F226, $756AA39C, $026D930A, $9C0906A9, $EB0E363F,
$72076785, $05005713, $95BF4A82, $E2B87A14, $7BB12BAE, $0CB61B38,
$92D28E9B, $E5D5BE0D, $7CDCEFB7, $0BDBDF21, $86D3D2D4, $F1D4E242,
$68DDB3F8, $1FDA836E, $81BE16CD, $F6B9265B, $6FB077E1, $18B74777,
$88085AE6, $FF0F6A70, $66063BCA, $11010B5C, $8F659EFF, $F862AE69,
$616BFFD3, $166CCF45, $A00AE278, $D70DD2EE, $4E048354, $3903B3C2,
$A7672661, $D06016F7, $4969474D, $3E6E77DB, $AED16A4A, $D9D65ADC,
$40DF0B66, $37D83BF0, $A9BCAE53, $DEBB9EC5, $47B2CF7F, $30B5FFE9,
$BDBDF21C, $CABAC28A, $53B39330, $24B4A3A6, $BAD03605, $CDD70693,
$54DE5729, $23D967BF,$B3667A2E, $C4614AB8, $5D681B02, $2A6F2B94,
$B40BBE37, $C30C8EA1, $5A05DF1B, $2D02EF8D
);
CurrentVersionMadeBy = 63;
LongNamePrefix = '\\?\';
UNCLongNamePrefix = '\\?\UNC\';
var
/// <summary>
/// Глобальная переменная управляющая включением/отключением поддержки длинных путей
/// </summary>
UseLongNamePrefix: Boolean = True;
/// <summary>
/// Глобальная переменная управляющая поведением по умолчанию при возникновении исключения
/// </summary>
DefaultExceptionAction: TExceptionAction = eaSkip;
implementation
end.