Стартовый пул
This commit is contained in:
210
fwzip/delphi7/Demos/Create ZIP 1/CreateZIPDemo1.dpr
Normal file
210
fwzip/delphi7/Demos/Create ZIP 1/CreateZIPDemo1.dpr
Normal file
@@ -0,0 +1,210 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : CreateZIPDemo1
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
program CreateZIPDemo1;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
TypInfo,
|
||||
FWZipWriter,
|
||||
FWZipUtils;
|
||||
|
||||
procedure CheckResult(Value: Integer);
|
||||
begin
|
||||
if Value < 0 then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
end;
|
||||
|
||||
var
|
||||
Zip: TFWZipWriter;
|
||||
S: TStringStream;
|
||||
PresentFiles: TStringList;
|
||||
SR: TSearchRec;
|
||||
I, ItemIndex: Integer;
|
||||
BuildZipResult: TBuildZipResult;
|
||||
begin
|
||||
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Zip := TFWZipWriter.Create;
|
||||
try
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> UTF8 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
Zip.UseUTF8String := True;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.Comment := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (AddStream)
|
||||
{$IFDEF FPC}
|
||||
S := TStringStream.Create(AnsiString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>1'));
|
||||
{$ELSE}
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>1');
|
||||
{$ENDIF}
|
||||
try
|
||||
S.Position := 0;
|
||||
ItemIndex := Zip.AddStream('test.txt', S);
|
||||
CheckResult(ItemIndex);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.Item[ItemIndex].Comment := '<27><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (AddStream)
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF FPC}
|
||||
S := TStringStream.Create(AnsiString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>2'));
|
||||
{$ELSE}
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>2');
|
||||
{$ENDIF}
|
||||
S.Position := 0;
|
||||
ItemIndex := Zip.AddStream('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>2.txt', S, soOwned);
|
||||
CheckResult(ItemIndex);
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
{$IFDEF FPC}
|
||||
S := TStringStream.Create(AnsiString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>3'));
|
||||
{$ELSE}
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>3');
|
||||
{$ENDIF}
|
||||
try
|
||||
S.Position := 0;
|
||||
CheckResult(Zip.AddStream(
|
||||
'AddStreamData\SubFolder1\Subfolder2\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>3.txt', S));
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> "Create ZIP 2" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddFolder
|
||||
if Zip.AddFolder('..\Create ZIP 2\') = 0 then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> AddFolderDemo
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddFolder,
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
if Zip.AddFolder('AddFolderDemo', '..\..\', '*.pas', False) = 0 then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddFile
|
||||
PresentFiles := TStringList.Create;
|
||||
try
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if FindFirst(PathCanonicalize('..\..\*.pas'), faAnyFile, SR) = 0 then
|
||||
try
|
||||
repeat
|
||||
if (SR.Name = '.') or (SR.Name = '..') then Continue;
|
||||
if SR.Attr and faDirectory <> 0 then
|
||||
Continue
|
||||
else
|
||||
PresentFiles.Add(SR.Name);
|
||||
until FindNext(SR) <> 0;
|
||||
finally
|
||||
FindClose(SR);
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
for I := 0 to PresentFiles.Count - 1 do
|
||||
CheckResult(Zip.AddFile('..\..\' + PresentFiles[I],
|
||||
'AddFile\' + PresentFiles[I]));
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddFiles.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"="<22><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
// <20>.<2E>. ValueFromIndex <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> Names - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
for I := 0 to PresentFiles.Count - 1 do
|
||||
PresentFiles[I] :=
|
||||
'AddFiles\' + PresentFiles[I] + '=..\..\' + PresentFiles[I];
|
||||
if Zip.AddFiles(PresentFiles) <> PresentFiles.Count then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
|
||||
finally
|
||||
PresentFiles.Free;
|
||||
end;
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD> AddFilesAndFolders.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddFiles.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"="<22><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>"
|
||||
// <20>.<2E>. ValueFromIndex <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> Names - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
PresentFiles := TStringList.Create;
|
||||
try
|
||||
if FindFirst(PathCanonicalize('..\..\*'), faAnyFile, SR) = 0 then
|
||||
try
|
||||
repeat
|
||||
if (SR.Name = '.') or (SR.Name = '..') then Continue;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> demos, <20>.<2E>. <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
if AnsiLowerCase(SR.Name) = 'demos' then
|
||||
Continue;
|
||||
PresentFiles.Add('AddFilesAndFolders\' + SR.Name + '=..\..\' + SR.Name);
|
||||
until FindNext(SR) <> 0;
|
||||
finally
|
||||
FindClose(SR);
|
||||
end;
|
||||
Zip.AddFilesAndFolders(PresentFiles, True);
|
||||
finally
|
||||
PresentFiles.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>...
|
||||
BuildZipResult := Zip.BuildZip('..\DemoResults\CreateZIPDemo1.zip');
|
||||
// ... <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writeln(GetEnumName(TypeInfo(TBuildZipResult), Integer(BuildZipResult)));
|
||||
|
||||
finally
|
||||
Zip.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Create ZIP 1/clear.bat
Normal file
24
fwzip/delphi7/Demos/Create ZIP 1/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
84
fwzip/delphi7/Demos/Create ZIP 2/CreateZIPDemo2.dpr
Normal file
84
fwzip/delphi7/Demos/Create ZIP 2/CreateZIPDemo2.dpr
Normal file
@@ -0,0 +1,84 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : CreateZIPDemo2
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program CreateZIPDemo2;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
TypInfo,
|
||||
FWZipZLib,
|
||||
FWZipWriter;
|
||||
|
||||
var
|
||||
Zip: TFWZipWriter;
|
||||
Item: TFWZipWriterItem;
|
||||
I: Integer;
|
||||
BuildZipResult: TBuildZipResult;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Zip := TFWZipWriter.Create;
|
||||
try
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.AddFolder('..\..\', False);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
for I := 0 to Zip.Count - 1 do
|
||||
begin
|
||||
Item := Zip[I];
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.Comment := string('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> ') + Item.FileName;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.Password := 'password';
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.CompressionLevel := TCompressionLevel(Byte(I mod 3));
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
Zip.Comment := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
BuildZipResult := Zip.BuildZip('..\DemoResults\CreateZIPDemo2.zip');
|
||||
// ... <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writeln(GetEnumName(TypeInfo(TBuildZipResult), Integer(BuildZipResult)));
|
||||
|
||||
finally
|
||||
Zip.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Create ZIP 2/clear.bat
Normal file
24
fwzip/delphi7/Demos/Create ZIP 2/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
107
fwzip/delphi7/Demos/Extract ZIP 1/ExctractZIPDemo1.dpr
Normal file
107
fwzip/delphi7/Demos/Extract ZIP 1/ExctractZIPDemo1.dpr
Normal file
@@ -0,0 +1,107 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : ExctractZIPDemo1
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CreateZIPDemo1
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.1
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program ExctractZIPDemo1;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
SysUtils,
|
||||
TypInfo,
|
||||
FWZipReader,
|
||||
FWZipUtils;
|
||||
|
||||
function ExtractResultStr(Value: TExtractResult): string;
|
||||
begin
|
||||
Result := GetEnumName(TypeInfo(TExtractResult), Integer(Value));
|
||||
end;
|
||||
|
||||
var
|
||||
Zip: TFWZipReader;
|
||||
Index: Integer;
|
||||
M: TStringStream;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Zip := TFWZipReader.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.LoadFromFile('..\DemoResults\CreateZIPDemo1.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CreateZIPDemo1 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> Test.txt
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Zip.GetElementIndex('test.txt');
|
||||
if Index >= 0 then
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
M := TStringStream.Create('');
|
||||
try
|
||||
Zip[Index].ExtractToStream(M, '');
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF UNICODE}
|
||||
Writeln(M.DataString);
|
||||
{$ELSE}
|
||||
{$IFDEF FPC}
|
||||
Writeln(M.DataString);
|
||||
{$ELSE}
|
||||
Writeln(ConvertToOemString(AnsiString(M.DataString)));
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
finally
|
||||
M.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>:
|
||||
Write('Extract "', Zip[Index].FileName, '": ');
|
||||
Writeln(ExtractResultStr(
|
||||
Zip[Index].Extract('..\DemoResults\CreateZIPDemo1\ManualExtract\', '')));
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.ExtractAll('..\DemoResults\CreateZIPDemo1\');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> AddFolderDemo <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
Zip.ExtractAll('AddFolderDemo*', '..\DemoResults\CreateZIPDemo1\ExtractMasked\');
|
||||
finally
|
||||
Zip.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Extract ZIP 1/clear.bat
Normal file
24
fwzip/delphi7/Demos/Extract ZIP 1/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
135
fwzip/delphi7/Demos/Extract ZIP 2/ExctractZIPDemo2.dpr
Normal file
135
fwzip/delphi7/Demos/Extract ZIP 2/ExctractZIPDemo2.dpr
Normal file
@@ -0,0 +1,135 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : ExctractZIPDemo2
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program ExctractZIPDemo2;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
FWZipWriter,
|
||||
FWZipReader,
|
||||
FWZipConsts;
|
||||
|
||||
const
|
||||
PasswordList: array [0..3] of string = (
|
||||
'', 'password1', 'password2', 'password3');
|
||||
|
||||
procedure OnPassword(Self, Sender: TObject; const FileName: string;
|
||||
var Password: string; var CancelExtract: Boolean);
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
// FPC <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
if (Self <> nil) and (FileName <> '') then
|
||||
CancelExtract := False;
|
||||
{$ENDIF}
|
||||
Password := PasswordList[3];
|
||||
end;
|
||||
|
||||
var
|
||||
Writer: TFWZipWriter;
|
||||
Reader: TFWZipReader;
|
||||
Item: TFWZipWriterItem;
|
||||
I: Integer;
|
||||
ExtractResult: TExtractResult;
|
||||
Method: TMethod;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer.AddFolder('..\..\', False);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Randomize;
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
Item := Writer[0];
|
||||
Item.Password := PasswordList[Random(3) + 1];
|
||||
Item.NeedDescriptor := True;
|
||||
|
||||
for I := 1 to Writer.Count - 1 do
|
||||
begin
|
||||
Item := Writer[I];
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><>. Readme.txt
|
||||
Item.NeedDescriptor := True;
|
||||
Item.Password := PasswordList[Random(4)];
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer.BuildZip('..\DemoResults\ExctractZIPDemo2.zip');
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
Reader.LoadFromFile('..\DemoResults\ExctractZIPDemo2.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>:
|
||||
I := 0;
|
||||
repeat
|
||||
ExtractResult := Reader[0].Extract(
|
||||
'..\DemoResults\ExctractZIPDemo2\ManualExtract\', PasswordList[I]);
|
||||
Inc(I);
|
||||
until ExtractResult <> erNeedPassword;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// 1. <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader.PasswordList.Add(PasswordList[1]);
|
||||
Reader.PasswordList.Add(PasswordList[2]);
|
||||
|
||||
// 2. <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Method.Code := @OnPassword;
|
||||
Method.Data := Reader;
|
||||
Reader.OnPassword := TZipNeedPasswordEvent(Method);
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnPassword
|
||||
|
||||
Reader.ExtractAll('..\DemoResults\ExctractZIPDemo2\');
|
||||
finally
|
||||
Reader.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
end.
|
24
fwzip/delphi7/Demos/Extract ZIP 2/clear.bat
Normal file
24
fwzip/delphi7/Demos/Extract ZIP 2/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
66
fwzip/delphi7/Demos/FWZipDemos.bpg
Normal file
66
fwzip/delphi7/Demos/FWZipDemos.bpg
Normal file
@@ -0,0 +1,66 @@
|
||||
#------------------------------------------------------------------------------
|
||||
VERSION = BWS.01
|
||||
#------------------------------------------------------------------------------
|
||||
!ifndef ROOT
|
||||
ROOT = $(MAKEDIR)\..
|
||||
!endif
|
||||
#------------------------------------------------------------------------------
|
||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = CreateZIPDemo1.exe CreateZIPDemo2.exe ExctractZIPDemo1.exe \
|
||||
ExctractZIPDemo2.exe MergeZip.exe ReplaceZipItemData.exe SplitZip.exe \
|
||||
CreateMultiPartZip.exe ModifyMultiPartZip.exe ReadMultiPartZip.exe \
|
||||
FWZipPerfomance.exe BuildWithException.exe UseExDataBlob.exe ZipAnalizer.exe \
|
||||
ZipAnalizer2.exe
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
CreateZIPDemo1.exe: Create ZIP 1\CreateZIPDemo1.dpr
|
||||
$(DCC)
|
||||
|
||||
CreateZIPDemo2.exe: Create ZIP 2\CreateZIPDemo2.dpr
|
||||
$(DCC)
|
||||
|
||||
ExctractZIPDemo1.exe: Extract ZIP 1\ExctractZIPDemo1.dpr
|
||||
$(DCC)
|
||||
|
||||
ExctractZIPDemo2.exe: Extract ZIP 2\ExctractZIPDemo2.dpr
|
||||
$(DCC)
|
||||
|
||||
MergeZip.exe: Modify ZIP\Merge two ZIP\MergeZip.dpr
|
||||
$(DCC)
|
||||
|
||||
ReplaceZipItemData.exe: Modify ZIP\Replace data in ZIP\ReplaceZipItemData.dpr
|
||||
$(DCC)
|
||||
|
||||
SplitZip.exe: Modify ZIP\Split ZIP\SplitZip.dpr
|
||||
$(DCC)
|
||||
|
||||
CreateMultiPartZip.exe: MultyPart ZIP\Create MultiPart ZIP\CreateMultiPartZip.dpr
|
||||
$(DCC)
|
||||
|
||||
ModifyMultiPartZip.exe: MultyPart ZIP\Modify MultiPart Zip\ModifyMultiPartZip.dpr
|
||||
$(DCC)
|
||||
|
||||
ReadMultiPartZip.exe: MultyPart ZIP\Read MultiPart ZIP\ReadMultiPartZip.dpr
|
||||
$(DCC)
|
||||
|
||||
FWZipPerfomance.exe: PerfomanceTest\FWZipPerfomance.dpr
|
||||
$(DCC)
|
||||
|
||||
BuildWithException.exe: Test Build With Exception\BuildWithException.dpr
|
||||
$(DCC)
|
||||
|
||||
UseExDataBlob.exe: Use ZIP ExData\UseExDataBlob.dpr
|
||||
$(DCC)
|
||||
|
||||
ZipAnalizer.exe: ZipAnalizer\ZipAnalizer.dpr
|
||||
$(DCC)
|
||||
|
||||
ZipAnalizer2.exe: ZipAnalizer2\ZipAnalizer2.dpr
|
||||
$(DCC)
|
||||
|
||||
|
71
fwzip/delphi7/Demos/Modify ZIP/Merge two ZIP/MergeZip.dpr
Normal file
71
fwzip/delphi7/Demos/Modify ZIP/Merge two ZIP/MergeZip.dpr
Normal file
@@ -0,0 +1,71 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : MergeZip
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program MergeZip;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
FWZipModifier;
|
||||
|
||||
var
|
||||
Modifier: TFWZipModifier;
|
||||
Index1, Index2: TReaderIndex;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SplitZip
|
||||
Index1 := Modifier.AddZipFile('..\..\DemoResults\splited_archive1.zip');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index2 := Modifier.AddZipFile('..\..\DemoResults\splited_archive2.zip');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index1);
|
||||
// <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index2);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> split_main_archive.zip, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SplitZip (<28><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>)
|
||||
Modifier.BuildZip('..\..\DemoResults\merged_archive.zip')
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ReplaceZipItemData
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Modify ZIP/Merge two ZIP/clear.bat
Normal file
24
fwzip/delphi7/Demos/Modify ZIP/Merge two ZIP/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
@@ -0,0 +1,196 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : ReplaceZipItemData
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.2
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program ReplaceZipItemData;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
FWZipReader,
|
||||
FWZipModifier;
|
||||
|
||||
var
|
||||
Modifier: TFWZipModifier;
|
||||
Reader: TFWZipReader;
|
||||
Index: TReaderIndex;
|
||||
S: TStringStream;
|
||||
I: Integer;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Modifier.AddZipFile('..\..\DemoResults\split_main_archive.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
Modifier.AddFromZip(Index, 'test1.txt');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index, Modifier.Reader[Index].Item[1].FileName);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
try
|
||||
S.Position := 0;
|
||||
Modifier.AddStream('test3.txt', S);
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index, 'test4.txt', 'New test4.txt');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\replaced_data_archive1.zip');
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Modifier.AddZipFile('..\..\DemoResults\split_main_archive.zip');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.DeleteItem(2);
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
try
|
||||
S.Position := 0;
|
||||
Modifier.AddStream('test3.txt', S);
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\replaced_data_archive2.zip');
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader.LoadFromFile('..\..\DemoResults\split_main_archive.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Modifier.AddZipFile(Reader);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
for I := 0 to Modifier.Reader[Index].Count - 2 do
|
||||
Modifier.AddFromZip(Index, Modifier.Reader[Index].Item[I].FileName);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
try
|
||||
S.Position := 0;
|
||||
Modifier.AddStream('test4.txt', S);
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\replaced_data_archive3.zip');
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
finally
|
||||
Reader.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader := TFWZipReader.Create;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader.LoadFromFile('..\..\DemoResults\split_main_archive.zip');
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Modifier.AddZipFile(Reader, roOwned);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
Modifier.AddFromZip(Index, 'test1.txt');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index, Modifier.Reader[Index].Item[1].FileName);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
try
|
||||
S.Position := 0;
|
||||
Modifier.AddStream('test3.txt', S);
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
|
||||
// <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index, 'test4.txt');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\replaced_data_archive4.zip');
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Modify ZIP/Replace data in ZIP/clear.bat
Normal file
24
fwzip/delphi7/Demos/Modify ZIP/Replace data in ZIP/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
106
fwzip/delphi7/Demos/Modify ZIP/Split ZIP/SplitZip.dpr
Normal file
106
fwzip/delphi7/Demos/Modify ZIP/Split ZIP/SplitZip.dpr
Normal file
@@ -0,0 +1,106 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : SplitZip
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> c <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program SplitZip;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
FWZipWriter,
|
||||
FWZipModifier;
|
||||
|
||||
procedure AddItem(AWriter: TFWZipWriter; const AName, AData: string);
|
||||
var
|
||||
S: TStringStream;
|
||||
begin
|
||||
S := TStringStream.Create(AData);
|
||||
try
|
||||
S.Position := 0;
|
||||
AWriter.AddStream(AName, S);
|
||||
finally
|
||||
S.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
Writer: TFWZipWriter;
|
||||
Modifier: TFWZipModifier;
|
||||
Index: TReaderIndex;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 4 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
AddItem(Writer, 'test1.txt', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
AddItem(Writer, 'test2.txt', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
AddItem(Writer, 'test3.txt', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
AddItem(Writer, 'test4.txt', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer.BuildZip('..\..\DemoResults\split_main_archive.zip');
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index := Modifier.AddZipFile('..\..\DemoResults\split_main_archive.zip');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index, 'test1.txt');
|
||||
Modifier.AddFromZip(Index, 'test2.txt');
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\splited_archive1.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
Modifier.Clear;
|
||||
Modifier.AddFromZip(Index, 'test3.txt');
|
||||
Modifier.AddFromZip(Index, 'test4.txt');
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.BuildZip('..\..\DemoResults\splited_archive2.zip');
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD> <20> <20><><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> MergeZip
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Modify ZIP/Split ZIP/clear.bat
Normal file
24
fwzip/delphi7/Demos/Modify ZIP/Split ZIP/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
@@ -0,0 +1,109 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : CreateMultiPartZip
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
program CreateMultiPartZip;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
TypInfo,
|
||||
FWZipZLib,
|
||||
FWZipWriter,
|
||||
FWZipStream;
|
||||
|
||||
var
|
||||
Zip: TFWZipWriter;
|
||||
Item: TFWZipWriterItem;
|
||||
I: Integer;
|
||||
BuildZipResult: TBuildZipResult;
|
||||
MultiStream: TFWFileMultiStream;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Zip := TFWZipWriter.Create;
|
||||
try
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Zip.AddFolder('..\..\..\', False);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
for I := 0 to Zip.Count - 1 do
|
||||
begin
|
||||
Item := Zip[I];
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.Comment := string('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> ') + Item.FileName;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.Password := 'password';
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Item.CompressionLevel := TCompressionLevel(Byte(I mod 4));
|
||||
end;
|
||||
Zip.Comment := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// TFWAbstractMultiStream <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWFileMultiStream <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> FTP <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SharePoint <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TCentralDirectoryFileHeader
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 1 <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> SizeOf(TCentralDirectoryFileHeader).
|
||||
// <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// TEndOfCentralDir, <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Zip64, <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// TZip64EOFCentralDirectoryRecord <20> TZip64EOFCentralDirectoryLocator.
|
||||
MultiStream := TFWFileMultiStream.CreateWrite(
|
||||
'..\..\DemoResults\MultyPartZip\MultyPartZip.zip', $20000);
|
||||
try
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD> MultiStream
|
||||
BuildZipResult := Zip.BuildZip(MultiStream);
|
||||
finally
|
||||
MultiStream.Free;
|
||||
end;
|
||||
|
||||
// ... <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writeln(GetEnumName(TypeInfo(TBuildZipResult), Integer(BuildZipResult)));
|
||||
|
||||
finally
|
||||
Zip.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
@@ -0,0 +1,130 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : ModifyMultiPartZip
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
/// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program ModifyMultiPartZip;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
TypInfo,
|
||||
FWZipZLib,
|
||||
FWZipWriter,
|
||||
FWZipStream,
|
||||
FWZipModifier;
|
||||
|
||||
var
|
||||
Writer: TFWZipWriter;
|
||||
S: TStringStream;
|
||||
MultiStreamRead, MultiStreamWrite: TFWFileMultiStream;
|
||||
Modifier: TFWZipModifier;
|
||||
I, Index1, Index2: Integer;
|
||||
BuildZipResult: TBuildZipResult;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// TFWAbstractMultiStream <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CreateMultyPartZip.dpr
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> *.pas <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
MultiStreamRead := TFWFileMultiStream.CreateRead(
|
||||
'..\..\DemoResults\MultyPartZip\MultyPartZip.zip');
|
||||
try
|
||||
|
||||
Modifier := TFWZipModifier.Create;
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index1 := Modifier.AddZipFile(MultiStreamRead);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index1);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> PAS <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
for I := Modifier.Count - 1 downto 0 do
|
||||
if AnsiLowerCase(ExtractFileExt(Modifier[I].FileName)) = '.pas' then
|
||||
Modifier.DeleteItem(I);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
S := TStringStream.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
Writer.AddStream('test_stream.txt', S, soOwned);
|
||||
Writer.BuildZip('..\..\DemoResults\MultyPartZip\stream.zip')
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Index2 := Modifier.AddZipFile('..\..\DemoResults\MultyPartZip\stream.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Modifier.AddFromZip(Index2, 'test_stream.txt');
|
||||
|
||||
// ... <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
|
||||
// <20>.<2E>. <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
MultiStreamWrite := TFWFileMultiStream.CreateWrite(
|
||||
'..\..\DemoResults\MultyPartZip\MultyPartZipWithoutPas.zip');
|
||||
try
|
||||
BuildZipResult := Modifier.BuildZip(MultiStreamWrite);
|
||||
finally
|
||||
MultiStreamWrite.Free;
|
||||
end;
|
||||
|
||||
finally
|
||||
Modifier.Free;
|
||||
end;
|
||||
|
||||
finally
|
||||
MultiStreamRead.Free;
|
||||
end;
|
||||
|
||||
// ... <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writeln(GetEnumName(TypeInfo(TBuildZipResult), Integer(BuildZipResult)));
|
||||
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
@@ -0,0 +1,98 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : ReadMultiPartZip
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
program ReadMultiPartZip;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
TypInfo,
|
||||
FWZipStream,
|
||||
FWZipReader;
|
||||
|
||||
var
|
||||
Reader: TFWZipReader;
|
||||
MultiStream: TFWFileMultiStream;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> TFWAbstractMultiStream.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CreateRead.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// rsmQuick - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TCentralDirectoryFileHeader <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> rsmFull.
|
||||
// <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 60 <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
|
||||
MultiStream := TFWFileMultiStream.CreateRead(
|
||||
'..\..\DemoResults\MultyPartZip\MultyPartZip.zip', rsmQuick);
|
||||
try
|
||||
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// LoadFromStream <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWAbstractMultiStream
|
||||
Reader.LoadFromStream(MultiStream);
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD> <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
Reader.PasswordList.Add('password');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader.Check;
|
||||
|
||||
// ... <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader.ExtractAll('*.pas', '..\..\DemoResults\MultyPartZip\');
|
||||
|
||||
Writeln('done.');
|
||||
|
||||
finally
|
||||
Reader.Free;
|
||||
end;
|
||||
finally
|
||||
MultiStream.Free;
|
||||
end;
|
||||
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
19
fwzip/delphi7/Demos/PerfomanceTest/FWZipPerfomance.dpr
Normal file
19
fwzip/delphi7/Demos/PerfomanceTest/FWZipPerfomance.dpr
Normal file
@@ -0,0 +1,19 @@
|
||||
program FWZipPerfomance;
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ENDIF}
|
||||
uses
|
||||
{$IFDEF FPC}
|
||||
Interfaces,
|
||||
{$ENDIF }
|
||||
Forms,
|
||||
Unit1 in 'Unit1.pas' {Form1};
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$R *.res}
|
||||
{$ENDIF}
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
258
fwzip/delphi7/Demos/PerfomanceTest/Unit1.dfm
Normal file
258
fwzip/delphi7/Demos/PerfomanceTest/Unit1.dfm
Normal file
@@ -0,0 +1,258 @@
|
||||
object Form1: TForm1
|
||||
Left = 381
|
||||
Top = 183
|
||||
Caption = #1058#1077#1089#1090' '#1087#1088#1086#1080#1079#1074#1086#1076#1080#1090#1077#1083#1100#1085#1086#1089#1090#1080' FWZip'
|
||||
ClientHeight = 615
|
||||
ClientWidth = 562
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
DesignSize = (
|
||||
562
|
||||
615)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 527
|
||||
Height = 105
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080' '#1089#1078#1072#1090#1080#1103
|
||||
TabOrder = 0
|
||||
DesignSize = (
|
||||
527
|
||||
105)
|
||||
object LabeledEdit1: TLabeledEdit
|
||||
Left = 16
|
||||
Top = 40
|
||||
Width = 469
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 149
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1042#1099#1073#1077#1088#1080#1090#1077' '#1087#1072#1087#1082#1091' '#1076#1083#1103' '#1089#1078#1072#1090#1080#1103':'
|
||||
TabOrder = 0
|
||||
Text = 'D:\StroyInfo 5'
|
||||
OnChange = LabeledEdit1Change
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 491
|
||||
Top = 38
|
||||
Width = 26
|
||||
Height = 25
|
||||
Hint = #1054#1073#1079#1086#1088'...'
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '...'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 16
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 17
|
||||
Caption = #1064#1080#1092#1088#1086#1074#1072#1090#1100' '#1087#1088#1080' '#1089#1078#1072#1090#1080#1080
|
||||
TabOrder = 2
|
||||
OnClick = CheckBox1Click
|
||||
end
|
||||
object LabeledEdit2: TLabeledEdit
|
||||
Left = 264
|
||||
Top = 70
|
||||
Width = 172
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 84
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1072#1088#1086#1083#1100
|
||||
Enabled = False
|
||||
LabelPosition = lpLeft
|
||||
TabOrder = 3
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 442
|
||||
Top = 69
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1057#1078#1072#1090#1100
|
||||
TabOrder = 4
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
object GroupBox2: TGroupBox
|
||||
Left = 8
|
||||
Top = 128
|
||||
Width = 527
|
||||
Height = 137
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080' '#1088#1072#1089#1087#1072#1082#1086#1074#1082#1080
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
527
|
||||
137)
|
||||
object LabeledEdit3: TLabeledEdit
|
||||
Left = 16
|
||||
Top = 40
|
||||
Width = 469
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 171
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1042#1099#1073#1077#1088#1080#1090#1077' '#1072#1088#1093#1080#1074' '#1076#1083#1103' '#1088#1072#1089#1087#1072#1082#1086#1074#1082#1080':'
|
||||
TabOrder = 0
|
||||
OnChange = LabeledEdit3Change
|
||||
end
|
||||
object Button3: TButton
|
||||
Left = 491
|
||||
Top = 38
|
||||
Width = 26
|
||||
Height = 25
|
||||
Hint = #1054#1073#1079#1086#1088'...'
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '...'
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 1
|
||||
OnClick = Button3Click
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
Left = 16
|
||||
Top = 72
|
||||
Width = 145
|
||||
Height = 17
|
||||
Caption = #1040#1088#1093#1080#1074' '#1079#1072#1096#1080#1092#1088#1086#1074#1072#1085
|
||||
TabOrder = 2
|
||||
OnClick = CheckBox2Click
|
||||
end
|
||||
object LabeledEdit4: TLabeledEdit
|
||||
Left = 264
|
||||
Top = 70
|
||||
Width = 167
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 84
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1072#1088#1086#1083#1100
|
||||
Enabled = False
|
||||
LabelPosition = lpLeft
|
||||
TabOrder = 3
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 442
|
||||
Top = 68
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1056#1072#1089#1087#1072#1082#1086#1074#1072#1090#1100
|
||||
TabOrder = 4
|
||||
OnClick = Button4Click
|
||||
end
|
||||
object Button6: TButton
|
||||
Tag = 1
|
||||
Left = 442
|
||||
Top = 99
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1055#1088#1086#1074#1077#1088#1080#1090#1100
|
||||
TabOrder = 5
|
||||
OnClick = Button4Click
|
||||
end
|
||||
end
|
||||
object GroupBox3: TGroupBox
|
||||
Left = 8
|
||||
Top = 271
|
||||
Width = 527
|
||||
Height = 178
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = #1055#1088#1086#1080#1079#1074#1086#1076#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100':'
|
||||
TabOrder = 2
|
||||
DesignSize = (
|
||||
527
|
||||
178)
|
||||
object Label1: TLabel
|
||||
Left = 16
|
||||
Top = 24
|
||||
Width = 163
|
||||
Height = 13
|
||||
Caption = #1058#1077#1082#1091#1097#1080#1081' '#1088#1072#1089#1093#1086#1076' '#1087#1072#1084#1103#1090#1080': 0 '#1073#1072#1081#1090
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 16
|
||||
Top = 43
|
||||
Width = 163
|
||||
Height = 13
|
||||
Caption = #1055#1080#1082#1086#1074#1099#1081' '#1088#1072#1089#1093#1086#1076' '#1087#1072#1084#1103#1090#1080': 0 '#1073#1072#1081#1090
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 16
|
||||
Top = 62
|
||||
Width = 166
|
||||
Height = 13
|
||||
Caption = #1054#1073#1097#1077#1077' '#1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1101#1083#1077#1084#1077#1085#1090#1086#1074': 0'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 16
|
||||
Top = 81
|
||||
Width = 142
|
||||
Height = 13
|
||||
Caption = #1054#1073#1097#1077#1077' '#1088#1072#1079#1084#1077#1088' '#1101#1083#1077#1084#1077#1085#1090#1086#1074': 0'
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 16
|
||||
Top = 109
|
||||
Width = 501
|
||||
Height = 13
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
end
|
||||
object ProgressBar1: TProgressBar
|
||||
Left = 16
|
||||
Top = 128
|
||||
Width = 498
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 0
|
||||
end
|
||||
object ProgressBar2: TProgressBar
|
||||
Left = 16
|
||||
Top = 151
|
||||
Width = 498
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 1
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 439
|
||||
Top = 97
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1054#1089#1090#1072#1085#1086#1074#1080#1090#1100
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnClick = Button5Click
|
||||
end
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 8
|
||||
Top = 456
|
||||
Width = 527
|
||||
Height = 146
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 3
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Left = 376
|
||||
Top = 224
|
||||
end
|
||||
end
|
323
fwzip/delphi7/Demos/PerfomanceTest/Unit1.pas
Normal file
323
fwzip/delphi7/Demos/PerfomanceTest/Unit1.pas
Normal file
@@ -0,0 +1,323 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip - FWZipPerfomance
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZip
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit Unit1;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
{$WARN SYMBOL_PLATFORM OFF}
|
||||
{$WARN SYMBOL_DEPRECATED OFF}
|
||||
{$WARN UNIT_PLATFORM OFF}
|
||||
|
||||
uses
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType,
|
||||
{$ELSE}
|
||||
Windows, FileCtrl,
|
||||
{$ENDIF}
|
||||
SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls,
|
||||
FWZipWriter, FWZipReader, FWZipConsts;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
GroupBox1: TGroupBox;
|
||||
LabeledEdit1: TLabeledEdit;
|
||||
Button1: TButton;
|
||||
CheckBox1: TCheckBox;
|
||||
LabeledEdit2: TLabeledEdit;
|
||||
Button2: TButton;
|
||||
GroupBox2: TGroupBox;
|
||||
LabeledEdit3: TLabeledEdit;
|
||||
Button3: TButton;
|
||||
CheckBox2: TCheckBox;
|
||||
LabeledEdit4: TLabeledEdit;
|
||||
Button4: TButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
GroupBox3: TGroupBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
ProgressBar1: TProgressBar;
|
||||
ProgressBar2: TProgressBar;
|
||||
Label5: TLabel;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Memo1: TMemo;
|
||||
procedure CheckBox1Click(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure LabeledEdit1Change(Sender: TObject);
|
||||
procedure Button3Click(Sender: TObject);
|
||||
procedure CheckBox2Click(Sender: TObject);
|
||||
procedure LabeledEdit3Change(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button4Click(Sender: TObject);
|
||||
procedure Button5Click(Sender: TObject);
|
||||
private
|
||||
InitialHeapSize, MaxHeapSize, AverageHeapSize: Int64;
|
||||
TotalGetHeapStatusCount: Integer;
|
||||
StopProcess: Boolean;
|
||||
procedure OnProgress(Sender: TObject; const FileName: string;
|
||||
Percent, TotalPercent: Byte; var Cancel: Boolean;
|
||||
ProgressState: TProgressState);
|
||||
procedure UpdateMemoryStatus;
|
||||
procedure SetEnabledState(Value: Boolean);
|
||||
procedure ClearZipData;
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$R *.lfm}
|
||||
{$ELSE}
|
||||
{$R *.dfm}
|
||||
{$ENDIF}
|
||||
|
||||
function GetTicks: UInt64;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
Result := GetTickCount64;
|
||||
{$ELSE}
|
||||
Result := GetTickCount;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
var
|
||||
Dir: string;
|
||||
begin
|
||||
if SelectDirectory('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '', Dir) then
|
||||
LabeledEdit1.Text := Dir;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button2Click(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
TotalSize: Int64;
|
||||
Heap: THeapStatus;
|
||||
TicCount: Uint64;
|
||||
Item: TFWZipWriterItem;
|
||||
Writer: TFWZipWriter;
|
||||
begin
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
DeleteFile(
|
||||
IncludeTrailingPathDelimiter(LabeledEdit1.Text) + 'FWZipTest.zip');
|
||||
Writer.AddFolder('', LabeledEdit1.Text, '');
|
||||
TotalSize := 0;
|
||||
InitialHeapSize := 0;
|
||||
for I := 0 to Writer.Count - 1 do
|
||||
begin
|
||||
Item := Writer[I];
|
||||
Inc(TotalSize, Item.Size);
|
||||
Inc(InitialHeapSize, SizeOf(TCentralDirectoryFileHeaderEx));
|
||||
if LabeledEdit2.Text <> '' then
|
||||
begin
|
||||
Item.Password := LabeledEdit2.Text;
|
||||
Item.NeedDescriptor := True;
|
||||
end;
|
||||
end;
|
||||
Label3.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(Writer.Count);
|
||||
Label4.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(TotalSize);
|
||||
Writer.OnProgress := OnProgress;
|
||||
SetEnabledState(False);
|
||||
try
|
||||
Heap := GetHeapStatus;
|
||||
Inc(InitialHeapSize, Heap.Overhead + Heap.TotalAllocated);
|
||||
MaxHeapSize := 0;
|
||||
AverageHeapSize := 0;
|
||||
TotalGetHeapStatusCount := 0;
|
||||
StopProcess := False;
|
||||
TicCount := GetTicks;
|
||||
Writer.BuildZip(
|
||||
IncludeTrailingPathDelimiter(LabeledEdit1.Text) + 'FWZipTest.zip');
|
||||
if TotalGetHeapStatusCount = 0 then
|
||||
TotalGetHeapStatusCount := 1;
|
||||
ShowMessage(Format(
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD>' + sLineBreak +
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD>' + sLineBreak +
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
|
||||
[MaxHeapSize, AverageHeapSize div TotalGetHeapStatusCount,
|
||||
(GetTicks - TicCount) div 1000]));
|
||||
finally
|
||||
SetEnabledState(True);
|
||||
end;
|
||||
finally
|
||||
Writer.Free;
|
||||
ClearZipData;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button3Click(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog1.Execute then
|
||||
LabeledEdit3.Text := OpenDialog1.FileName;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button4Click(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
TotalSize: Int64;
|
||||
Heap: THeapStatus;
|
||||
TicCount: Uint64;
|
||||
Path: string;
|
||||
Reader: TFWZipReader;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
Path := '';
|
||||
{$ENDIF}
|
||||
SetLength(Path, MAX_PATH);
|
||||
Path := LabeledEdit3.Text;
|
||||
Path := ChangeFileExt(Path, '');
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
Reader.LoadFromFile(LabeledEdit3.Text);
|
||||
TotalSize := 0;
|
||||
for I := 0 to Reader.Count - 1 do
|
||||
Inc(TotalSize, Reader[I].UncompressedSize);
|
||||
Label3.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(Reader.Count);
|
||||
Label4.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(TotalSize);
|
||||
Reader.OnProgress := OnProgress;
|
||||
if LabeledEdit4.Text <> '' then
|
||||
Reader.PasswordList.Add(LabeledEdit4.Text);
|
||||
SetEnabledState(False);
|
||||
try
|
||||
Heap := GetHeapStatus;
|
||||
InitialHeapSize := Heap.Overhead + Heap.TotalAllocated;
|
||||
MaxHeapSize := 0;
|
||||
AverageHeapSize := 0;
|
||||
TotalGetHeapStatusCount := 0;
|
||||
StopProcess := False;
|
||||
Memo1.Lines.Clear;
|
||||
TicCount := GetTicks;
|
||||
if TButton(Sender).Tag = 0 then
|
||||
Reader.ExtractAll(Path)
|
||||
else
|
||||
Reader.Check;
|
||||
if TotalGetHeapStatusCount = 0 then
|
||||
TotalGetHeapStatusCount := 1;
|
||||
ShowMessage(Format(
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD>' + sLineBreak +
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD>' + sLineBreak +
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',
|
||||
[MaxHeapSize, AverageHeapSize div TotalGetHeapStatusCount,
|
||||
(GetTicks - TicCount) div 1000]));
|
||||
finally
|
||||
SetEnabledState(True);
|
||||
end;
|
||||
finally
|
||||
Reader.Free;
|
||||
ClearZipData;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Button5Click(Sender: TObject);
|
||||
begin
|
||||
StopProcess := True;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox1Click(Sender: TObject);
|
||||
begin
|
||||
LabeledEdit2.Enabled := CheckBox1.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.CheckBox2Click(Sender: TObject);
|
||||
begin
|
||||
LabeledEdit4.Enabled := CheckBox2.Checked;
|
||||
end;
|
||||
|
||||
procedure TForm1.ClearZipData;
|
||||
begin
|
||||
Label1.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0 <20><><EFBFBD><EFBFBD>';
|
||||
Label2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0 <20><><EFBFBD><EFBFBD>';
|
||||
Label3.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0';
|
||||
Label4.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 0';
|
||||
Label5.Caption := '';
|
||||
end;
|
||||
|
||||
procedure TForm1.LabeledEdit1Change(Sender: TObject);
|
||||
begin
|
||||
Button2.Enabled := DirectoryExists(LabeledEdit1.Text);
|
||||
end;
|
||||
|
||||
procedure TForm1.LabeledEdit3Change(Sender: TObject);
|
||||
begin
|
||||
Button4.Enabled := FileExists(LabeledEdit3.Text);
|
||||
end;
|
||||
|
||||
procedure TForm1.OnProgress(Sender: TObject; const FileName: string; Percent,
|
||||
TotalPercent: Byte; var Cancel: Boolean; ProgressState: TProgressState);
|
||||
const
|
||||
p: array [TProgressState] of string = ('psStart', 'psInitialization',
|
||||
'psInProgress', 'psFinalization', 'psEnd', 'psException');
|
||||
begin
|
||||
Cancel := StopProcess;
|
||||
Label5.Caption := Format('(%d) %s', [Percent, FileName]);
|
||||
ProgressBar1.Position := Percent;
|
||||
ProgressBar2.Position := TotalPercent;
|
||||
Memo1.Lines.Add(Format('%s - %s percent %d total %d',
|
||||
[FileName, P[ProgressState], Percent, TotalPercent]));
|
||||
UpdateMemoryStatus;
|
||||
end;
|
||||
|
||||
procedure TForm1.SetEnabledState(Value: Boolean);
|
||||
begin
|
||||
Button1.Enabled := Value;
|
||||
Button2.Enabled := Value;
|
||||
Button3.Enabled := Value;
|
||||
Button4.Enabled := Value;
|
||||
Button5.Visible := not Value;
|
||||
Button6.Enabled := Value;
|
||||
LabeledEdit1.Enabled := Value;
|
||||
LabeledEdit2.Enabled := Value;
|
||||
LabeledEdit3.Enabled := Value;
|
||||
LabeledEdit4.Enabled := Value;
|
||||
CheckBox1.Enabled := Value;
|
||||
CheckBox2.Enabled := Value;
|
||||
end;
|
||||
|
||||
procedure TForm1.UpdateMemoryStatus;
|
||||
var
|
||||
HeapStatus: THeapStatus;
|
||||
HeapSize: Int64;
|
||||
begin
|
||||
HeapStatus := GetHeapStatus;
|
||||
HeapSize := HeapStatus.Overhead + HeapStatus.TotalAllocated;
|
||||
Dec(HeapSize, InitialHeapSize);
|
||||
if HeapSize > MaxHeapSize then
|
||||
MaxHeapSize := HeapSize;
|
||||
Inc(TotalGetHeapStatusCount);
|
||||
Inc(AverageHeapSize, HeapSize);
|
||||
Label1.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(HeapSize) + ' <20><><EFBFBD><EFBFBD>';
|
||||
Label2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ' + IntToStr(MaxHeapSize) + ' <20><><EFBFBD><EFBFBD>';
|
||||
Application.ProcessMessages;
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
end.
|
24
fwzip/delphi7/Demos/PerfomanceTest/clear.bat
Normal file
24
fwzip/delphi7/Demos/PerfomanceTest/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
@@ -0,0 +1,356 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : BuildWithException
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
program BuildWithException;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
{$IFNDEF FPC}
|
||||
Windows,
|
||||
{$ENDIF}
|
||||
Classes,
|
||||
SysUtils,
|
||||
TypInfo,
|
||||
FWZipConsts,
|
||||
FWZipWriter,
|
||||
FWZipReader,
|
||||
FWZipUtils;
|
||||
|
||||
const
|
||||
INVALID_HANDLE_VALUE = THandle(-1);
|
||||
ReadLock = fmOpenRead or fmShareDenyNone;
|
||||
{$IFDEF LINUX}
|
||||
WriteLock = fmOpenWrite or fmShareExclusive;
|
||||
{$ELSE}
|
||||
WriteLock = fmOpenWrite or fmShareDenyNone;
|
||||
{$ENDIF}
|
||||
|
||||
var
|
||||
Writer: TFWZipWriter;
|
||||
Reader: TFWZipReader;
|
||||
Method: TMethod;
|
||||
hLockedFile: THandle;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> BuildZip
|
||||
// =============================================================================
|
||||
procedure ShowBuildResult(Value: TBuildZipResult);
|
||||
begin
|
||||
Writeln(GetEnumName(TypeInfo(TBuildZipResult), Integer(Value)));
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Extract
|
||||
// =============================================================================
|
||||
procedure ShowManualExtractResult(const ElementName: string;
|
||||
Value: TExtractResult);
|
||||
begin
|
||||
Writeln(Format('%s -> %s', [ElementName,
|
||||
GetEnumName(TypeInfo(TExtractResult), Integer(Value))]));
|
||||
end;
|
||||
|
||||
procedure DropLock;
|
||||
begin
|
||||
FileClose(hLockedFile);
|
||||
hLockedFile := INVALID_HANDLE_VALUE;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure OnException1({%H-}Self, Sender: TObject; {%H-}E: Exception;
|
||||
const ItemIndex: Integer; var Action: TExceptionAction;
|
||||
var NewFilePath: string; {%H-}NewFileData: TMemoryStream);
|
||||
var
|
||||
CurrentFilePath: string;
|
||||
Src: THandleStream;
|
||||
Dst: TFileStream;
|
||||
hFile: THandle;
|
||||
begin
|
||||
{$IFDEF LINUX}
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
DropLock;
|
||||
{$ENDIF}
|
||||
CurrentFilePath := string(TFWZipWriter(Sender)[ItemIndex].FilePath);
|
||||
NewFilePath := ChangeFileExt(CurrentFilePath, '.tmp');
|
||||
hFile := FileOpen(CurrentFilePath, ReadLock);
|
||||
try
|
||||
Src := THandleStream.Create(hFile);
|
||||
try
|
||||
Dst := TFileStream.Create(NewFilePath, fmCreate);
|
||||
try
|
||||
Dst.CopyFrom(Src, 0);
|
||||
finally
|
||||
Dst.Free;
|
||||
end;
|
||||
finally
|
||||
Src.Free;
|
||||
end;
|
||||
finally
|
||||
FileClose(hFile);
|
||||
end;
|
||||
Action := eaUseNewFilePathAndDel;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure OnException2({%H-}Self, Sender: TObject; {%H-}E: Exception;
|
||||
const {%H-}ItemIndex: Integer; var Action: TExceptionAction;
|
||||
var {%H-}NewFilePath: string; {%H-}NewFileData: TMemoryStream);
|
||||
begin
|
||||
DropLock;
|
||||
Action := eaRetry;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure OnException3({%H-}Self, Sender: TObject; {%H-}E: Exception;
|
||||
const ItemIndex: Integer; var Action: TExceptionAction;
|
||||
var {%H-}NewFilePath: string; NewFileData: TMemoryStream);
|
||||
var
|
||||
Src: THandleStream;
|
||||
hFile: THandle;
|
||||
begin
|
||||
{$IFDEF LINUX}
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
DropLock;
|
||||
{$ENDIF}
|
||||
hFile := FileOpen(TFWZipWriter(Sender)[ItemIndex].FilePath, ReadLock);
|
||||
try
|
||||
Src := THandleStream.Create(hFile);
|
||||
try
|
||||
NewFileData.CopyFrom(Src, 0);
|
||||
finally
|
||||
Src.Free;
|
||||
end;
|
||||
finally
|
||||
FileClose(hFile);
|
||||
end;
|
||||
Action := eaUseNewFileData;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure OnDuplicate({%H-}Self, Sender: TObject;
|
||||
var Path: string; var Action: TDuplicateAction);
|
||||
begin
|
||||
Path := MakeUniqueName(Path);
|
||||
Action := daUseNewFilePath;
|
||||
end;
|
||||
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> eaSkip) <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> BuildZip
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// brFailed - <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.<2E>. <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
// brPartialBuild - <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
Writer.AddFolder('', '..\..\', '*.pas', False);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
hLockedFile := FileOpen(PathCanonicalize('..\..\' + Writer[0].FileName), WriteLock);
|
||||
try
|
||||
Write('BuildWithException1.zip -> ');
|
||||
ShowBuildResult(Writer.BuildZip('..\DemoResults\BuildWithException1.zip'));
|
||||
finally
|
||||
FileClose(hLockedFile);
|
||||
end;
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnException
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
Writer.AddFolder('', '..\..\', '*.pas', False);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
hLockedFile := FileOpen(PathCanonicalize('..\..\' + Writer[0].FileName), WriteLock);
|
||||
try
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnException1 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NewFilePath <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Action <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> eaUseNewFilePathAndDel
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZip <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
Method.Code := @OnException1;
|
||||
Method.Data := Writer;
|
||||
Writer.OnException := TZipBuildExceptionEvent(Method);
|
||||
|
||||
Write('BuildWithException2.zip -> ');
|
||||
ShowBuildResult(Writer.BuildZip('..\DemoResults\BuildWithException2.zip'));
|
||||
|
||||
{$IFDEF LINUX}
|
||||
if hLockedFile = INVALID_HANDLE_VALUE then
|
||||
hLockedFile := FileOpen(PathCanonicalize('..\..\' + Writer[0].FileName), WriteLock);
|
||||
{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnException2
|
||||
// <20> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Action <20> eaRetry.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZip <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Method.Code := @OnException2;
|
||||
Method.Data := Writer;
|
||||
Writer.OnException := TZipBuildExceptionEvent(Method);
|
||||
|
||||
Write('BuildWithException3.zip -> ');
|
||||
ShowBuildResult(Writer.BuildZip('..\DemoResults\BuildWithException3.zip'));
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
if hLockedFile = INVALID_HANDLE_VALUE then
|
||||
hLockedFile := FileOpen(PathCanonicalize('..\..\' + Writer[0].FileName), WriteLock);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnException3
|
||||
// <20> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Action <20> eaUseNewFileData
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// NewFileData
|
||||
|
||||
Method.Code := @OnException3;
|
||||
Method.Data := Writer;
|
||||
Writer.OnException := TZipBuildExceptionEvent(Method);
|
||||
|
||||
Write('BuildWithException4.zip -> ');
|
||||
ShowBuildResult(Writer.BuildZip('..\DemoResults\BuildWithException4.zip'));
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Action <20> eaSkip (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD> eaAbort,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
|
||||
finally
|
||||
if hLockedFile <> INVALID_HANDLE_VALUE then
|
||||
FileClose(hLockedFile);
|
||||
end;
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib (<28><>. Readme.txt <20><><EFBFBD><EFBFBD><EFBFBD> 9)
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnException. <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader.ExtractAll
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> Handled:
|
||||
// (Handled = True, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD> <20> <20><>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
Reader.LoadFromFile('..\DemoResults\BuildWithException1.zip');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
|
||||
Reader.ExtractAll('..\DemoResults\BuildWithExceptionUnpack\');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Reader.ExtractAll('..\DemoResults\BuildWithExceptionUnpack\');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD> Reader[I].Extract <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> Reader.ExtractAll
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
Writeln('Manual extract:');
|
||||
for I := 0 to Reader.Count - 1 do
|
||||
ShowManualExtractResult(
|
||||
string(Reader[I].FileName),
|
||||
Reader[I].Extract('..\DemoResults\BuildWithExceptionUnpack\', ''));
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// (Reader[I].Extract <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> erSkiped <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (ExtractAll)
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnDuplicate <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnDuplicate <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Reader.Items[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>].OnDuplicate)
|
||||
|
||||
Method.Code := @OnDuplicate;
|
||||
Method.Data := Reader;
|
||||
Reader.OnDuplicate := TZipDuplicateEvent(Method);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnDuplicate <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Action <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> daUseNewFilePath.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader-<2D> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...
|
||||
// (<28>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// New folder -> New folder (2) -> New folder (3) <20> <20>.<2E>.)
|
||||
|
||||
Reader.ExtractAll('..\DemoResults\BuildWithExceptionUnpack\');
|
||||
|
||||
finally
|
||||
Reader.Free;
|
||||
end;
|
||||
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Test Build With Exception/clear.bat
Normal file
24
fwzip/delphi7/Demos/Test Build With Exception/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
223
fwzip/delphi7/Demos/Use ZIP ExData/UseExDataBlob.dpr
Normal file
223
fwzip/delphi7/Demos/Use ZIP ExData/UseExDataBlob.dpr
Normal file
@@ -0,0 +1,223 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : UseExDataBlob
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData.
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>. <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnSaveExData.
|
||||
|
||||
program UseExDataBlob;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ELSE}
|
||||
{$APPTYPE CONSOLE}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
FWZipWriter,
|
||||
FWZipReader,
|
||||
FWZipConsts;
|
||||
|
||||
const
|
||||
TestExDataBlob: Cardinal = $DEADBEEF;
|
||||
|
||||
var
|
||||
Writer: TFWZipWriter;
|
||||
Reader: TFWZipReader;
|
||||
Method: TMethod;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure OnSaveExData({%H-}Self, Sender: TObject; {%H-}ItemIndex: Integer;
|
||||
UserExDataBlockCount: Integer; var Tag: Word; Data: TStream);
|
||||
var
|
||||
RandomValue: Cardinal;
|
||||
begin
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> Data, <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Data <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> MAXWORD <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>.
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>. <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> Data.
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> UserExDataBlockCount
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
|
||||
{
|
||||
The current Header ID mappings defined by PKWARE are:
|
||||
|
||||
0x0001 ZIP64 extended information extra field
|
||||
0x0007 AV Info
|
||||
0x0008 Reserved for future Unicode file name data (PFS)
|
||||
0x0009 OS/2 extended attributes (also Info-ZIP)
|
||||
0x000a NTFS (Win9x/WinNT FileTimes)
|
||||
0x000c OpenVMS (also Info-ZIP)
|
||||
0x000d Unix
|
||||
0x000e Reserved for file stream and fork descriptors
|
||||
0x000f Patch Descriptor
|
||||
0x0014 PKCS#7 Store for X.509 Certificates
|
||||
0x0015 X.509 Certificate ID and Signature for
|
||||
individual file
|
||||
0x0016 X.509 Certificate ID for Central Directory
|
||||
0x0017 Strong Encryption Header
|
||||
0x0018 Record Management Controls
|
||||
0x0019 PKCS#7 Encryption Recipient Certificate List
|
||||
0x0065 IBM S/390 (Z390), AS/400 (I400) attributes
|
||||
- uncompressed
|
||||
0x0066 Reserved for IBM S/390 (Z390), AS/400 (I400)
|
||||
attributes - compressed
|
||||
|
||||
The Header ID mappings defined by Info-ZIP and third parties are:
|
||||
|
||||
0x07c8 Info-ZIP Macintosh (old, J. Lee)
|
||||
0x2605 ZipIt Macintosh (first version)
|
||||
0x2705 ZipIt Macintosh v 1.3.5 and newer (w/o full filename)
|
||||
0x2805 ZipIt Macintosh 1.3.5+
|
||||
0x334d Info-ZIP Macintosh (new, D. Haase's 'Mac3' field)
|
||||
0x4154 Tandem NSK
|
||||
0x4341 Acorn/SparkFS (David Pilling)
|
||||
0x4453 Windows NT security descriptor (binary ACL)
|
||||
0x4704 VM/CMS
|
||||
0x470f MVS
|
||||
0x4854 Theos, old inofficial port
|
||||
0x4b46 FWKCS MD5 (see below)
|
||||
0x4c41 OS/2 access control list (text ACL)
|
||||
0x4d49 Info-ZIP OpenVMS (obsolete)
|
||||
0x4d63 Macintosh SmartZIP, by Macro Bambini
|
||||
0x4f4c Xceed original location extra field
|
||||
0x5356 AOS/VS (binary ACL)
|
||||
0x5455 extended timestamp
|
||||
0x554e Xceed unicode extra field
|
||||
0x5855 Info-ZIP Unix (original; also OS/2, NT, etc.)
|
||||
0x6542 BeOS (BeBox, PowerMac, etc.)
|
||||
0x6854 Theos
|
||||
0x7441 AtheOS (AtheOS/Syllable attributes)
|
||||
0x756e ASi Unix
|
||||
0x7855 Info-ZIP Unix (new)
|
||||
0xfb4a SMS/QDOS
|
||||
}
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
case UserExDataBlockCount of
|
||||
0:
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> $FFFA)
|
||||
Tag := $FFFA;
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Data.WriteBuffer(TestExDataBlob, 4);
|
||||
end;
|
||||
1..2:
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
Tag := $FFFB + UserExDataBlockCount;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Randomize;
|
||||
RandomValue := Random(MaxInt);
|
||||
Data.WriteBuffer(RandomValue, 4);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader.LoadFromFile
|
||||
// Sender <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReaderItem,
|
||||
// <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ExData.
|
||||
// =============================================================================
|
||||
procedure OnLoadExData({%H-}Self, Sender: TObject; {%H-}ItemIndex: Integer;
|
||||
Tag: Word; Data: TStream);
|
||||
var
|
||||
Value: Cardinal;
|
||||
begin
|
||||
// <20><><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> $FFFA
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if Tag = $FFFA then
|
||||
begin
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
if Data.Size <> 4 then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ExData');
|
||||
Value := 0;
|
||||
Data.ReadBuffer(Value, Data.Size);
|
||||
if Value <> TestExDataBlob then
|
||||
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ExData');
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> Tag
|
||||
TFWZipReaderItem(Sender).Tag := Integer(Value);
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20>.<2E>. <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Sender
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// Reader[ItemIndex].Tag := Integer(Value); - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
SetCurrentDir(ExtractFilePath(ParamStr(0)));
|
||||
try
|
||||
Writer := TFWZipWriter.Create;
|
||||
try
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer.AddFolder('', '..\..\', '*.*', False);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Method.Code := @OnSaveExData;
|
||||
Method.Data := Writer;
|
||||
Writer.OnSaveExData := TZipSaveExDataEvent(Method);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Writer.BuildZip('..\DemoResults\UseExDataBlob.zip');
|
||||
finally
|
||||
Writer.Free;
|
||||
end;
|
||||
|
||||
Reader := TFWZipReader.Create;
|
||||
try
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> OnLoadExData
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
Method.Code := @OnLoadExData;
|
||||
Method.Data := Reader;
|
||||
Reader.OnLoadExData := TZipLoadExDataEvent(Method);
|
||||
Reader.LoadFromFile('..\DemoResults\UseExDataBlob.zip');
|
||||
finally
|
||||
Reader.Free;
|
||||
end;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
Readln;
|
||||
end.
|
24
fwzip/delphi7/Demos/Use ZIP ExData/clear.bat
Normal file
24
fwzip/delphi7/Demos/Use ZIP ExData/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
23
fwzip/delphi7/Demos/ZipAnalizer/ZipAnalizer.dpr
Normal file
23
fwzip/delphi7/Demos/ZipAnalizer/ZipAnalizer.dpr
Normal file
@@ -0,0 +1,23 @@
|
||||
program ZipAnalizer;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
{$IFnDEF FPC}
|
||||
{$ELSE}
|
||||
Interfaces,
|
||||
{$ENDIF}
|
||||
Forms,
|
||||
uZipAnalizer in 'uZipAnalizer.pas' {dlgZipAnalizer};
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$R *.res}
|
||||
{$ENDIF}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TdlgZipAnalizer, dlgZipAnalizer);
|
||||
Application.Run;
|
||||
end.
|
24
fwzip/delphi7/Demos/ZipAnalizer/clear.bat
Normal file
24
fwzip/delphi7/Demos/ZipAnalizer/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
104
fwzip/delphi7/Demos/ZipAnalizer/uZipAnalizer.dfm
Normal file
104
fwzip/delphi7/Demos/ZipAnalizer/uZipAnalizer.dfm
Normal file
@@ -0,0 +1,104 @@
|
||||
object dlgZipAnalizer: TdlgZipAnalizer
|
||||
Left = 301
|
||||
Top = 184
|
||||
Caption = #1042#1099#1074#1086#1076' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' ZIP '#1072#1088#1093#1080#1074#1072
|
||||
ClientHeight = 300
|
||||
ClientWidth = 685
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
DesignSize = (
|
||||
685
|
||||
300)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object edPath: TLabeledEdit
|
||||
Left = 8
|
||||
Top = 24
|
||||
Width = 550
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 124
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1091#1090#1100' '#1082' '#1072#1088#1093#1080#1074#1091':'
|
||||
TabOrder = 0
|
||||
OnChange = edPathChange
|
||||
end
|
||||
object btnBrowse: TButton
|
||||
Left = 560
|
||||
Top = 22
|
||||
Width = 25
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
OnClick = btnBrowseClick
|
||||
end
|
||||
object btnAnalize: TButton
|
||||
Left = 589
|
||||
Top = 22
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1057#1090#1072#1088#1090
|
||||
Enabled = False
|
||||
TabOrder = 2
|
||||
OnClick = btnAnalizeClick
|
||||
end
|
||||
object GroupBox: TGroupBox
|
||||
Left = 8
|
||||
Top = 56
|
||||
Width = 669
|
||||
Height = 233
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1072#1088#1093#1080#1074#1072':'
|
||||
TabOrder = 3
|
||||
object edReport: TMemo
|
||||
Left = 2
|
||||
Top = 15
|
||||
Width = 665
|
||||
Height = 216
|
||||
Align = alClient
|
||||
Font.Charset = RUSSIAN_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
PopupMenu = PopupMenu
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
DefaultExt = 'zip'
|
||||
Filter = 'ZIP '#1072#1088#1093#1080#1074#1099' (*.zip)|*.zip|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
|
||||
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
object PopupMenu: TPopupMenu
|
||||
OnPopup = PopupMenuPopup
|
||||
Left = 120
|
||||
Top = 88
|
||||
object mnuSave: TMenuItem
|
||||
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100'...'
|
||||
ShortCut = 16467
|
||||
OnClick = mnuSaveClick
|
||||
end
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
DefaultExt = 'txt'
|
||||
Filter = #1058#1077#1082#1089#1090#1086#1074#1099#1077' '#1092#1072#1081#1083#1099' (*.txt)|*.txt|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
|
||||
Left = 208
|
||||
Top = 88
|
||||
end
|
||||
end
|
372
fwzip/delphi7/Demos/ZipAnalizer/uZipAnalizer.pas
Normal file
372
fwzip/delphi7/Demos/ZipAnalizer/uZipAnalizer.pas
Normal file
@@ -0,0 +1,372 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip - ZipAnalizer
|
||||
// * Unit Name : uZipAnalizer
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZipReader
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit uZipAnalizer;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFnDEF FPC}
|
||||
Windows,
|
||||
{$ELSE}
|
||||
LCLIntf, LCLType,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus,
|
||||
|
||||
FWZipReader,
|
||||
FWZipConsts,
|
||||
FWZipUtils;
|
||||
|
||||
type
|
||||
TFWZipReaderFriendly = class(TFWZipReader);
|
||||
TFWZipReaderItemFriendly = class(TFWZipReaderItem);
|
||||
TExDataRecord = record
|
||||
Index: Integer;
|
||||
Tag: Word;
|
||||
Stream: TMemoryStream;
|
||||
end;
|
||||
TExDataRecords = array of TExDataRecord;
|
||||
|
||||
TdlgZipAnalizer = class(TForm)
|
||||
edPath: TLabeledEdit;
|
||||
btnBrowse: TButton;
|
||||
btnAnalize: TButton;
|
||||
GroupBox: TGroupBox;
|
||||
edReport: TMemo;
|
||||
OpenDialog: TOpenDialog;
|
||||
PopupMenu: TPopupMenu;
|
||||
mnuSave: TMenuItem;
|
||||
SaveDialog: TSaveDialog;
|
||||
procedure btnBrowseClick(Sender: TObject);
|
||||
procedure edPathChange(Sender: TObject);
|
||||
procedure btnAnalizeClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure mnuSaveClick(Sender: TObject);
|
||||
procedure PopupMenuPopup(Sender: TObject);
|
||||
private
|
||||
ExDataRecords: TExDataRecords;
|
||||
Zip: TFWZipReaderFriendly;
|
||||
procedure OnLoadExData(Sender: TObject; ItemIndex: Integer;
|
||||
Tag: Word; Data: TStream);
|
||||
private
|
||||
procedure ClearExData;
|
||||
procedure Log(const Value: string);
|
||||
procedure ShowEndOfCentralDir;
|
||||
procedure ShowZip64EOFCentralDirectoryLocator;
|
||||
procedure ShowZip64EOFCentralDirectoryRecord;
|
||||
procedure ShowItemData(Index: Integer);
|
||||
end;
|
||||
|
||||
var
|
||||
dlgZipAnalizer: TdlgZipAnalizer;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
Delim = '===================================================================';
|
||||
|
||||
{$IFnDEF FPC}
|
||||
{$R *.dfm}
|
||||
{$ELSE}
|
||||
{$R *.lfm}
|
||||
{$ENDIF}
|
||||
|
||||
procedure TdlgZipAnalizer.btnAnalizeClick(Sender: TObject);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
edReport.Lines.BeginUpdate;
|
||||
try
|
||||
edReport.Clear;
|
||||
Log(edPath.Text);
|
||||
Log(Delim);
|
||||
ClearExData;
|
||||
Zip.Clear;
|
||||
Zip.LoadFromFile(edPath.Text);
|
||||
ShowEndOfCentralDir;
|
||||
ShowZip64EOFCentralDirectoryLocator;
|
||||
ShowZip64EOFCentralDirectoryRecord;
|
||||
for I := 0 to Zip.Count - 1 do
|
||||
ShowItemData(I);
|
||||
Log('DONE');
|
||||
finally
|
||||
edReport.Lines.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.btnBrowseClick(Sender: TObject);
|
||||
begin
|
||||
UseLongNamePrefix := False;
|
||||
OpenDialog.InitialDir :=
|
||||
PathCanonicalize(ExtractFilePath(ParamStr(0)) + '..\DemoResults');
|
||||
if OpenDialog.Execute then
|
||||
begin
|
||||
edPath.Text := OpenDialog.FileName;
|
||||
edReport.Clear;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ClearExData;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
for I := 0 to Length(ExDataRecords) - 1 do
|
||||
ExDataRecords[I].Stream.Free;
|
||||
SetLength(ExDataRecords, 0);;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.edPathChange(Sender: TObject);
|
||||
begin
|
||||
btnAnalize.Enabled := FileExists(edPath.Text);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Zip := TFWZipReaderFriendly.Create;
|
||||
Zip.OnLoadExData := OnLoadExData;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
ClearExData;
|
||||
Zip.Free;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.Log(const Value: string);
|
||||
begin
|
||||
edReport.Lines.Add(Value);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.mnuSaveClick(Sender: TObject);
|
||||
begin
|
||||
if SaveDialog.Execute then
|
||||
edReport.Lines.SaveToFile(SaveDialog.FileName);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.OnLoadExData(Sender: TObject; ItemIndex: Integer;
|
||||
Tag: Word; Data: TStream);
|
||||
var
|
||||
Count: Integer;
|
||||
begin
|
||||
Count := Length(ExDataRecords);
|
||||
SetLength(ExDataRecords, Count + 1);
|
||||
ExDataRecords[Count].Index := ItemIndex;
|
||||
ExDataRecords[Count].Tag := Tag;
|
||||
ExDataRecords[Count].Stream := TMemoryStream.Create;
|
||||
ExDataRecords[Count].Stream.CopyFrom(Data, 0);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.PopupMenuPopup(Sender: TObject);
|
||||
begin
|
||||
mnuSave.Enabled := edReport.Lines.Count > 1;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowEndOfCentralDir;
|
||||
begin
|
||||
Log('END_OF_CENTRAL_DIR_SIGNATURE found');
|
||||
with Zip.EndOfCentralDir do
|
||||
begin
|
||||
Log(Format('NumberOfThisDisk: %d', [NumberOfThisDisk]));
|
||||
Log(Format('NumberOfTheDiskWithTheStart: %d', [DiskNumberStart]));
|
||||
Log(Format('TotalNumberOfEntriesOnThisDisk: %d', [TotalNumberOfEntriesOnThisDisk]));
|
||||
Log(Format('TotalNumberOfEntries: %d', [TotalNumberOfEntries]));
|
||||
Log(Format('SizeOfTheCentralDirectory: %d', [SizeOfTheCentralDirectory]));
|
||||
Log(Format('OffsetOfStartOfCentralDirectory: %d', [RelativeOffsetOfCentralDirectory]));
|
||||
Log(Format('ZipfileCommentLength: %d', [ZipfileCommentLength]));
|
||||
if ZipfileCommentLength > 0 then
|
||||
Log(Format('Comment: %s', [Zip.Comment]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowItemData(Index: Integer);
|
||||
|
||||
function ByteToStr(Bytes: PByte; Size: Integer): string;
|
||||
const
|
||||
BytesHex: array[0..15] of char =
|
||||
('0', '1', '2', '3', '4', '5', '6', '7',
|
||||
'8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
|
||||
var
|
||||
I: integer;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
Result := '';
|
||||
{$ENDIF}
|
||||
SetLength(Result, Size shl 1);
|
||||
for I := 0 to Size - 1 do
|
||||
begin
|
||||
Result[I * 2 + 1] := BytesHex[Bytes^ shr 4];
|
||||
Result[I * 2 + 2] := BytesHex[Bytes^ and $0F];
|
||||
Inc(Bytes);
|
||||
end;
|
||||
end;
|
||||
|
||||
function GPBFToStr(Value: Word): string;
|
||||
|
||||
procedure AddValue(const S: string);
|
||||
begin
|
||||
if Result = '' then
|
||||
Result := S
|
||||
else
|
||||
Result := Result + ', ' + S;
|
||||
end;
|
||||
|
||||
begin
|
||||
if Value = 0 then
|
||||
begin
|
||||
Result := 'EMPTY';
|
||||
Exit;
|
||||
end;
|
||||
if PBF_CRYPTED and Value <> 0 then
|
||||
AddValue('PBF_CRYPTED');
|
||||
|
||||
if PBF_DESCRIPTOR and Value <> 0 then
|
||||
AddValue('PBF_DESCRIPTOR');
|
||||
|
||||
if PBF_UTF8 and Value <> 0 then
|
||||
AddValue('PBF_UTF8');
|
||||
|
||||
if PBF_STRONG_CRYPT and Value <> 0 then
|
||||
AddValue('PBF_STRONG_CRYPT');
|
||||
end;
|
||||
|
||||
var
|
||||
I: Integer;
|
||||
Item: TFWZipReaderItemFriendly;
|
||||
begin
|
||||
Log('CENTRAL_FILE_HEADER_SIGNATURE found');
|
||||
Item := TFWZipReaderItemFriendly(Zip.Item[Index]);
|
||||
with Item.CentralDirFileHeader do
|
||||
begin
|
||||
Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
|
||||
GPBFToStr(GeneralPurposeBitFlag)]));
|
||||
Log(Format('CompressionMethod: %d', [CompressionMethod]));
|
||||
Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
|
||||
Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
|
||||
Log(Format('Crc32: %d', [Crc32]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
Log(Format('FilenameLength: %d', [FilenameLength]));
|
||||
if FilenameLength > 0 then
|
||||
Log('>>> FileName: ' + Item.FileName);
|
||||
Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
|
||||
Log(Format('FileCommentLength: %d', [FileCommentLength]));
|
||||
if FileCommentLength > 0 then
|
||||
Log('>>> FileComment: ' + Item.Comment);
|
||||
Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
|
||||
Log(Format('InternalFileAttributes: %d', [InternalFileAttributes]));
|
||||
Log(Format('ExternalFileAttributes: %d', [ExternalFileAttributes]));
|
||||
Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
|
||||
end;
|
||||
|
||||
Log('');
|
||||
|
||||
Item.LoadLocalFileHeader;
|
||||
Log('LOCAL_FILE_HEADER_SIGNATURE found');
|
||||
with Item.LocalFileHeader do
|
||||
begin
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
|
||||
GPBFToStr(GeneralPurposeBitFlag)]));
|
||||
Log(Format('CompressionMethod: %d', [CompressionMethod]));
|
||||
Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
|
||||
Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
|
||||
Log(Format('Crc32: %d', [Crc32]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
Log(Format('FilenameLength: %d', [FilenameLength]));
|
||||
Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
|
||||
end;
|
||||
|
||||
if ssZIP64 in Item.PresentStreams then
|
||||
begin
|
||||
Log('');
|
||||
Log('SUPPORTED_EXDATA_ZIP64 found');
|
||||
with Item do
|
||||
begin
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
|
||||
Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
|
||||
end;
|
||||
end;
|
||||
|
||||
if ssNTFS in Item.PresentStreams then
|
||||
begin
|
||||
Log('');
|
||||
Log('SUPPORTED_EXDATA_NTFSTIME found');
|
||||
end;
|
||||
|
||||
for I := 0 to Length(ExDataRecords) - 1 do
|
||||
if ExDataRecords[I].Index = Index then
|
||||
begin
|
||||
Log('');
|
||||
Log(Format('UNKNOWN TAG (%d) found', [ExDataRecords[I].Tag]));
|
||||
Log(Format('ExData size %d', [ExDataRecords[I].Stream.Size]));
|
||||
Log('ExData dump:');
|
||||
Log(ByteToStr(ExDataRecords[I].Stream.Memory, ExDataRecords[I].Stream.Size));
|
||||
end;
|
||||
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowZip64EOFCentralDirectoryLocator;
|
||||
begin
|
||||
with Zip.Zip64EOFCentralDirectoryLocator do
|
||||
begin
|
||||
if Signature <> ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE then Exit;
|
||||
Log('ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE found');
|
||||
Log(Format('NumberOfTheDisk: %d', [DiskNumberStart]));
|
||||
Log(Format('RelativeOffset: %d', [RelativeOffset]));
|
||||
Log(Format('TotalNumberOfDisks: %d', [TotalNumberOfDisks]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowZip64EOFCentralDirectoryRecord;
|
||||
begin
|
||||
with Zip.Zip64EOFCentralDirectoryRecord do
|
||||
begin
|
||||
if Zip64EndOfCentralDirSignature <> ZIP64_END_OF_CENTRAL_DIR_SIGNATURE then Exit;
|
||||
Log('ZIP64_END_OF_CENTRAL_DIR_SIGNATURE found');
|
||||
Log(Format('SizeOfZip64EOFCentralDirectoryRecord: %d', [SizeOfZip64EOFCentralDirectoryRecord]));
|
||||
Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('number of this disk: %d', [NumberOfThisDisk]));
|
||||
Log(Format('number of the disk with the start of the central directory: %d', [DiskNumberStart]));
|
||||
Log(Format('total number of entries in the central directory on this disk: %d', [TotalNumberOfEntriesOnThisDisk]));
|
||||
Log(Format('total number of entries in the central directory: %d', [TotalNumberOfEntries]));
|
||||
Log(Format('size of the central directory: %d', [SizeOfTheCentralDirectory]));
|
||||
Log(Format('offset of start of central directory with respect to the starting disk number: %d', [RelativeOffsetOfCentralDirectory]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
end.
|
23
fwzip/delphi7/Demos/ZipAnalizer2/ZipAnalizer2.dpr
Normal file
23
fwzip/delphi7/Demos/ZipAnalizer2/ZipAnalizer2.dpr
Normal file
@@ -0,0 +1,23 @@
|
||||
program ZipAnalizer2;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$ENDIF}
|
||||
|
||||
uses
|
||||
{$IFnDEF FPC}
|
||||
{$ELSE}
|
||||
Interfaces,
|
||||
{$ENDIF}
|
||||
Forms,
|
||||
uZipAnalizer2 in 'uZipAnalizer2.pas' {dlgZipAnalizer};
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$R *.res}
|
||||
{$ENDIF}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TdlgZipAnalizer, dlgZipAnalizer);
|
||||
Application.Run;
|
||||
end.
|
24
fwzip/delphi7/Demos/ZipAnalizer2/clear.bat
Normal file
24
fwzip/delphi7/Demos/ZipAnalizer2/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
102
fwzip/delphi7/Demos/ZipAnalizer2/uZipAnalizer2.dfm
Normal file
102
fwzip/delphi7/Demos/ZipAnalizer2/uZipAnalizer2.dfm
Normal file
@@ -0,0 +1,102 @@
|
||||
object dlgZipAnalizer: TdlgZipAnalizer
|
||||
Left = 301
|
||||
Top = 184
|
||||
Caption = #1042#1099#1074#1086#1076' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' ZIP '#1072#1088#1093#1080#1074#1072
|
||||
ClientHeight = 300
|
||||
ClientWidth = 685
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
DesignSize = (
|
||||
685
|
||||
300)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object edPath: TLabeledEdit
|
||||
Left = 8
|
||||
Top = 24
|
||||
Width = 550
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
EditLabel.Width = 124
|
||||
EditLabel.Height = 13
|
||||
EditLabel.Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1091#1090#1100' '#1082' '#1072#1088#1093#1080#1074#1091':'
|
||||
TabOrder = 0
|
||||
OnChange = edPathChange
|
||||
end
|
||||
object btnBrowse: TButton
|
||||
Left = 560
|
||||
Top = 22
|
||||
Width = 25
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
OnClick = btnBrowseClick
|
||||
end
|
||||
object btnAnalize: TButton
|
||||
Left = 591
|
||||
Top = 22
|
||||
Width = 75
|
||||
Height = 25
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = #1057#1090#1072#1088#1090
|
||||
Enabled = False
|
||||
TabOrder = 2
|
||||
OnClick = btnAnalizeClick
|
||||
end
|
||||
object GroupBox: TGroupBox
|
||||
Left = 8
|
||||
Top = 56
|
||||
Width = 669
|
||||
Height = 233
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1072#1088#1093#1080#1074#1072':'
|
||||
TabOrder = 3
|
||||
object edReport: TMemo
|
||||
Left = 2
|
||||
Top = 15
|
||||
Width = 665
|
||||
Height = 216
|
||||
Align = alClient
|
||||
Font.Charset = RUSSIAN_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
PopupMenu = PopupMenu
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
DefaultExt = 'zip'
|
||||
Filter = 'ZIP '#1072#1088#1093#1080#1074#1099' (*.zip)|*.zip|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
|
||||
Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
|
||||
Left = 48
|
||||
Top = 88
|
||||
end
|
||||
object PopupMenu: TPopupMenu
|
||||
OnPopup = PopupMenuPopup
|
||||
Left = 120
|
||||
Top = 88
|
||||
object mnuSave: TMenuItem
|
||||
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100'...'
|
||||
ShortCut = 16467
|
||||
OnClick = mnuSaveClick
|
||||
end
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
DefaultExt = 'txt'
|
||||
Filter = #1058#1077#1082#1089#1090#1086#1074#1099#1077' '#1092#1072#1081#1083#1099' (*.txt)|*.txt|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
|
||||
Left = 208
|
||||
Top = 88
|
||||
end
|
||||
end
|
642
fwzip/delphi7/Demos/ZipAnalizer2/uZipAnalizer2.pas
Normal file
642
fwzip/delphi7/Demos/ZipAnalizer2/uZipAnalizer2.pas
Normal file
@@ -0,0 +1,642 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip - ZipAnalizer2
|
||||
// * Unit Name : uZipAnalizer2
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit uZipAnalizer2;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF FPC}
|
||||
LCLIntf, LCLType,
|
||||
{$ENDIF}
|
||||
SysUtils, Classes, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus,
|
||||
FWZipConsts, FWZipZLib, FWZipUtils;
|
||||
|
||||
type
|
||||
TdlgZipAnalizer = class(TForm)
|
||||
edPath: TLabeledEdit;
|
||||
btnBrowse: TButton;
|
||||
btnAnalize: TButton;
|
||||
GroupBox: TGroupBox;
|
||||
edReport: TMemo;
|
||||
OpenDialog: TOpenDialog;
|
||||
PopupMenu: TPopupMenu;
|
||||
mnuSave: TMenuItem;
|
||||
SaveDialog: TSaveDialog;
|
||||
procedure btnBrowseClick(Sender: TObject);
|
||||
procedure edPathChange(Sender: TObject);
|
||||
procedure btnAnalizeClick(Sender: TObject);
|
||||
procedure mnuSaveClick(Sender: TObject);
|
||||
procedure PopupMenuPopup(Sender: TObject);
|
||||
private
|
||||
procedure Log(const Value: string);
|
||||
procedure Scan(const Value: string);
|
||||
function FindSing(Stream: TStream): DWORD;
|
||||
procedure ShowLocalFileHeader(Stream: TStream);
|
||||
procedure ShowDataDescryptor(Stream: TStream);
|
||||
procedure ShowCentralFileHeader(Stream: TStream);
|
||||
procedure ShowExtraFields(Stream: TStream; Size: Integer;
|
||||
FileHeader: TCentralDirectoryFileHeader);
|
||||
procedure ShowZip64(Stream: TStream);
|
||||
procedure ShowZip64Locator(Stream: TStream);
|
||||
procedure ShowEndOfCentralDir(Stream: TStream);
|
||||
procedure LoadStringValue(Stream: TStream; out Value: string;
|
||||
nSize: Cardinal; UTF: Boolean);
|
||||
end;
|
||||
|
||||
var
|
||||
dlgZipAnalizer: TdlgZipAnalizer;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
Delim = '===================================================================';
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
function CompressionMethodToStr(Value: Integer): string;
|
||||
begin
|
||||
case Value of
|
||||
Z_NO_COMPRESSION: Result := 'NO_COMPRESSION';
|
||||
Z_DEFLATED: Result := 'DEFLATE';
|
||||
1: Result := 'Shrunk';
|
||||
2..5: Result := 'Reduced with compression factor ' + IntToStr(Value - 1);
|
||||
6: Result := 'Imploding';
|
||||
9: Result := 'DEFLATE64';
|
||||
10: Result := 'PKWARE Imploding';
|
||||
11, 13, 15..17: Result := 'Reserved by PKWARE';
|
||||
12: Result := 'BZIP2';
|
||||
14: Result := 'LZMA';
|
||||
18: Result := 'IBM TERSE';
|
||||
19: Result := 'IBM LZ77';
|
||||
97: Result := 'WavPack';
|
||||
98: Result := 'PPMd';
|
||||
else
|
||||
Result := 'unknown';
|
||||
end;
|
||||
end;
|
||||
|
||||
function GPBFToStr(Value: Word): string;
|
||||
|
||||
procedure AddValue(const S: string);
|
||||
begin
|
||||
if Result = '' then
|
||||
Result := S
|
||||
else
|
||||
Result := Result + ', ' + S;
|
||||
end;
|
||||
|
||||
begin
|
||||
if Value = 0 then
|
||||
begin
|
||||
Result := 'PBF_COMPRESS_NORMAL';
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if (Value and 7) in [PBF_COMPRESS_NORMAL, PBF_CRYPTED] then
|
||||
AddValue('PBF_COMPRESS_NORMAL');
|
||||
|
||||
case Value and 6 of
|
||||
PBF_COMPRESS_MAXIMUM: AddValue('PBF_COMPRESS_MAXIMUM');
|
||||
PBF_COMPRESS_FAST: AddValue('PBF_COMPRESS_FAST');
|
||||
PBF_COMPRESS_SUPERFAST: AddValue('PBF_COMPRESS_SUPERFAST');
|
||||
end;
|
||||
|
||||
if PBF_CRYPTED and Value = PBF_CRYPTED then
|
||||
AddValue('PBF_CRYPTED');
|
||||
|
||||
if PBF_DESCRIPTOR and Value = PBF_DESCRIPTOR then
|
||||
AddValue('PBF_DESCRIPTOR');
|
||||
|
||||
if PBF_UTF8 and Value = PBF_UTF8 then
|
||||
AddValue('PBF_UTF8');
|
||||
|
||||
if PBF_STRONG_CRYPT and Value = PBF_STRONG_CRYPT then
|
||||
AddValue('PBF_STRONG_CRYPT');
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.btnAnalizeClick(Sender: TObject);
|
||||
begin
|
||||
edReport.Lines.BeginUpdate;
|
||||
try
|
||||
edReport.Clear;
|
||||
Log(edPath.Text);
|
||||
Log(Delim);
|
||||
Scan(edPath.Text);
|
||||
Log('DONE');
|
||||
finally
|
||||
edReport.Lines.EndUpdate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.btnBrowseClick(Sender: TObject);
|
||||
begin
|
||||
UseLongNamePrefix := False;
|
||||
OpenDialog.InitialDir :=
|
||||
PathCanonicalize(ExtractFilePath(ParamStr(0)) + '..\DemoResults');
|
||||
if OpenDialog.Execute then
|
||||
begin
|
||||
edPath.Text := OpenDialog.FileName;
|
||||
edReport.Clear;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TdlgZipAnalizer.edPathChange(Sender: TObject);
|
||||
begin
|
||||
btnAnalize.Enabled := FileExists(edPath.Text);
|
||||
end;
|
||||
|
||||
function TdlgZipAnalizer.FindSing(Stream: TStream): DWORD;
|
||||
const
|
||||
KnownSigns: array [0..5] of DWORD = (
|
||||
LOCAL_FILE_HEADER_SIGNATURE,
|
||||
DATA_DESCRIPTOR_SIGNATURE,
|
||||
CENTRAL_FILE_HEADER_SIGNATURE,
|
||||
ZIP64_END_OF_CENTRAL_DIR_SIGNATURE,
|
||||
ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE,
|
||||
END_OF_CENTRAL_DIR_SIGNATURE
|
||||
);
|
||||
|
||||
function CalcLen: Integer;
|
||||
begin
|
||||
Result := Stream.Size - Stream.Position;
|
||||
if Result > 1024 then
|
||||
Result := 1024;
|
||||
end;
|
||||
|
||||
var
|
||||
pBuff, pCursor: PByte;
|
||||
I, A, Len: Integer;
|
||||
OldPosition: Int64;
|
||||
begin
|
||||
Result := 0;
|
||||
GetMem(pBuff, 1024);
|
||||
try
|
||||
Len := CalcLen;
|
||||
while (Result = 0) and (Len > 4) do
|
||||
begin
|
||||
OldPosition := Stream.Position;
|
||||
Stream.ReadBuffer(pBuff^, Len);
|
||||
pCursor := pBuff;
|
||||
for I := 0 to Len - 4 do
|
||||
begin
|
||||
for A := 0 to 5 do
|
||||
if PCardinal(pCursor)^ = KnownSigns[A] then
|
||||
begin
|
||||
Result := KnownSigns[A];
|
||||
Break;
|
||||
end;
|
||||
if Result = 0 then
|
||||
Inc(pCursor)
|
||||
else
|
||||
begin
|
||||
Stream.Position := OldPosition + I;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
if Result = 0 then
|
||||
begin
|
||||
Len := CalcLen;
|
||||
if Len > 0 then
|
||||
Stream.Position := Stream.Position - 4;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
FreeMem(pBuff);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.LoadStringValue(Stream: TStream;
|
||||
out Value: string; nSize: Cardinal; UTF: Boolean);
|
||||
var
|
||||
aString: AnsiString;
|
||||
begin
|
||||
if Integer(nSize) > 0 then
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
aString := '';
|
||||
{$ENDIF}
|
||||
SetLength(aString, nSize);
|
||||
Stream.ReadBuffer(aString[1], nSize);
|
||||
if UTF then
|
||||
begin
|
||||
{$IFDEF UNICODE}
|
||||
Value := string(UTF8ToUnicodeString(aString))
|
||||
{$ELSE}
|
||||
Value := string(UTF8Decode(aString));
|
||||
Value := StringReplace(Value, '?', '_', [rfReplaceAll]);
|
||||
{$ENDIF}
|
||||
end
|
||||
else
|
||||
Value := string(ConvertFromOemString(aString));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.Log(const Value: string);
|
||||
begin
|
||||
edReport.Lines.Add(Value);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.mnuSaveClick(Sender: TObject);
|
||||
begin
|
||||
if SaveDialog.Execute then
|
||||
edReport.Lines.SaveToFile(SaveDialog.FileName);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.PopupMenuPopup(Sender: TObject);
|
||||
begin
|
||||
mnuSave.Enabled := edReport.Lines.Count > 1;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.Scan(const Value: string);
|
||||
var
|
||||
F: TFileStream;
|
||||
Sign: DWORD;
|
||||
begin
|
||||
F := TFileStream.Create(Value, fmOpenRead or fmShareDenyWrite);
|
||||
try
|
||||
Sign := FindSing(F);
|
||||
while Sign <> 0 do
|
||||
begin
|
||||
case Sign of
|
||||
LOCAL_FILE_HEADER_SIGNATURE: ShowLocalFileHeader(F);
|
||||
DATA_DESCRIPTOR_SIGNATURE: ShowDataDescryptor(F);
|
||||
CENTRAL_FILE_HEADER_SIGNATURE: ShowCentralFileHeader(F);
|
||||
ZIP64_END_OF_CENTRAL_DIR_SIGNATURE: ShowZip64(F);
|
||||
ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE: ShowZip64Locator(F);
|
||||
END_OF_CENTRAL_DIR_SIGNATURE: ShowEndOfCentralDir(F);
|
||||
end;
|
||||
Sign := FindSing(F);
|
||||
end;
|
||||
finally
|
||||
F.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowCentralFileHeader(Stream: TStream);
|
||||
var
|
||||
Data: TCentralDirectoryFileHeader;
|
||||
FileName, Comment: string;
|
||||
begin
|
||||
Log('CENTRAL_FILE_HEADER_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TCentralDirectoryFileHeader);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TCentralDirectoryFileHeader));
|
||||
with Data do
|
||||
begin
|
||||
if CentralFileHeaderSignature <> CENTRAL_FILE_HEADER_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
|
||||
GPBFToStr(GeneralPurposeBitFlag)]));
|
||||
Log(Format('CompressionMethod: %d (%s)', [CompressionMethod, CompressionMethodToStr(CompressionMethod)]));
|
||||
Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
|
||||
Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
|
||||
Log(Format('Crc32: %d', [Crc32]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
Log(Format('FilenameLength: %d', [FilenameLength]));
|
||||
Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
|
||||
Log(Format('FileCommentLength: %d', [FileCommentLength]));
|
||||
Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
|
||||
Log(Format('InternalFileAttributes: %d', [InternalFileAttributes]));
|
||||
Log(Format('ExternalFileAttributes: %d', [ExternalFileAttributes]));
|
||||
Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
|
||||
LoadStringValue(Stream, FileName, FilenameLength,
|
||||
GeneralPurposeBitFlag and PBF_UTF8 <> 0);
|
||||
Log('>>> FileName: ' + FileName);
|
||||
Log(Delim);
|
||||
ShowExtraFields(Stream, ExtraFieldLength, Data);
|
||||
if FileCommentLength > 0 then
|
||||
begin
|
||||
LoadStringValue(Stream, Comment, FileCommentLength,
|
||||
GeneralPurposeBitFlag and PBF_UTF8 <> 0);
|
||||
Log('>>> FileComment: ' + Comment);
|
||||
Log(Delim);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowDataDescryptor(Stream: TStream);
|
||||
var
|
||||
Data: TDataDescriptor;
|
||||
StartPos: Int64;
|
||||
begin
|
||||
StartPos := Stream.Position;
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TDataDescriptor);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TDataDescriptor));
|
||||
if Data.Crc32 = LOCAL_FILE_HEADER_SIGNATURE then
|
||||
begin
|
||||
Log('SPAN_DESCRIPTOR_SIGNATURE found at offset: ' + IntToStr(StartPos));
|
||||
Log(Delim);
|
||||
Stream.Position := StartPos + SizeOf(DWORD);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
Log('DATA_DESCRIPTOR_SIGNATURE found at offset: ' + IntToStr(StartPos));
|
||||
with Data do
|
||||
begin
|
||||
if DescriptorSignature <> DATA_DESCRIPTOR_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('Crc32: %d', [Crc32]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowEndOfCentralDir(Stream: TStream);
|
||||
var
|
||||
Data: TEndOfCentralDir;
|
||||
Comment: string;
|
||||
begin
|
||||
Log('END_OF_CENTRAL_DIR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TEndOfCentralDir);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TEndOfCentralDir));
|
||||
with Data do
|
||||
begin
|
||||
if EndOfCentralDirSignature <> END_OF_CENTRAL_DIR_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('NumberOfThisDisk: %d', [NumberOfThisDisk]));
|
||||
Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
|
||||
Log(Format('TotalNumberOfEntriesOnThisDisk: %d', [TotalNumberOfEntriesOnThisDisk]));
|
||||
Log(Format('TotalNumberOfEntries: %d', [TotalNumberOfEntries]));
|
||||
Log(Format('SizeOfTheCentralDirectory: %d', [SizeOfTheCentralDirectory]));
|
||||
Log(Format('RelativeOffsetOfCentralDirectory: %d', [RelativeOffsetOfCentralDirectory]));
|
||||
Log(Format('ZipfileCommentLength: %d', [ZipfileCommentLength]));
|
||||
if ZipfileCommentLength > 0 then
|
||||
begin
|
||||
LoadStringValue(Stream, Comment, ZipfileCommentLength, False);
|
||||
Log(Format('>>> Comment: %s', [Comment]));
|
||||
end;
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowExtraFields(Stream: TStream; Size: Integer;
|
||||
FileHeader: TCentralDirectoryFileHeader);
|
||||
var
|
||||
Buff, EOFBuff: Pointer;
|
||||
BuffCount: Integer;
|
||||
HeaderID, BlockSize: Word;
|
||||
|
||||
function GetOffset(Value: Integer): Pointer;
|
||||
begin
|
||||
Result := UIntToPtr(PtrToUInt(EOFBuff) - NativeUInt(Value));
|
||||
end;
|
||||
|
||||
function ByteToStr(Bytes: PByte; Size: Integer): string;
|
||||
const
|
||||
BytesHex: array[0..15] of char =
|
||||
('0', '1', '2', '3', '4', '5', '6', '7',
|
||||
'8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
Result := '';
|
||||
{$ENDIF}
|
||||
SetLength(Result, Size shl 1);
|
||||
for I := 0 to Size - 1 do
|
||||
begin
|
||||
Result[I * 2 + 1] := BytesHex[Bytes^ shr 4];
|
||||
Result[I * 2 + 2] := BytesHex[Bytes^ and $0F];
|
||||
Inc(Bytes);
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
ExDataStream: TMemoryStream;
|
||||
StartPos: Int64;
|
||||
FileTime: TFileTime;
|
||||
begin
|
||||
if Size = 0 then Exit;
|
||||
StartPos := Stream.Position;
|
||||
Log('EXDATA found at offset: ' + IntToStr(StartPos));
|
||||
Log(Delim);
|
||||
GetMem(Buff, Size);
|
||||
try
|
||||
BuffCount := Size;
|
||||
Stream.ReadBuffer(Buff^, BuffCount);
|
||||
EOFBuff := UIntToPtr(PtrToUInt(Buff) + NativeUInt(BuffCount));
|
||||
while BuffCount > 0 do
|
||||
begin
|
||||
HeaderID := PWord(GetOffset(BuffCount))^;
|
||||
Dec(BuffCount, 2);
|
||||
BlockSize := PWord(GetOffset(BuffCount))^;
|
||||
Dec(BuffCount, 2);
|
||||
case HeaderID of
|
||||
SUPPORTED_EXDATA_ZIP64:
|
||||
begin
|
||||
Log('SUPPORTED_EXDATA_ZIP64 found at offset: ' +
|
||||
IntToStr(StartPos + Size - BuffCount - 4));
|
||||
if FileHeader.UncompressedSize = MAXDWORD then
|
||||
begin
|
||||
if BuffCount < 8 then Break;
|
||||
Log('UncompressedSize: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
|
||||
Dec(BuffCount, 8);
|
||||
Dec(BlockSize, 8);
|
||||
end;
|
||||
if FileHeader.CompressedSize = MAXDWORD then
|
||||
begin
|
||||
if BuffCount < 8 then Break;
|
||||
Log('CompressedSize: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
|
||||
Dec(BuffCount, 8);
|
||||
Dec(BlockSize, 8);
|
||||
end;
|
||||
if FileHeader.RelativeOffsetOfLocalHeader = MAXDWORD then
|
||||
begin
|
||||
if BuffCount < 8 then Break;
|
||||
Log('RelativeOffsetOfLocalHeader: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
|
||||
Dec(BuffCount, 8);
|
||||
Dec(BlockSize, 8);
|
||||
end;
|
||||
if FileHeader.DiskNumberStart = MAXWORD then
|
||||
begin
|
||||
if BuffCount < 4 then Break;
|
||||
Log('DiskNumberStart: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
|
||||
Dec(BuffCount, 4);
|
||||
Dec(BlockSize, 4);
|
||||
end;
|
||||
Dec(BuffCount, BlockSize);
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
SUPPORTED_EXDATA_NTFSTIME:
|
||||
begin
|
||||
|
||||
if BuffCount < 32 then Break;
|
||||
if BlockSize <> 32 then
|
||||
begin
|
||||
Dec(BuffCount, BlockSize);
|
||||
Continue;
|
||||
end;
|
||||
Dec(BuffCount, 4);
|
||||
Dec(BlockSize, 4);
|
||||
if PWord(GetOffset(BuffCount))^ <> 1 then
|
||||
begin
|
||||
Dec(BuffCount, BlockSize);
|
||||
Continue;
|
||||
end;
|
||||
Dec(BuffCount, 2);
|
||||
Dec(BlockSize, 2);
|
||||
if PWord(GetOffset(BuffCount))^ <> SizeOf(TNTFSFileTime) then
|
||||
begin
|
||||
Dec(BuffCount, BlockSize);
|
||||
Continue;
|
||||
end;
|
||||
Dec(BuffCount, 2);
|
||||
Dec(BlockSize, 2);
|
||||
|
||||
Log('SUPPORTED_EXDATA_NTFSTIME found at offset: ' +
|
||||
IntToStr(StartPos + Size - BuffCount - 12));
|
||||
|
||||
FileTime := PFileTime(GetOffset(BuffCount))^;
|
||||
Dec(BuffCount, SizeOf(TFileTime));
|
||||
Dec(BlockSize, SizeOf(TFileTime));
|
||||
Log(Format('Last Write Time: %s', [DateTimeToStr(FileTimeToLocalDateTime(FileTime))]));
|
||||
|
||||
FileTime := PFileTime(GetOffset(BuffCount))^;
|
||||
Dec(BuffCount, SizeOf(TFileTime));
|
||||
Dec(BlockSize, SizeOf(TFileTime));
|
||||
Log(Format('Last Access Time: %s', [DateTimeToStr(FileTimeToLocalDateTime(FileTime))]));
|
||||
|
||||
FileTime := PFileTime(GetOffset(BuffCount))^;
|
||||
Dec(BuffCount, SizeOf(TFileTime));
|
||||
Dec(BlockSize, SizeOf(TFileTime));
|
||||
Log(Format('Creation Time: %s', [DateTimeToStr(FileTimeToLocalDateTime(FileTime))]));
|
||||
|
||||
Log(Delim);
|
||||
end;
|
||||
else
|
||||
Log(Format('UNKNOWN EXDATA TAG %d found at offset: %d',
|
||||
[HeaderID, StartPos + Size - BuffCount - 8]));
|
||||
ExDataStream := TMemoryStream.Create;
|
||||
try
|
||||
ExDataStream.WriteBuffer(GetOffset(BuffCount)^, BlockSize);
|
||||
ExDataStream.Position := 0;
|
||||
Log(ByteToStr(ExDataStream.Memory, ExDataStream.Size));
|
||||
finally
|
||||
ExDataStream.Free;
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
Dec(BuffCount, BlockSize);
|
||||
end;
|
||||
finally
|
||||
FreeMem(Buff);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowLocalFileHeader(Stream: TStream);
|
||||
var
|
||||
Data: TLocalFileHeader;
|
||||
FileName: string;
|
||||
begin
|
||||
Log('LOCAL_FILE_HEADER_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TLocalFileHeader);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TLocalFileHeader));
|
||||
with Data do
|
||||
begin
|
||||
if LocalFileHeaderSignature <> LOCAL_FILE_HEADER_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
|
||||
GPBFToStr(GeneralPurposeBitFlag)]));
|
||||
Log(Format('CompressionMethod: %d (%s)', [CompressionMethod, CompressionMethodToStr(CompressionMethod)]));
|
||||
Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
|
||||
Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
|
||||
Log(Format('Crc32: %d', [Crc32]));
|
||||
Log(Format('CompressedSize: %d', [CompressedSize]));
|
||||
Log(Format('UncompressedSize: %d', [UncompressedSize]));
|
||||
Log(Format('FilenameLength: %d', [FilenameLength]));
|
||||
Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
|
||||
LoadStringValue(Stream, FileName, FilenameLength,
|
||||
GeneralPurposeBitFlag and PBF_UTF8 <> 0);
|
||||
Log('>>> FileName: ' + FileName);
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowZip64(Stream: TStream);
|
||||
var
|
||||
Data: TZip64EOFCentralDirectoryRecord;
|
||||
begin
|
||||
Log('ZIP64_END_OF_CENTRAL_DIR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TZip64EOFCentralDirectoryRecord);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TZip64EOFCentralDirectoryRecord));
|
||||
with Data do
|
||||
begin
|
||||
if Zip64EndOfCentralDirSignature <> ZIP64_END_OF_CENTRAL_DIR_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('SizeOfZip64EOFCentralDirectoryRecord: %d', [SizeOfZip64EOFCentralDirectoryRecord]));
|
||||
Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
|
||||
Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
|
||||
Log(Format('number of this disk: %d', [NumberOfThisDisk]));
|
||||
Log(Format('number of the disk with the start of the central directory: %d', [DiskNumberStart]));
|
||||
Log(Format('total number of entries in the central directory on this disk: %d', [TotalNumberOfEntriesOnThisDisk]));
|
||||
Log(Format('total number of entries in the central directory: %d', [TotalNumberOfEntries]));
|
||||
Log(Format('size of the central directory: %d', [SizeOfTheCentralDirectory]));
|
||||
Log(Format('offset of start of central directory with respect to the starting disk number: %d', [RelativeOffsetOfCentralDirectory]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
procedure TdlgZipAnalizer.ShowZip64Locator(Stream: TStream);
|
||||
var
|
||||
Data: TZip64EOFCentralDirectoryLocator;
|
||||
begin
|
||||
Log('ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
|
||||
{$IFDEF FPC}
|
||||
Data := Default(TZip64EOFCentralDirectoryLocator);
|
||||
{$ENDIF}
|
||||
Stream.ReadBuffer(Data, SizeOf(TZip64EOFCentralDirectoryLocator));
|
||||
with Data do
|
||||
begin
|
||||
if Signature <> ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE then
|
||||
Log('INVALID SIGNATURE!!!!');
|
||||
Log(Format('NumberOfTheDisk: %d', [DiskNumberStart]));
|
||||
Log(Format('RelativeOffset: %d', [RelativeOffset]));
|
||||
Log(Format('TotalNumberOfDisks: %d', [TotalNumberOfDisks]));
|
||||
end;
|
||||
Log(Delim);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
404
fwzip/delphi7/FWZipConsts.pas
Normal file
404
fwzip/delphi7/FWZipConsts.pas
Normal file
@@ -0,0 +1,404 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipConsts
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> ZIP <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2024.
|
||||
// * Version : 2.0.4
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// 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 = $02000004;
|
||||
FWZipVersionStr = '2.0.4';
|
||||
|
||||
const
|
||||
MAXBYTE = 255;
|
||||
MAXWORD = 65535;
|
||||
MAXDWORD = DWORD(-1);
|
||||
MAX_PATH = 260;
|
||||
|
||||
type
|
||||
DWORD = Cardinal;
|
||||
LOBYTE = Byte;
|
||||
LOWORD = Word;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> Windows <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> Windows.pas
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 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;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><>. 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 = '/';
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> 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;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
SUPPORTED_EXDATA_ZIP64 = 1;
|
||||
SUPPORTED_EXDATA_NTFSTIME = 10;
|
||||
|
||||
defaultWindowBits = -15;
|
||||
|
||||
type
|
||||
TProgressState = (
|
||||
psStart, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
psInitialization, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
psInProgress, // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
psFinalization, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
psEnd, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
psException // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
);
|
||||
|
||||
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;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipWriter <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TExceptionAction =
|
||||
(
|
||||
eaRetry, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
eaSkip, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
eaAbort, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
eaUseNewFilePath, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD>. NewFilePath)
|
||||
eaUseNewFilePathAndDel, // <20><>-<2D><> <20><><EFBFBD> <20> acUseNewFilePath, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
eaUseNewFileData // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD>. NewFileData)
|
||||
);
|
||||
|
||||
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;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TDuplicateAction =
|
||||
(
|
||||
daSkip, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
daOverwrite, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
daUseNewFilePath, // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
daAbort // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
);
|
||||
|
||||
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>
|
||||
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
/// </summary>
|
||||
UseLongNamePrefix: Boolean = True;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
150
fwzip/delphi7/FWZipCrc32.pas
Normal file
150
fwzip/delphi7/FWZipCrc32.pas
Normal file
@@ -0,0 +1,150 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipCrc32
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD> TFWZipCRC32Stream <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit FWZipCrc32;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
SysUtils,
|
||||
FWZipConsts;
|
||||
|
||||
type
|
||||
TFWZipCRC32Stream = class(TStream)
|
||||
private
|
||||
FOwner: TStream;
|
||||
FCRC32: Cardinal;
|
||||
protected
|
||||
function GetSize: Int64; override;
|
||||
public
|
||||
constructor Create(AOwner: TStream);
|
||||
function Seek(Offset: Longint; Origin: Word): Longint; overload; override;
|
||||
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; override;
|
||||
function Read(var Buffer; Count: Longint): Longint; override;
|
||||
function Write(const Buffer; Count: Longint): Longint; override;
|
||||
function CRC32: Cardinal;
|
||||
end;
|
||||
|
||||
function CRC32Calc(CurrCRC: Cardinal;
|
||||
Buffer: PByte; const BufferLen: Int64): Cardinal; overload;
|
||||
function CRC32Calc(Buffer: PByte; const BufferLen: Int64): Cardinal; overload;
|
||||
function FileCRC32(const FileName: string): Cardinal;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
function CRC32Calc(CurrCRC: Cardinal;
|
||||
Buffer: PByte; const BufferLen: Int64): Cardinal;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := CurrCRC;
|
||||
for I := 0 to BufferLen - 1 do
|
||||
begin
|
||||
Result := ((Result shr 8) and $00FFFFFF) xor
|
||||
CRC32Table[(Result xor Buffer^) and $FF];
|
||||
Inc(Buffer);
|
||||
end;
|
||||
end;
|
||||
|
||||
function CRC32Calc(Buffer: PByte; const BufferLen: Int64): Cardinal;
|
||||
begin
|
||||
Result := CRC32Calc($FFFFFFFF, Buffer, BufferLen) xor $FFFFFFFF;
|
||||
end;
|
||||
|
||||
function FileCRC32(const FileName: string): Cardinal;
|
||||
var
|
||||
Buff: Pointer;
|
||||
F: TFileStream;
|
||||
Size: Integer;
|
||||
begin
|
||||
Result := $FFFFFFFF;
|
||||
GetMem(Buff, $FFFF);
|
||||
try
|
||||
F := TFileStream.Create(FileName, fmOpenRead);
|
||||
try
|
||||
Size := 1;
|
||||
while Size > 0 do
|
||||
begin
|
||||
Size := F.Read(Buff^, $FFFF);
|
||||
Result := CRC32Calc(Result, Buff, Size);
|
||||
end;
|
||||
finally
|
||||
F.Free;
|
||||
end;
|
||||
finally
|
||||
FreeMem(Buff);
|
||||
end;
|
||||
Result := Result xor $FFFFFFFF;
|
||||
end;
|
||||
|
||||
{ TFWZipCRC32Stream }
|
||||
|
||||
function TFWZipCRC32Stream.CRC32: Cardinal;
|
||||
begin
|
||||
Result := FCRC32 xor $FFFFFFFF;
|
||||
end;
|
||||
|
||||
constructor TFWZipCRC32Stream.Create(AOwner: TStream);
|
||||
begin
|
||||
FOwner := AOwner;
|
||||
FCRC32 := $FFFFFFFF;
|
||||
end;
|
||||
|
||||
function TFWZipCRC32Stream.GetSize: Int64;
|
||||
begin
|
||||
Result := FOwner.Size;
|
||||
end;
|
||||
|
||||
function TFWZipCRC32Stream.Read(var Buffer; Count: Integer): Longint;
|
||||
begin
|
||||
Result := FOwner.Read(Buffer, Count);
|
||||
FCRC32 := CRC32Calc(FCRC32, @Buffer, Result);
|
||||
end;
|
||||
|
||||
function TFWZipCRC32Stream.Seek(Offset: Integer; Origin: Word): Longint;
|
||||
begin
|
||||
Result := FOwner.Seek(Offset, Origin);
|
||||
end;
|
||||
|
||||
function TFWZipCRC32Stream.Seek(const Offset: Int64;
|
||||
Origin: TSeekOrigin): Int64;
|
||||
begin
|
||||
Result := FOwner.Seek(Offset, Origin);
|
||||
end;
|
||||
|
||||
function TFWZipCRC32Stream.Write(const Buffer; Count: Integer): Longint;
|
||||
begin
|
||||
Result := FOwner.Write(Buffer, Count);
|
||||
FCRC32 := CRC32Calc(FCRC32, @Buffer, Result);
|
||||
end;
|
||||
|
||||
end.
|
376
fwzip/delphi7/FWZipCrypt.pas
Normal file
376
fwzip/delphi7/FWZipCrypt.pas
Normal file
@@ -0,0 +1,376 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipCrypt
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> PKWARE
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.1
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit FWZipCrypt;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
{$IFDEF FPC}
|
||||
LConvEncoding,
|
||||
{$ENDIF}
|
||||
FWZipConsts,
|
||||
FWZipUtils;
|
||||
|
||||
{
|
||||
XIII. Decryption
|
||||
----------------
|
||||
|
||||
The encryption used in PKZIP was generously supplied by Roger
|
||||
Schlafly. PKWARE is grateful to Mr. Schlafly for his expert
|
||||
help and advice in the field of data encryption.
|
||||
|
||||
PKZIP encrypts the compressed data stream. Encrypted files must
|
||||
be decrypted before they can be extracted.
|
||||
|
||||
Each encrypted file has an extra 12 bytes stored at the start of
|
||||
the data area defining the encryption header for that file. The
|
||||
encryption header is originally set to random values, and then
|
||||
itself encrypted, using three, 32-bit keys. The key values are
|
||||
initialized using the supplied encryption password. After each byte
|
||||
is encrypted, the keys are then updated using pseudo-random number
|
||||
generation techniques in combination with the same CRC-32 algorithm
|
||||
used in PKZIP and described elsewhere in this document.
|
||||
|
||||
The following is the basic steps required to decrypt a file:
|
||||
|
||||
1) Initialize the three 32-bit keys with the password.
|
||||
2) Read and decrypt the 12-byte encryption header, further
|
||||
initializing the encryption keys.
|
||||
3) Read and decrypt the compressed data stream using the
|
||||
encryption keys.
|
||||
|
||||
|
||||
Step 1 - Initializing the encryption keys
|
||||
-----------------------------------------
|
||||
|
||||
Key(0) <- 305419896
|
||||
Key(1) <- 591751049
|
||||
Key(2) <- 878082192
|
||||
|
||||
loop for i <- 0 to length(password)-1
|
||||
update_keys(password(i))
|
||||
end loop
|
||||
|
||||
|
||||
Where update_keys() is defined as:
|
||||
|
||||
|
||||
update_keys(char):
|
||||
Key(0) <- crc32(key(0),char)
|
||||
Key(1) <- Key(1) + (Key(0) & 000000ffH)
|
||||
Key(1) <- Key(1) * 134775813 + 1
|
||||
Key(2) <- crc32(key(2),key(1) >> 24)
|
||||
end update_keys
|
||||
|
||||
|
||||
Where crc32(old_crc,char) is a routine that given a CRC value and a
|
||||
character, returns an updated CRC value after applying the CRC-32
|
||||
algorithm described elsewhere in this document.
|
||||
|
||||
|
||||
Step 2 - Decrypting the encryption header
|
||||
-----------------------------------------
|
||||
|
||||
The purpose of this step is to further initialize the encryption
|
||||
keys, based on random data, to render a plaintext attack on the
|
||||
data ineffective.
|
||||
|
||||
|
||||
Read the 12-byte encryption header into Buffer, in locations
|
||||
Buffer(0) thru Buffer(11).
|
||||
|
||||
loop for i <- 0 to 11
|
||||
C <- buffer(i) ^ decrypt_byte()
|
||||
update_keys(C)
|
||||
buffer(i) <- C
|
||||
end loop
|
||||
|
||||
|
||||
Where decrypt_byte() is defined as:
|
||||
|
||||
|
||||
unsigned char decrypt_byte()
|
||||
local unsigned short temp
|
||||
temp <- Key(2) | 2
|
||||
decrypt_byte <- (temp * (temp ^ 1)) >> 8
|
||||
end decrypt_byte
|
||||
|
||||
|
||||
After the header is decrypted, the last 1 or 2 bytes in Buffer
|
||||
should be the high-order word/byte of the CRC for the file being
|
||||
decrypted, stored in Intel low-byte/high-byte order, or the high-order
|
||||
byte of the file time if bit 3 of the general purpose bit flag is set.
|
||||
Versions of PKZIP prior to 2.0 used a 2 byte CRC check; a 1 byte CRC check is
|
||||
used on versions after 2.0. This can be used to test if the password
|
||||
supplied is correct or not.
|
||||
|
||||
|
||||
Step 3 - Decrypting the compressed data stream
|
||||
----------------------------------------------
|
||||
|
||||
The compressed data stream can be decrypted as follows:
|
||||
|
||||
|
||||
loop until done
|
||||
read a character into C
|
||||
Temp <- C ^ decrypt_byte()
|
||||
update_keys(temp)
|
||||
output Temp
|
||||
end loop
|
||||
}
|
||||
|
||||
const
|
||||
EncryptedHeaderSize = 12;
|
||||
LastEncryptedHeaderByte = EncryptedHeaderSize - 1;
|
||||
|
||||
type
|
||||
TZipKeys = array [0..2] of Cardinal;
|
||||
|
||||
TFWZipKeys = class
|
||||
private
|
||||
FKeys: TZipKeys;
|
||||
protected
|
||||
procedure UpdateKeys(Value: Byte);
|
||||
function DecryptByte: Byte;
|
||||
public
|
||||
constructor Create(const Password: AnsiString);
|
||||
end;
|
||||
|
||||
TFWZipCryptor = class(TFWZipKeys)
|
||||
protected
|
||||
function EncryptByte(Value: Byte): Byte;
|
||||
public
|
||||
procedure GenerateEncryptionHeader(Stream: TStream;
|
||||
IsDescryptorFlagPresent: Boolean;
|
||||
CRC32, FileDate: Cardinal);
|
||||
procedure EncryptBuffer(Buffer: PByte; Size: Int64);
|
||||
end;
|
||||
|
||||
TFWZipDecryptor = class(TFWZipKeys)
|
||||
public
|
||||
function LoadEncryptionHeader(Stream: TStream;
|
||||
IsDescryptorFlagPresent: Boolean;
|
||||
CRC32, FileDate: Cardinal): Boolean;
|
||||
procedure DecryptBuffer(Buffer: PByte; Size: Int64);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
DefaultKeys: TZipKeys = (305419896, 591751049, 878082192);
|
||||
|
||||
{ TFWZipKeys }
|
||||
|
||||
constructor TFWZipKeys.Create(const Password: AnsiString);
|
||||
var
|
||||
I: Integer;
|
||||
{$IFDEF FPC}
|
||||
RawBytePassword: RawByteString;
|
||||
{$ENDIF}
|
||||
begin
|
||||
inherited Create;
|
||||
{
|
||||
Step 1 - Initializing the encryption keys
|
||||
-----------------------------------------
|
||||
|
||||
Key(0) <- 305419896
|
||||
Key(1) <- 591751049
|
||||
Key(2) <- 878082192
|
||||
|
||||
loop for i <- 0 to length(password)-1
|
||||
update_keys(password(i))
|
||||
end loop
|
||||
|
||||
}
|
||||
FKeys := DefaultKeys;
|
||||
{$IFDEF FPC}
|
||||
RawBytePassword := UTF8ToCP1251(Password);
|
||||
for I := 1 to Length(RawBytePassword) do
|
||||
UpdateKeys(Byte(RawBytePassword[I]));
|
||||
{$ELSE}
|
||||
for I := 1 to Length(Password) do
|
||||
UpdateKeys(Byte(Password[I]));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TFWZipKeys.DecryptByte: Byte;
|
||||
var
|
||||
temp: Word;
|
||||
begin
|
||||
{
|
||||
Where decrypt_byte() is defined as:
|
||||
|
||||
unsigned char decrypt_byte()
|
||||
local unsigned short temp
|
||||
temp <- Key(2) | 2
|
||||
decrypt_byte <- (temp * (temp ^ 1)) >> 8
|
||||
end decrypt_byte
|
||||
|
||||
}
|
||||
temp := FKeys[2] or 2;
|
||||
Result := (temp * (temp xor 1)) shr 8;
|
||||
end;
|
||||
|
||||
procedure TFWZipKeys.UpdateKeys(Value: Byte);
|
||||
begin
|
||||
{
|
||||
Key(0) <- crc32(key(0),char)
|
||||
Key(1) <- Key(1) + (Key(0) & 000000ffH)
|
||||
Key(1) <- Key(1) * 134775813 + 1
|
||||
Key(2) <- crc32(key(2),key(1) >> 24)
|
||||
}
|
||||
FKeys[0] := ((FKeys[0] shr 8) and $FFFFFF) xor
|
||||
CRC32Table[(FKeys[0] xor Value) and $FF];
|
||||
FKeys[1] := FKeys[1] + (FKeys[0] and $FF);
|
||||
FKeys[1] := FKeys[1] * 134775813 + 1;
|
||||
FKeys[2] := ((FKeys[2] shr 8) and $FFFFFF) xor
|
||||
CRC32Table[(FKeys[2] xor (FKeys[1] shr 24)) and $FF];
|
||||
end;
|
||||
|
||||
{ TFWZipCryptor }
|
||||
|
||||
procedure TFWZipCryptor.EncryptBuffer(Buffer: PByte; Size: Int64);
|
||||
var
|
||||
temp: Byte;
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipDecryptor.DecryptBuffer
|
||||
while Size > 0 do
|
||||
begin
|
||||
Dec(Size);
|
||||
temp := DecryptByte;
|
||||
UpdateKeys(Buffer^);
|
||||
Buffer^ := temp xor Buffer^;
|
||||
Inc(Buffer);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWZipCryptor.EncryptByte(Value: Byte): Byte;
|
||||
var
|
||||
temp: Byte;
|
||||
begin
|
||||
temp := DecryptByte;
|
||||
UpdateKeys(Value);
|
||||
Result := temp xor Value;
|
||||
end;
|
||||
|
||||
procedure TFWZipCryptor.GenerateEncryptionHeader(Stream: TStream;
|
||||
IsDescryptorFlagPresent: Boolean; CRC32, FileDate: Cardinal);
|
||||
var
|
||||
{%H-}Buffer: array [0..EncryptedHeaderSize - 1] of Byte;
|
||||
I: Integer;
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipDecryptor.LoadEncryptionHeader
|
||||
Randomize;
|
||||
for I := 0 to LastEncryptedHeaderByte - 2 do
|
||||
Buffer[I] := EncryptByte(Byte(Random(MAXBYTE)));
|
||||
if IsDescryptorFlagPresent then
|
||||
begin
|
||||
Buffer[10] := EncryptByte(LoByte(LoWord(FileDate)));
|
||||
Buffer[11] := EncryptByte(HiByte(LoWord(FileDate)));
|
||||
end
|
||||
else
|
||||
begin
|
||||
Buffer[10] := EncryptByte(LoByte(HiWord(CRC32)));
|
||||
Buffer[11] := EncryptByte(HiByte(HiWord(CRC32)));
|
||||
end;
|
||||
Stream.WriteBuffer(Buffer[0], EncryptedHeaderSize);
|
||||
end;
|
||||
|
||||
{ TFWZipDecryptor }
|
||||
|
||||
procedure TFWZipDecryptor.DecryptBuffer(Buffer: PByte; Size: Int64);
|
||||
var
|
||||
temp: Byte;
|
||||
begin
|
||||
{
|
||||
Step 3 - Decrypting the compressed data stream
|
||||
----------------------------------------------
|
||||
|
||||
The compressed data stream can be decrypted as follows:
|
||||
|
||||
loop until done
|
||||
read a character into C
|
||||
Temp <- C ^ decrypt_byte()
|
||||
update_keys(temp)
|
||||
output Temp
|
||||
end loop
|
||||
}
|
||||
while Size > 0 do
|
||||
begin
|
||||
Dec(Size);
|
||||
temp := Buffer^ xor DecryptByte;
|
||||
UpdateKeys(temp);
|
||||
Buffer^ := temp;
|
||||
Inc(Buffer);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWZipDecryptor.LoadEncryptionHeader(Stream: TStream;
|
||||
IsDescryptorFlagPresent: Boolean; CRC32, FileDate: Cardinal): Boolean;
|
||||
var
|
||||
Buffer: array [0..EncryptedHeaderSize - 1] of Byte;
|
||||
I: Integer;
|
||||
C: Byte;
|
||||
begin
|
||||
{
|
||||
Read the 12-byte encryption header into Buffer, in locations
|
||||
Buffer(0) thru Buffer(11).
|
||||
|
||||
loop for i <- 0 to 11
|
||||
C <- buffer(i) ^ decrypt_byte()
|
||||
update_keys(C)
|
||||
buffer(i) <- C
|
||||
end loop
|
||||
}
|
||||
Stream.ReadBuffer({%H-}Buffer[0], EncryptedHeaderSize);
|
||||
for I := 0 to LastEncryptedHeaderByte do
|
||||
begin
|
||||
C := Buffer[I] xor DecryptByte;
|
||||
UpdateKeys(C);
|
||||
Buffer[I] := C;
|
||||
end;
|
||||
|
||||
{
|
||||
After the header is decrypted, the last 1 or 2 bytes in Buffer
|
||||
should be the high-order word/byte of the CRC for the file being
|
||||
decrypted, stored in Intel low-byte/high-byte order, or the high-order
|
||||
byte of the file time if bit 3 of the general purpose bit flag is set.
|
||||
}
|
||||
if IsDescryptorFlagPresent then
|
||||
Result := Buffer[LastEncryptedHeaderByte] = HiByte(LoWord(FileDate))
|
||||
else
|
||||
Result := Buffer[LastEncryptedHeaderByte] = HiByte(HiWord(CRC32));
|
||||
end;
|
||||
|
||||
end.
|
510
fwzip/delphi7/FWZipModifier.pas
Normal file
510
fwzip/delphi7/FWZipModifier.pas
Normal file
@@ -0,0 +1,510 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipModifier
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ZIP <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.2
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
unit FWZipModifier;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes,
|
||||
SysUtils,
|
||||
FWZipConsts,
|
||||
FWZipReader,
|
||||
FWZipWriter,
|
||||
FWZipStream,
|
||||
FWZipZLib,
|
||||
FWZipUtils;
|
||||
|
||||
type
|
||||
TReaderIndex = Integer;
|
||||
|
||||
TFWZipModifierItem = class(TFWZipWriterItem)
|
||||
private
|
||||
FReaderIndex: TReaderIndex; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipReader <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipModifier.FReaderList
|
||||
FOriginalItemIndex: Integer; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
FOverloadItemPath: string; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
protected
|
||||
property ReaderIndex: TReaderIndex read FReaderIndex write FReaderIndex;
|
||||
property OriginalItemIndex: Integer read FOriginalItemIndex write FOriginalItemIndex;
|
||||
property OverloadItemPath: string read FOverloadItemPath write FOverloadItemPath;
|
||||
public
|
||||
constructor Create(Owner: TFWZipWriter;
|
||||
const InitFilePath: string;
|
||||
InitAttributes: TFileAttributeData;
|
||||
const InitFileName: string = ''); override;
|
||||
end;
|
||||
|
||||
EFWZipModifier = class(Exception);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ExData <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TExDataRecord = record
|
||||
Index: Integer;
|
||||
Tag: Word;
|
||||
Stream: TMemoryStream;
|
||||
end;
|
||||
TExDataRecords = array of TExDataRecord;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
TReaderOwnership = (roReference, roOwned);
|
||||
TReaderData = record
|
||||
Reader: TFWZipReader;
|
||||
ExDataRecords: TExDataRecords;
|
||||
Ownership: TReaderOwnership;
|
||||
end;
|
||||
|
||||
TReaderList = array of TReaderData;
|
||||
|
||||
TFWZipModifier = class(TFWZipWriter)
|
||||
private
|
||||
FReaderList: TReaderList;
|
||||
function CheckZipFileIndex(Value: TReaderIndex): TReaderIndex;
|
||||
function AddItemFromZip(AReader: TFWZipReader;
|
||||
ReaderIndex: TReaderIndex; ItemIndex: Integer;
|
||||
OverloadItemPath: string): Integer;
|
||||
function GetReader(Index: Integer): TFWZipReader;
|
||||
protected
|
||||
function GetItemClass: TFWZipWriterItemClass; override;
|
||||
procedure FillItemCDFHeader(CurrentItem: TFWZipWriterItem;
|
||||
var Value: TCentralDirectoryFileHeaderEx); override;
|
||||
procedure CompressItem(CurrentItem: TFWZipWriterItem;
|
||||
Index: Integer; StreamSizeBeforeCompress: Int64; Stream: TStream); override;
|
||||
procedure FillExData(Stream: TStream; Index: Integer); override;
|
||||
procedure OnLoadExData(Sender: TObject; ItemIndex: Integer;
|
||||
Tag: Word; Data: TStream);
|
||||
public
|
||||
destructor Destroy; override;
|
||||
function AddZipFile(const AReader: TFWZipReader;
|
||||
AOwnership: TReaderOwnership = roReference): TReaderIndex; overload;
|
||||
function AddZipFile(const FilePath: string; SFXOffset: Integer = -1;
|
||||
ZipEndOffset: Integer = -1): TReaderIndex; overload;
|
||||
function AddZipFile(FileStream: TStream; SFXOffset: Integer = -1;
|
||||
ZipEndOffset: Integer = -1): TReaderIndex; overload;
|
||||
function AddFromZip(ReaderIndex: TReaderIndex): Integer; overload;
|
||||
function AddFromZip(ReaderIndex: TReaderIndex; const ItemPath: string): Integer; overload;
|
||||
function AddFromZip(ReaderIndex: TReaderIndex; const ItemPath, NewItemPath: string): Integer; overload;
|
||||
function AddFromZip(ReaderIndex: TReaderIndex; ItemsList: TStringList): Integer; overload;
|
||||
function ReadersCount: Integer;
|
||||
property Reader[Index: Integer]: TFWZipReader read GetReader;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
type
|
||||
TFWZipReaderFriendly = class(TFWZipReader);
|
||||
TFWZipReaderItemFriendly = class(TFWZipReaderItem);
|
||||
|
||||
{ TFWZipModifierItem }
|
||||
|
||||
//
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ReaderIndex <20> OriginalItemIndex <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TFWZipModifier
|
||||
// =============================================================================
|
||||
constructor TFWZipModifierItem.Create(Owner: TFWZipWriter;
|
||||
const InitFilePath: string; InitAttributes: TFileAttributeData;
|
||||
const InitFileName: string);
|
||||
begin
|
||||
inherited Create(Owner, InitFilePath, InitAttributes, InitFileName);
|
||||
FReaderIndex := -1;
|
||||
FOriginalItemIndex := -1;
|
||||
end;
|
||||
|
||||
{ TFWZipModifier }
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ReaderIndex - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddZipFile <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ItemPath - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddFromZip(ReaderIndex: TReaderIndex;
|
||||
const ItemPath: string): Integer;
|
||||
begin
|
||||
Result := AddFromZip(ReaderIndex, ItemPath, EmptyStr);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ReaderIndex - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddZipFile <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddFromZip(ReaderIndex: TReaderIndex): Integer;
|
||||
var
|
||||
I: Integer;
|
||||
Reader: TFWZipReader;
|
||||
begin
|
||||
CheckZipFileIndex(ReaderIndex);
|
||||
Result := 0;
|
||||
Reader := FReaderList[ReaderIndex].Reader;
|
||||
for I := 0 to Reader.Count - 1 do
|
||||
if AddItemFromZip(Reader, ReaderIndex, I, EmptyStr) >= 0 then
|
||||
Inc(Result);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ReaderIndex - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddZipFile <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ItemsList - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddFromZip(ReaderIndex: TReaderIndex;
|
||||
ItemsList: TStringList): Integer;
|
||||
var
|
||||
I: Integer;
|
||||
Reader: TFWZipReader;
|
||||
begin
|
||||
CheckZipFileIndex(ReaderIndex);
|
||||
Result := 0;
|
||||
Reader := FReaderList[ReaderIndex].Reader;
|
||||
for I := 0 to ItemsList.Count - 1 do
|
||||
if AddItemFromZip(Reader, ReaderIndex,
|
||||
Reader.GetElementIndex(ItemsList[I]), EmptyStr) >= 0 then
|
||||
Inc(Result);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ReaderIndex - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AddZipFile <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ItemPath - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// NewItemPath - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddFromZip(ReaderIndex: TReaderIndex; const ItemPath,
|
||||
NewItemPath: string): Integer;
|
||||
var
|
||||
Reader: TFWZipReader;
|
||||
begin
|
||||
CheckZipFileIndex(ReaderIndex);
|
||||
Reader := FReaderList[ReaderIndex].Reader;
|
||||
Result :=
|
||||
AddItemFromZip(Reader, ReaderIndex, Reader.GetElementIndex(ItemPath),
|
||||
CheckFileNameSlashes( NewItemPath));
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddItemFromZip(AReader: TFWZipReader;
|
||||
ReaderIndex: TReaderIndex; ItemIndex: Integer;
|
||||
OverloadItemPath: string): Integer;
|
||||
const
|
||||
OldItemType: array [Boolean] of string = ('file', 'folder');
|
||||
var
|
||||
OldItem: TFWZipReaderItemFriendly;
|
||||
NewItem: TFWZipModifierItem;
|
||||
begin
|
||||
Result := -1;
|
||||
if ItemIndex < 0 then Exit;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
OldItem := TFWZipReaderItemFriendly(AReader.Item[ItemIndex]);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if OverloadItemPath <> '' then
|
||||
begin
|
||||
if OverloadItemPath <> OldItem.FileName then
|
||||
begin
|
||||
if OldItem.IsFolder <>
|
||||
(OverloadItemPath[Length(OverloadItemPath)] = ZIP_SLASH) then
|
||||
raise EFWZipModifier.CreateFmt(
|
||||
'"%s" does not match the %s path.',
|
||||
[OverloadItemPath, OldItemType[OldItem.IsFolder]]);
|
||||
end
|
||||
else
|
||||
OverloadItemPath := EmptyStr;
|
||||
end;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
NewItem := TFWZipModifierItem(
|
||||
GetItemClass.Create(Self, '', OldItem.Attributes, OldItem.FileName));
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
NewItem.UseExternalData := True;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
NewItem.ReaderIndex := ReaderIndex;
|
||||
NewItem.OriginalItemIndex := ItemIndex;
|
||||
NewItem.OverloadItemPath := OverloadItemPath;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
NewItem.Comment := OldItem.Comment;
|
||||
NewItem.NeedDescriptor :=
|
||||
OldItem.CentralDirFileHeader.GeneralPurposeBitFlag and PBF_DESCRIPTOR <> 0;
|
||||
NewItem.UseUTF8String :=
|
||||
OldItem.CentralDirFileHeader.GeneralPurposeBitFlag and PBF_UTF8 <> 0;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Result := AddNewItem(NewItem);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// FileStream - <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// SFXOffset <20> ZipEndOffset - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddZipFile(FileStream: TStream; SFXOffset,
|
||||
ZipEndOffset: Integer): TReaderIndex;
|
||||
var
|
||||
AReader: TFWZipReader;
|
||||
begin
|
||||
AReader := TFWZipReader.Create;
|
||||
Result := AddZipFile(AReader, roOwned);
|
||||
AReader.OnLoadExData := OnLoadExData;
|
||||
AReader.LoadFromStream(FileStream, SFXOffset, ZipEndOffset);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddZipFile(const AReader: TFWZipReader;
|
||||
AOwnership: TReaderOwnership): TReaderIndex;
|
||||
begin
|
||||
Result := Length(FReaderList);
|
||||
SetLength(FReaderList, Result + 1);
|
||||
FReaderList[Result].Reader := AReader;
|
||||
FReaderList[Result].Ownership := AOwnership;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// FilePath - <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// SFXOffset <20> ZipEndOffset - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.AddZipFile(const FilePath: string;
|
||||
SFXOffset, ZipEndOffset: Integer): TReaderIndex;
|
||||
var
|
||||
AReader: TFWZipReader;
|
||||
begin
|
||||
AReader := TFWZipReader.Create;
|
||||
Result := AddZipFile(AReader, roOwned);
|
||||
AReader.OnLoadExData := OnLoadExData;
|
||||
AReader.LoadFromFile(FilePath, SFXOffset, ZipEndOffset);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.CheckZipFileIndex(Value: TReaderIndex): TReaderIndex;
|
||||
begin
|
||||
Result := Value;
|
||||
if (Value < 0) or (Value >= Length(FReaderList)) then
|
||||
raise EFWZipModifier.CreateFmt('Invalid index value (%d).', [Value]);
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
procedure TFWZipModifier.CompressItem(CurrentItem: TFWZipWriterItem;
|
||||
Index: Integer; StreamSizeBeforeCompress: Int64; Stream: TStream);
|
||||
var
|
||||
OldItem: TFWZipReaderItemFriendly;
|
||||
NewItem: TFWZipModifierItem;
|
||||
Reader: TFWZipReaderFriendly;
|
||||
Offset: Int64;
|
||||
begin
|
||||
NewItem := TFWZipModifierItem(CurrentItem);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
|
||||
if not NewItem.UseExternalData then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
Reader := TFWZipReaderFriendly(FReaderList[NewItem.ReaderIndex].Reader);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
OldItem := TFWZipReaderItemFriendly(Reader.Item[NewItem.OriginalItemIndex]);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if IsMultiPartZip(Reader.ZIPStream) then
|
||||
begin
|
||||
TFWAbstractMultiStream(Reader.ZIPStream).Seek(
|
||||
OldItem.CentralDirFileHeader.DiskNumberStart,
|
||||
OldItem.CentralDirFileHeader.RelativeOffsetOfLocalHeader);
|
||||
Offset := Reader.ZIPStream.Position;
|
||||
end
|
||||
else
|
||||
Offset := OldItem.CentralDirFileHeader.RelativeOffsetOfLocalHeader;
|
||||
Inc(Offset, SizeOf(TLocalFileHeader));
|
||||
Inc(Offset, OldItem.CentralDirFileHeader.FilenameLength);
|
||||
if OldItem.CentralDirFileHeaderEx.UncompressedSize >= MAXDWORD then
|
||||
Inc(Offset, SizeOf(TExDataInfo64));
|
||||
Reader.ZIPStream.Position := Offset;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Stream.CopyFrom(Reader.ZIPStream, OldItem.CentralDirFileHeaderEx.CompressedSize);
|
||||
end;
|
||||
|
||||
//
|
||||
// Modifier <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
destructor TFWZipModifier.Destroy;
|
||||
var
|
||||
I, A: Integer;
|
||||
begin
|
||||
for I := 0 to Length(FReaderList) - 1 do
|
||||
begin
|
||||
if FReaderList[I].Ownership = roOwned then
|
||||
FReaderList[I].Reader.Free;
|
||||
for A := 0 to Length(FReaderList[I].ExDataRecords) - 1 do
|
||||
FReaderList[I].ExDataRecords[A].Stream.Free;
|
||||
end;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
procedure TFWZipModifier.FillExData(Stream: TStream; Index: Integer);
|
||||
var
|
||||
NewItem: TFWZipModifierItem;
|
||||
ReaderIndex: TReaderIndex;
|
||||
I: Integer;
|
||||
{%H-}ExDataSize: Word;
|
||||
ExDataRecord: TExDataRecord;
|
||||
begin
|
||||
NewItem := TFWZipModifierItem(Item[Index]);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
|
||||
if not NewItem.UseExternalData then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ExData
|
||||
ReaderIndex := CheckZipFileIndex(NewItem.ReaderIndex);
|
||||
for I := 0 to Length(FReaderList[ReaderIndex].ExDataRecords) - 1 do
|
||||
if FReaderList[ReaderIndex].ExDataRecords[I].Index = NewItem.OriginalItemIndex then
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>
|
||||
ExDataRecord := FReaderList[ReaderIndex].ExDataRecords[I];
|
||||
Stream.WriteBuffer(ExDataRecord.Tag, 2);
|
||||
ExDataSize := ExDataRecord.Stream.Size;
|
||||
Stream.WriteBuffer(ExDataSize, 2);
|
||||
Stream.CopyFrom(ExDataRecord.Stream, 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TCentralDirectoryFileHeaderEx
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// =============================================================================
|
||||
procedure TFWZipModifier.FillItemCDFHeader(CurrentItem: TFWZipWriterItem;
|
||||
var Value: TCentralDirectoryFileHeaderEx);
|
||||
var
|
||||
OldItem: TFWZipReaderItemFriendly;
|
||||
NewItem: TFWZipModifierItem;
|
||||
Reader: TFWZipReader;
|
||||
FileDate: Cardinal;
|
||||
begin
|
||||
NewItem := TFWZipModifierItem(CurrentItem);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
|
||||
if not NewItem.UseExternalData then
|
||||
begin
|
||||
inherited;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
Reader := FReaderList[NewItem.ReaderIndex].Reader;
|
||||
OldItem := TFWZipReaderItemFriendly(Reader.Item[NewItem.OriginalItemIndex]);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> RelativeOffsetOfLocalHeader
|
||||
// <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Value := OldItem.CentralDirFileHeaderEx;
|
||||
|
||||
// Rouse_ 11.11.2023
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if NewItem.OverloadItemPath <> '' then
|
||||
begin
|
||||
Value.Filename := NewItem.OverloadItemPath;
|
||||
Value.Header.FilenameLength :=
|
||||
StringLength(NewItem.OverloadItemPath, CurrentItem.UseUTF8String);
|
||||
|
||||
Value.Attributes.ftLastWriteTime := GetCurrentFileTime;
|
||||
FileDate := FileTimeToLocalFileDate(Value.Attributes.ftLastWriteTime);
|
||||
|
||||
Value.Header.LastModFileTimeTime := FileDate and $FFFF;
|
||||
Value.Header.LastModFileTimeDate := FileDate shr 16;
|
||||
end;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.GetItemClass: TFWZipWriterItemClass;
|
||||
begin
|
||||
Result := TFWZipModifierItem;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.GetReader(Index: Integer): TFWZipReader;
|
||||
begin
|
||||
if (Index < 0) or (Index >= ReadersCount) then
|
||||
raise EFWZipModifier.CreateFmt('Invalid reader index value (%d).', [Index]);
|
||||
Result := FReaderList[Index].Reader;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ExData <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
procedure TFWZipModifier.OnLoadExData(Sender: TObject; ItemIndex: Integer;
|
||||
Tag: Word; Data: TStream);
|
||||
var
|
||||
Index, ExDataCount: Integer;
|
||||
ExData: TExDataRecord;
|
||||
begin
|
||||
Index := ReadersCount - 1;
|
||||
if Index >= 0 then
|
||||
begin
|
||||
ExData.Index := ItemIndex;
|
||||
ExData.Tag := Tag;
|
||||
ExData.Stream := TMemoryStream.Create;
|
||||
ExData.Stream.CopyFrom(Data, 0);
|
||||
ExDataCount := Length(FReaderList[Index].ExDataRecords);
|
||||
SetLength(FReaderList[Index].ExDataRecords, ExDataCount + 1);
|
||||
FReaderList[Index].ExDataRecords[ExDataCount] := ExData;
|
||||
end;
|
||||
end;
|
||||
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// =============================================================================
|
||||
function TFWZipModifier.ReadersCount: Integer;
|
||||
begin
|
||||
Result := Length(FReaderList);
|
||||
end;
|
||||
|
||||
end.
|
1644
fwzip/delphi7/FWZipReader.pas
Normal file
1644
fwzip/delphi7/FWZipReader.pas
Normal file
File diff suppressed because it is too large
Load Diff
973
fwzip/delphi7/FWZipStream.pas
Normal file
973
fwzip/delphi7/FWZipStream.pas
Normal file
@@ -0,0 +1,973 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipStream
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>,
|
||||
// * : <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib,
|
||||
// * : <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.1
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> TFWZipItemStream:
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Deflate <20> <20><><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20>.<2E>. <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// TFWZipItemStream <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "<22><> <20><><EFBFBD><EFBFBD>"
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Read.
|
||||
// <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Write, <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> TCompressionStream <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Read, <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> TDecompressionStream.
|
||||
//
|
||||
|
||||
unit FWZipStream;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
{$I fwzip.inc}
|
||||
|
||||
uses
|
||||
{$IFNDEF FPC}
|
||||
Windows, // <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RenameFile
|
||||
{$ENDIF}
|
||||
Classes,
|
||||
SysUtils,
|
||||
Math,
|
||||
FWZipCrypt,
|
||||
FWZipZLib,
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
FWZipConsts,
|
||||
{$ENDIF}
|
||||
FWZipUtils;
|
||||
|
||||
const
|
||||
NO_STREAM = -1;
|
||||
MinPartSize = {$IFDEF UNIT_TEST}100{$ELSE}$10000{$ENDIF};
|
||||
|
||||
type
|
||||
TFWZipItemStream = class(TStream)
|
||||
private
|
||||
FOwner: TStream;
|
||||
FCryptor: TFWZipCryptor;
|
||||
FDecryptor: TFWZipDecryptor;
|
||||
FSize, FStart, FPosition: Int64;
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
FHeader: Word;
|
||||
{$ENDIF}
|
||||
protected
|
||||
function GetSize: Int64; override;
|
||||
public
|
||||
constructor Create(AOwner: TStream; Cryptor: TFWZipCryptor;
|
||||
Decryptor: TFWZipDecryptor; {%H-}CompressLevel: Byte; ASize: Int64);
|
||||
function Seek(Offset: Longint; Origin: Word): Longint; overload; override;
|
||||
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; override;
|
||||
function Read(var Buffer; Count: Longint): Longint; override;
|
||||
function Write(const {%H-}Buffer; Count: Longint): Longint; override;
|
||||
end;
|
||||
|
||||
EFWZipItemItemUnpackedStreamException = class(Exception);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TFWZipItemItemUnpackedStream = class(TStream)
|
||||
private
|
||||
FOwnerStream: TStream;
|
||||
FOffset: Int64;
|
||||
FSize, FPosition: Integer;
|
||||
protected
|
||||
function GetSize: Int64; override;
|
||||
procedure SetSize({%H-}NewSize: Longint); override;
|
||||
public
|
||||
constructor Create; overload;
|
||||
constructor Create(Owner: TStream; Offset: Int64; ASize: Integer); overload;
|
||||
function Read(var Buffer; Count: Longint): Longint; override;
|
||||
function Write(const {%H-}Buffer; {%H-}Count: Longint): Longint; override;
|
||||
function Seek(Offset: Longint; Origin: Word): Longint; override;
|
||||
end;
|
||||
|
||||
// TFakeStream <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TFakeStream = class(TStream)
|
||||
private
|
||||
FSize: Int64;
|
||||
FPosition: Int64;
|
||||
protected
|
||||
procedure SetSize(const NewSize: Int64); override;
|
||||
public
|
||||
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; override;
|
||||
function Write(const {%H-}Buffer; Count: Longint): Longint; override;
|
||||
function Read(var {%H-}Buffer; {%H-}Count: Longint): Longint; override;
|
||||
end;
|
||||
|
||||
TFWMultiStreamMode = (msmRead, msmWrite);
|
||||
|
||||
EFWMultiStreamException = class(Exception)
|
||||
public
|
||||
constructor Create(ADiskNumber: Integer); overload;
|
||||
constructor Create(const AMessage: string); overload;
|
||||
end;
|
||||
|
||||
TFWMultiStreamClass = class of TFWAbstractMultiStream;
|
||||
|
||||
TFWLastVolumesType = (lvtLastPart, lvtCentralDirectory);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD>
|
||||
TFWAbstractMultiStream = class(TStream)
|
||||
private
|
||||
FMode: TFWMultiStreamMode;
|
||||
FCurrentDiskData: TStream;
|
||||
FPosition: Int64;
|
||||
procedure CheckMode(AMode: TFWMultiStreamMode);
|
||||
function CurrentDiskNumber: Integer;
|
||||
function CalcOffset(DiskNumber: Integer): Int64;
|
||||
function UpdateCurrentDiskData: Integer;
|
||||
protected
|
||||
function GetNextWriteVolume: TStream; virtual; abstract;
|
||||
procedure GetStream(DiskNumber: Integer; var DiskData: TStream); virtual; abstract;
|
||||
function GetTotalSize: Int64; virtual; abstract;
|
||||
function GetVolumeSizeByIndex(Index: Integer): Int64; virtual; abstract;
|
||||
procedure TrimFromDiskNumber(Index: Integer); virtual; abstract;
|
||||
property VolumeSize[Index: Integer]: Int64 read GetVolumeSizeByIndex;
|
||||
procedure UpdateVolumeSize; virtual; abstract;
|
||||
/// <summary>
|
||||
/// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> msmWrite <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
/// </summary>
|
||||
procedure FinallyWrite; virtual;
|
||||
protected
|
||||
procedure SetSize(const NewSize: Int64); override;
|
||||
public
|
||||
constructor Create(AMode: TFWMultiStreamMode); reintroduce;
|
||||
procedure GetRelativeInfo(out DiskNumber: Integer; out RealtiveOffset: Int64);
|
||||
function GetDiskCount: Integer; virtual; abstract;
|
||||
function GetWriteVolumeSize: Int64; virtual; abstract;
|
||||
function Read(var Buffer; Count: Longint): Longint; override;
|
||||
function Write(const Buffer; Count: Longint): Longint; override;
|
||||
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; override;
|
||||
function Seek(DiskNumber: Integer; Offset: Int64): Int64; overload;
|
||||
/// <summary>
|
||||
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> msmWrite
|
||||
/// </summary>
|
||||
procedure StartNewVolume;
|
||||
property Mode: TFWMultiStreamMode read FMode;
|
||||
end;
|
||||
|
||||
EFWFileMultiStreamException = class(Exception);
|
||||
|
||||
TReadSizeMode = (rsmQuick, rsmFull);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
TFWFileMultiStream = class(TFWAbstractMultiStream)
|
||||
private
|
||||
FCurrentStreamNumber: Integer;
|
||||
FCurrentStream: TFileStream;
|
||||
FFilePath: string;
|
||||
FVolumesPath: TStringList;
|
||||
FTotalSize, FVolumeSize: Int64;
|
||||
FReadVolumesSize, FWriteVolumesSize: array of Int64;
|
||||
function AddNewVolume: TStream;
|
||||
procedure FillFilesList(const FilePath: string;
|
||||
ReadSizeMode: TReadSizeMode);
|
||||
procedure FillFilesSize(ReadSizeMode: TReadSizeMode);
|
||||
protected
|
||||
{%H-}constructor Create(const FilePath: string;
|
||||
AMode: TFWMultiStreamMode; ReadSizeMode: TReadSizeMode;
|
||||
PartSize: Int64);
|
||||
function GetNextWriteVolume: TStream; override;
|
||||
procedure GetStream(DiskNumber: Integer; var DiskData: TStream); override;
|
||||
function GetTotalSize: Int64; override;
|
||||
function GetVolumeSizeByIndex(Index: Integer): Int64; override;
|
||||
procedure TrimFromDiskNumber(Index: Integer); override;
|
||||
procedure UpdateVolumeSize; override;
|
||||
procedure FinallyWrite; override;
|
||||
protected
|
||||
function GetVolumeExt(Index: Integer): string; virtual; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> .z<><7A> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
public
|
||||
constructor CreateRead(const FilePath: string; ReadSizeMode: TReadSizeMode = rsmFull);
|
||||
constructor CreateWrite(const FilePath: string; PartSize: Int64 = MinPartSize);
|
||||
destructor Destroy; override;
|
||||
function GetDiskCount: Integer; override;
|
||||
function GetWriteVolumeSize: Int64; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
E_READONLY = 'TFWZipItemItemUnpackedStream <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ReadOnly';
|
||||
|
||||
{ TFWZipItemStream }
|
||||
|
||||
constructor TFWZipItemStream.Create(AOwner: TStream; Cryptor: TFWZipCryptor;
|
||||
Decryptor: TFWZipDecryptor; CompressLevel: Byte; ASize: Int64);
|
||||
begin
|
||||
inherited Create;
|
||||
FOwner := AOwner;
|
||||
FCryptor := Cryptor;
|
||||
FDecryptor := Decryptor;
|
||||
|
||||
FSize := ASize;
|
||||
FStart := AOwner.Position;
|
||||
FPosition := 0;
|
||||
|
||||
// Rouse_ 30.10.2013
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
|
||||
// Rouse_ 17.03.2011
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
Inc(FSize, 2);
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><>. deflate.c - int ZEXPORT deflate (strm, flush)
|
||||
|
||||
// uInt header = (Z_DEFLATED + ((s->w_bits-8)<<4)) << 8;
|
||||
FHeader := (Z_DEFLATED + (7 {32k Window size} shl 4)) shl 8;
|
||||
|
||||
// if (s->strategy >= Z_HUFFMAN_ONLY || s->level < 2)
|
||||
// level_flags = 0;
|
||||
// else if (s->level < 6)
|
||||
// level_flags = 1;
|
||||
// else if (s->level == 6)
|
||||
// level_flags = 2;
|
||||
// else
|
||||
// level_flags = 3;
|
||||
//
|
||||
// <20><><EFBFBD> CompressLevel (level_flags)
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> GeneralPurposeBitFlag
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
case CompressLevel of
|
||||
PBF_COMPRESS_SUPERFAST:
|
||||
CompressLevel := 0;
|
||||
PBF_COMPRESS_FAST:
|
||||
CompressLevel := 1;
|
||||
PBF_COMPRESS_NORMAL:
|
||||
CompressLevel := 2;
|
||||
PBF_COMPRESS_MAXIMUM:
|
||||
CompressLevel := 3;
|
||||
end;
|
||||
|
||||
// header |= (level_flags << 6);
|
||||
FHeader := FHeader or (CompressLevel shl 6);
|
||||
|
||||
// if (s->strstart != 0) header |= PRESET_DICT;
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
// header += 31 - (header % 31);
|
||||
Inc(FHeader, 31 - (FHeader mod 31));
|
||||
|
||||
// putShortMSB(s, header);
|
||||
FHeader := (FHeader shr 8) + (FHeader and $FF) shl 8;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TFWZipItemStream.GetSize: Int64;
|
||||
begin
|
||||
Result := FSize;
|
||||
end;
|
||||
|
||||
function TFWZipItemStream.Read(var Buffer; Count: Integer): Longint;
|
||||
var
|
||||
P: PByte;
|
||||
DecryptBuff: Pointer;
|
||||
begin
|
||||
// Rouse_ 30.10.2013
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
if FPosition = 0 then
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib
|
||||
P := @FHeader;
|
||||
Move(P^, Buffer, 2);
|
||||
FOwner.Position := FStart;
|
||||
P := @Buffer;
|
||||
Inc(P, 2);
|
||||
if Count > Size then
|
||||
Count := Size;
|
||||
FOwner.Position := FStart;
|
||||
if FDecryptor <> nil then
|
||||
begin
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
GetMem(DecryptBuff, Count - 2);
|
||||
try
|
||||
Result := FOwner.Read(DecryptBuff^, Count - 2);
|
||||
FDecryptor.DecryptBuffer(DecryptBuff, Result);
|
||||
Move(DecryptBuff^, P^, Result);
|
||||
finally
|
||||
FreeMem(DecryptBuff);
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := FOwner.Read(P^, Count - 2);
|
||||
Inc(Result, 2);
|
||||
Inc(FPosition, Result);
|
||||
end
|
||||
else
|
||||
begin
|
||||
FOwner.Position := FStart + Position - 2;
|
||||
{$ELSE}
|
||||
begin
|
||||
FOwner.Position := FStart + Position;
|
||||
{$ENDIF}
|
||||
if Count > Size - Position then
|
||||
Count := Size - Position;
|
||||
if FDecryptor <> nil then
|
||||
begin
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
GetMem(DecryptBuff, Count);
|
||||
try
|
||||
Result := FOwner.Read(DecryptBuff^, Count);
|
||||
FDecryptor.DecryptBuffer(DecryptBuff, Result);
|
||||
P := @Buffer;
|
||||
Move(DecryptBuff^, P^, Result);
|
||||
finally
|
||||
FreeMem(DecryptBuff);
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result := FOwner.Read(Buffer, Count);
|
||||
Inc(FPosition, Result);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWZipItemStream.Seek(Offset: Integer; Origin: Word): Longint;
|
||||
begin
|
||||
Result := Seek(Int64(Offset), TSeekOrigin(Origin));
|
||||
end;
|
||||
|
||||
function TFWZipItemStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
|
||||
begin
|
||||
case Origin of
|
||||
soBeginning: FPosition := Offset;
|
||||
soCurrent: Inc(FPosition, Offset);
|
||||
soEnd: FPosition := Size + Offset;
|
||||
end;
|
||||
Result := FPosition;
|
||||
end;
|
||||
|
||||
function TFWZipItemStream.Write(const Buffer; Count: Integer): Longint;
|
||||
var
|
||||
EncryptBuffer: PByte;
|
||||
begin
|
||||
if FCryptor = nil then
|
||||
Result := FOwner.Write(Buffer, Count)
|
||||
else
|
||||
begin
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
GetMem(EncryptBuffer, Count);
|
||||
try
|
||||
Move(Buffer, EncryptBuffer^, Count);
|
||||
|
||||
// Rouse_ 31.10.2013
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib
|
||||
if FPosition = 0 then
|
||||
begin
|
||||
Inc(EncryptBuffer, 2);
|
||||
FCryptor.EncryptBuffer(EncryptBuffer, Count - 2);
|
||||
Dec(EncryptBuffer, 2);
|
||||
end
|
||||
else
|
||||
{$ENDIF}
|
||||
FCryptor.EncryptBuffer(EncryptBuffer, Count);
|
||||
Result := FOwner.Write(EncryptBuffer^, Count);
|
||||
finally
|
||||
FreeMem(EncryptBuffer);
|
||||
end;
|
||||
end;
|
||||
Inc(FPosition, Result);
|
||||
end;
|
||||
|
||||
{ TFWZipItemItemUnpackedStream }
|
||||
|
||||
constructor TFWZipItemItemUnpackedStream.Create;
|
||||
begin
|
||||
raise EFWZipItemItemUnpackedStreamException.Create(
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||||
end;
|
||||
|
||||
constructor TFWZipItemItemUnpackedStream.Create(Owner: TStream; Offset: Int64;
|
||||
ASize: Integer);
|
||||
begin
|
||||
FOwnerStream := Owner;
|
||||
FOffset := Offset;
|
||||
FSize := ASize;
|
||||
end;
|
||||
|
||||
function TFWZipItemItemUnpackedStream.GetSize: Int64;
|
||||
begin
|
||||
Result := FSize;
|
||||
end;
|
||||
|
||||
function TFWZipItemItemUnpackedStream.Read(var Buffer; Count: Longint): Longint;
|
||||
begin
|
||||
if FPosition + Count > FSize then
|
||||
Count := FSize - FPosition;
|
||||
FOwnerStream.Position := FOffset + FPosition;
|
||||
Result := FOwnerStream.Read(Buffer, Count);
|
||||
Inc(FPosition, Result);
|
||||
end;
|
||||
|
||||
function TFWZipItemItemUnpackedStream.Seek(Offset: Longint;
|
||||
Origin: Word): Longint;
|
||||
begin
|
||||
case Origin of
|
||||
soFromBeginning: FPosition := Offset;
|
||||
soFromCurrent: Inc(FPosition, Offset);
|
||||
soFromEnd: FPosition := Size + Offset;
|
||||
end;
|
||||
if FPosition < 0 then
|
||||
FPosition := 0;
|
||||
if FPosition > FSize then
|
||||
FPosition := FSize;
|
||||
Result := FPosition;
|
||||
end;
|
||||
|
||||
procedure TFWZipItemItemUnpackedStream.SetSize(NewSize: Longint);
|
||||
begin
|
||||
raise EFWZipItemItemUnpackedStreamException.Create(E_READONLY);
|
||||
end;
|
||||
|
||||
function TFWZipItemItemUnpackedStream.{%H-}Write(const Buffer;
|
||||
Count: Longint): Longint;
|
||||
begin
|
||||
raise EFWZipItemItemUnpackedStreamException.Create(E_READONLY);
|
||||
end;
|
||||
|
||||
{ TFakeStream }
|
||||
|
||||
function TFakeStream.{%H-}Read(var Buffer; Count: Longint): Longint;
|
||||
begin
|
||||
raise Exception.Create('TFakeStream.Read');
|
||||
end;
|
||||
|
||||
function TFakeStream.Write(const Buffer; Count: Longint): Longint;
|
||||
begin
|
||||
FSize := FSize + Count;
|
||||
Result := Count;
|
||||
end;
|
||||
|
||||
function TFakeStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
|
||||
begin
|
||||
case Origin of
|
||||
soBeginning: FPosition := Offset;
|
||||
soCurrent: Inc(FPosition, Offset);
|
||||
soEnd: FPosition := FSize + Offset;
|
||||
end;
|
||||
Result := FPosition;
|
||||
end;
|
||||
|
||||
procedure TFakeStream.SetSize(const NewSize: Int64);
|
||||
begin
|
||||
FSize := NewSize;
|
||||
end;
|
||||
|
||||
{ EFWMultiStreamException }
|
||||
|
||||
constructor EFWMultiStreamException.Create(ADiskNumber: Integer);
|
||||
begin
|
||||
inherited CreateFmt('Can not find disk image <20>%d', [ADiskNumber]);
|
||||
end;
|
||||
|
||||
constructor EFWMultiStreamException.Create(const AMessage: string);
|
||||
begin
|
||||
inherited Create(AMessage);
|
||||
end;
|
||||
|
||||
{ TFWAbstractMultiStream }
|
||||
|
||||
function TFWAbstractMultiStream.CalcOffset(DiskNumber: Integer): Int64;
|
||||
begin
|
||||
Result := FPosition - VolumeSize[DiskNumber];
|
||||
end;
|
||||
|
||||
procedure TFWAbstractMultiStream.CheckMode(AMode: TFWMultiStreamMode);
|
||||
begin
|
||||
if FMode <> AMode then
|
||||
if FMode = msmRead then
|
||||
raise EFWMultiStreamException.Create('Can`t write data on read.')
|
||||
else
|
||||
raise EFWMultiStreamException.Create('Can`t read data on write.');
|
||||
end;
|
||||
|
||||
constructor TFWAbstractMultiStream.Create(AMode: TFWMultiStreamMode);
|
||||
begin
|
||||
FMode := AMode;
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.CurrentDiskNumber: Integer;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Result := 0;
|
||||
for I := GetDiskCount - 1 downto 0 do
|
||||
begin
|
||||
if VolumeSize[I] <= FPosition then
|
||||
begin
|
||||
Result := I;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFWAbstractMultiStream.FinallyWrite;
|
||||
begin
|
||||
CheckMode(msmWrite);
|
||||
end;
|
||||
|
||||
procedure TFWAbstractMultiStream.GetRelativeInfo(out DiskNumber: Integer;
|
||||
out RealtiveOffset: Int64);
|
||||
begin
|
||||
DiskNumber := CurrentDiskNumber;
|
||||
RealtiveOffset := CalcOffset(DiskNumber);
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.Read(var Buffer; Count: Longint): Longint;
|
||||
var
|
||||
PartialRead: Longint;
|
||||
P: PByte;
|
||||
begin
|
||||
CheckMode(msmRead);
|
||||
Result := 0;
|
||||
while Result < Count do
|
||||
begin
|
||||
P := PByte(@Buffer);
|
||||
Inc(P, Result);
|
||||
PartialRead := FCurrentDiskData.Read(P^, Count - Result);
|
||||
|
||||
if PartialRead = 0 then
|
||||
raise EFWMultiStreamException.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.');
|
||||
|
||||
Inc(Result, PartialRead);
|
||||
Inc(FPosition, PartialRead);
|
||||
if FCurrentDiskData.Position = FCurrentDiskData.Size then
|
||||
begin
|
||||
GetStream(CurrentDiskNumber, FCurrentDiskData);
|
||||
if FCurrentDiskData = nil then
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
|
||||
var
|
||||
DiskNumber: Integer;
|
||||
begin
|
||||
case TSeekOrigin(Origin) of
|
||||
soBeginning: FPosition := Offset;
|
||||
soCurrent: Inc(FPosition, Offset);
|
||||
soEnd: FPosition := GetTotalSize + Offset;
|
||||
end;
|
||||
|
||||
if FPosition < 0 then
|
||||
FPosition := 0;
|
||||
if FPosition > GetTotalSize then
|
||||
FPosition := GetTotalSize;
|
||||
|
||||
DiskNumber := UpdateCurrentDiskData;
|
||||
FCurrentDiskData.Seek(CalcOffset(DiskNumber), soBeginning);
|
||||
Result := FPosition;
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.Seek(DiskNumber: Integer; Offset: Int64): Int64;
|
||||
begin
|
||||
if (DiskNumber < 0) or (DiskNumber >= GetDiskCount) then
|
||||
raise EFWMultiStreamException.Create(DiskNumber);
|
||||
Offset := VolumeSize[DiskNumber] + Offset;
|
||||
Result := Seek(Offset, soBeginning);
|
||||
end;
|
||||
|
||||
procedure TFWAbstractMultiStream.SetSize(const NewSize: Int64);
|
||||
var
|
||||
TotalRemain, MaxVolumeSize, TotalSize: Int64;
|
||||
begin
|
||||
CheckMode(msmWrite);
|
||||
TotalSize := GetTotalSize;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if TotalSize = NewSize then Exit;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if TotalSize > NewSize then
|
||||
begin
|
||||
Position := NewSize;
|
||||
FCurrentDiskData.Size := CalcOffset(CurrentDiskNumber);
|
||||
TrimFromDiskNumber(CurrentDiskNumber);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
GetStream(GetDiskCount - 1, FCurrentDiskData);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><> <20><><EFBFBD><EFBFBD>
|
||||
if FCurrentDiskData = nil then
|
||||
FCurrentDiskData := GetNextWriteVolume;
|
||||
|
||||
TotalRemain := NewSize - TotalSize;
|
||||
MaxVolumeSize := GetWriteVolumeSize;
|
||||
|
||||
while TotalRemain > 0 do
|
||||
begin
|
||||
if FCurrentDiskData.Size + TotalRemain <= MaxVolumeSize then
|
||||
begin
|
||||
FCurrentDiskData.Size := FCurrentDiskData.Size + TotalRemain;
|
||||
UpdateVolumeSize;
|
||||
Exit;
|
||||
end;
|
||||
Dec(TotalRemain, MaxVolumeSize - FCurrentDiskData.Size);
|
||||
FCurrentDiskData.Size := MaxVolumeSize;
|
||||
UpdateVolumeSize;
|
||||
FCurrentDiskData := GetNextWriteVolume;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFWAbstractMultiStream.StartNewVolume;
|
||||
begin
|
||||
CheckMode(msmWrite);
|
||||
if Position <> Size then
|
||||
raise EFWMultiStreamException.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.');
|
||||
if FCurrentDiskData <> nil then
|
||||
if FCurrentDiskData.Size > 0 then
|
||||
// Rouse_ 01.09.2023
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
FCurrentDiskData := GetNextWriteVolume;
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.UpdateCurrentDiskData: Integer;
|
||||
begin
|
||||
Result := CurrentDiskNumber;
|
||||
GetStream(Result, FCurrentDiskData);
|
||||
if FCurrentDiskData = nil then
|
||||
raise EFWMultiStreamException.Create(Result);
|
||||
end;
|
||||
|
||||
function TFWAbstractMultiStream.Write(const Buffer; Count: Longint): Longint;
|
||||
var
|
||||
PartialWrite: LongInt;
|
||||
WriteSize: Int64;
|
||||
P: PByte;
|
||||
begin
|
||||
CheckMode(msmWrite);
|
||||
Result := 0;
|
||||
WriteSize := GetWriteVolumeSize;
|
||||
|
||||
if FCurrentDiskData = nil then
|
||||
FCurrentDiskData := GetNextWriteVolume;
|
||||
|
||||
while Result < Count do
|
||||
begin
|
||||
PartialWrite := {%H-}Min(Count - Result, WriteSize - FCurrentDiskData.Position);
|
||||
P := PByte(@Buffer);
|
||||
Inc(P, Result);
|
||||
if FCurrentDiskData.Write(P^, PartialWrite) <> PartialWrite then
|
||||
raise EFWMultiStreamException.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.');
|
||||
Inc(Result, PartialWrite);
|
||||
Inc(FPosition, PartialWrite);
|
||||
UpdateVolumeSize;
|
||||
if FCurrentDiskData.Position = WriteSize then
|
||||
FCurrentDiskData := GetNextWriteVolume;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TFWFileMultiStream }
|
||||
|
||||
function TFWFileMultiStream.AddNewVolume: TStream;
|
||||
var
|
||||
NewVolumePath: string;
|
||||
begin
|
||||
FCurrentStreamNumber := FVolumesPath.Count;
|
||||
NewVolumePath :=
|
||||
ChangeFileExt(FFilePath, GetVolumeExt(FCurrentStreamNumber + 1));
|
||||
FVolumesPath.Add(NewVolumePath);
|
||||
SetLength(FReadVolumesSize, FVolumesPath.Count);
|
||||
SetLength(FWriteVolumesSize, FVolumesPath.Count);
|
||||
FreeAndNil(FCurrentStream);
|
||||
ForceDirectoriesEx(ExtractFilePath(NewVolumePath));
|
||||
FCurrentStream :=
|
||||
TFileStream.Create(NewVolumePath, fmCreate or fmShareDenyWrite);
|
||||
UpdateVolumeSize;
|
||||
Result := FCurrentStream;
|
||||
end;
|
||||
|
||||
constructor TFWFileMultiStream.Create(const FilePath: string;
|
||||
AMode: TFWMultiStreamMode; ReadSizeMode: TReadSizeMode; PartSize: Int64);
|
||||
begin
|
||||
FCurrentStreamNumber := NO_STREAM;
|
||||
FFilePath := PathCanonicalize(FilePath);
|
||||
FVolumesPath := TStringList.Create;
|
||||
if AMode = msmRead then
|
||||
FillFilesList(FFilePath, ReadSizeMode)
|
||||
else
|
||||
begin
|
||||
if PartSize < MinPartSize then
|
||||
raise EFWFileMultiStreamException.CreateFmt(
|
||||
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> (%d), <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = %d', [PartSize, MinPartSize]);
|
||||
FVolumeSize := PartSize;
|
||||
end;
|
||||
inherited Create(AMode);
|
||||
end;
|
||||
|
||||
constructor TFWFileMultiStream.CreateRead(const FilePath: string;
|
||||
ReadSizeMode: TReadSizeMode);
|
||||
begin
|
||||
Create(FilePath, msmRead, ReadSizeMode, 0);
|
||||
end;
|
||||
|
||||
constructor TFWFileMultiStream.CreateWrite(const FilePath: string;
|
||||
PartSize: Int64);
|
||||
begin
|
||||
Create(FilePath, msmWrite, rsmQuick, PartSize);
|
||||
end;
|
||||
|
||||
destructor TFWFileMultiStream.Destroy;
|
||||
begin
|
||||
if Mode = msmWrite then
|
||||
FinallyWrite
|
||||
else
|
||||
FreeAndNil(FCurrentStream);
|
||||
FVolumesPath.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.FillFilesList(
|
||||
const FilePath: string; ReadSizeMode: TReadSizeMode);
|
||||
var
|
||||
I: Integer;
|
||||
SplitFilePath: string;
|
||||
begin
|
||||
FVolumesPath.Clear;
|
||||
if not FileExists(FilePath) then
|
||||
raise EFWFileMultiStreamException.CreateFmt('File not found: "%s"', [FilePath]);
|
||||
I := 1;
|
||||
SplitFilePath := ChangeFileExt(FilePath, GetVolumeExt(I));
|
||||
while FileExists(SplitFilePath) do
|
||||
begin
|
||||
FVolumesPath.Add(SplitFilePath);
|
||||
Inc(I);
|
||||
SplitFilePath := ChangeFileExt(FilePath, GetVolumeExt(I));
|
||||
end;
|
||||
FVolumesPath.Add(FilePath);
|
||||
FillFilesSize(ReadSizeMode);
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.FillFilesSize(ReadSizeMode: TReadSizeMode);
|
||||
var
|
||||
F: TFileStream;
|
||||
I, FirstVolumeSize, Tmp: Integer;
|
||||
begin
|
||||
FTotalSize := 0;
|
||||
|
||||
SetLength(FReadVolumesSize, FVolumesPath.Count);
|
||||
|
||||
if ReadSizeMode = rsmFull then
|
||||
begin
|
||||
for I := 0 to FVolumesPath.Count - 1 do
|
||||
begin
|
||||
F := TFileStream.Create(FVolumesPath[I], fmShareDenyWrite);
|
||||
try
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
FReadVolumesSize[I] := FTotalSize;
|
||||
Inc(FTotalSize, F.Size);
|
||||
finally
|
||||
F.Free;
|
||||
end;
|
||||
end;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
F := TFileStream.Create(FVolumesPath[0], fmShareDenyWrite);
|
||||
try
|
||||
FirstVolumeSize := F.Size;
|
||||
finally
|
||||
F.Free;
|
||||
end;
|
||||
|
||||
I := FVolumesPath.Count;
|
||||
repeat
|
||||
Dec(I);
|
||||
F := TFileStream.Create(FVolumesPath[I], fmShareDenyWrite);
|
||||
try
|
||||
FReadVolumesSize[I] := F.Size;
|
||||
finally
|
||||
F.Free;
|
||||
end;
|
||||
until FReadVolumesSize[I] = FirstVolumeSize;
|
||||
|
||||
for I := 0 to FVolumesPath.Count - 1 do
|
||||
begin
|
||||
Tmp := FReadVolumesSize[I];
|
||||
FReadVolumesSize[I] := FTotalSize;
|
||||
if Tmp = 0 then
|
||||
Inc(FTotalSize, FirstVolumeSize)
|
||||
else
|
||||
Inc(FTotalSize, Tmp);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.FinallyWrite;
|
||||
var
|
||||
LastDiskIndex: Integer;
|
||||
begin
|
||||
inherited;
|
||||
FreeAndNil(FCurrentStream);
|
||||
FCurrentStreamNumber := NO_STREAM;
|
||||
LastDiskIndex := GetDiskCount - 1;
|
||||
while LastDiskIndex >= 0 do
|
||||
begin
|
||||
if FWriteVolumesSize[LastDiskIndex] = 0 then
|
||||
begin
|
||||
DeleteFile(FVolumesPath[LastDiskIndex]);
|
||||
Dec(LastDiskIndex);
|
||||
end
|
||||
else
|
||||
Break;
|
||||
end;
|
||||
if LastDiskIndex >= 0 then
|
||||
begin
|
||||
// Rouse_ 21.10.2020
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> RenameFile <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
DeleteFile(FFilePath);
|
||||
RenameFile(FVolumesPath[LastDiskIndex], FFilePath);
|
||||
end;
|
||||
SetLength(FReadVolumesSize, 0);
|
||||
SetLength(FWriteVolumesSize, 0);
|
||||
FVolumesPath.Clear;
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetDiskCount: Integer;
|
||||
begin
|
||||
Result := FVolumesPath.Count;
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetNextWriteVolume: TStream;
|
||||
begin
|
||||
if (FCurrentStreamNumber < 0) or (FCurrentStreamNumber >= FVolumesPath.Count - 1) then
|
||||
Result := AddNewVolume
|
||||
else
|
||||
GetStream(FCurrentStreamNumber + 1, Result);
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.GetStream(DiskNumber: Integer; var DiskData: TStream);
|
||||
const
|
||||
OpenMode: array [TFWMultiStreamMode] of Word =
|
||||
(fmShareDenyWrite, fmOpenReadWrite or fmShareExclusive);
|
||||
begin
|
||||
if FCurrentStreamNumber = DiskNumber then
|
||||
begin
|
||||
DiskData := FCurrentStream;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
FCurrentStreamNumber := DiskNumber;
|
||||
FreeAndNil(FCurrentStream);
|
||||
DiskData := nil;
|
||||
|
||||
if (DiskNumber < 0) or (DiskNumber >= FVolumesPath.Count) then
|
||||
begin
|
||||
if FMode = msmRead then Exit;
|
||||
if DiskNumber > FVolumesPath.Count then Exit;
|
||||
DiskData := AddNewVolume;
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if FileExists(FVolumesPath[DiskNumber]) then
|
||||
begin
|
||||
FCurrentStream :=
|
||||
TFileStream.Create(FVolumesPath[DiskNumber], OpenMode[FMode]);
|
||||
DiskData := FCurrentStream;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetTotalSize: Int64;
|
||||
begin
|
||||
Result := FTotalSize;
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetVolumeExt(Index: Integer): string;
|
||||
var
|
||||
Tmp, CharCount: Integer;
|
||||
begin
|
||||
if Index < 100 then
|
||||
Result := Format('.z%.2d', [Index])
|
||||
else
|
||||
begin
|
||||
Tmp := Index div 100;
|
||||
CharCount := 2;
|
||||
while Tmp > 0 do
|
||||
begin
|
||||
Inc(CharCount);
|
||||
Tmp := Tmp div 10;
|
||||
end;
|
||||
Result := Format('.z%.' + IntToStr(CharCount) + 'd', [Index]);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetVolumeSizeByIndex(Index: Integer): Int64;
|
||||
begin
|
||||
Result := FReadVolumesSize[Index];
|
||||
end;
|
||||
|
||||
function TFWFileMultiStream.GetWriteVolumeSize: Int64;
|
||||
begin
|
||||
Result := FVolumeSize;
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.TrimFromDiskNumber(Index: Integer);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Inc(Index);
|
||||
SetLength(FReadVolumesSize, Index);
|
||||
SetLength(FWriteVolumesSize, Index);
|
||||
for I := FVolumesPath.Count - 1 downto Index do
|
||||
begin
|
||||
DeleteFile(PChar(FVolumesPath[I]));
|
||||
FVolumesPath.Delete(I);
|
||||
end;
|
||||
UpdateVolumeSize;
|
||||
end;
|
||||
|
||||
procedure TFWFileMultiStream.UpdateVolumeSize;
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
if FCurrentStream = nil then Exit;
|
||||
if FCurrentStreamNumber < 0 then Exit;
|
||||
FWriteVolumesSize[FCurrentStreamNumber] := FCurrentStream.Size;
|
||||
FTotalSize := 0;
|
||||
for I := 0 to Length(FReadVolumesSize) - 1 do
|
||||
begin
|
||||
FReadVolumesSize[I] := FTotalSize;
|
||||
Inc(FTotalSize, FWriteVolumesSize[I]);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
713
fwzip/delphi7/FWZipUtils.pas
Normal file
713
fwzip/delphi7/FWZipUtils.pas
Normal file
@@ -0,0 +1,713 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipUtils
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2024.
|
||||
// * Version : 2.0.4
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// 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 FWZipUtils;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
// <20> FPC <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FileSizeToInt64 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FileSizeHi <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> 32 <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF CPU32}
|
||||
{$UNDEF USE_INLINE}
|
||||
{$ELSE}
|
||||
{$DEFINE USE_INLINE}
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
{$IF COMPILERVERSION > 15.0 }
|
||||
{$DEFINE USE_INLINE}
|
||||
{$IFEND}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF LINUX}
|
||||
Unix, Baseunix, DateUtils, Types,
|
||||
{$ELSE}
|
||||
Windows,
|
||||
{$ENDIF}
|
||||
{$IFDEF FPC}
|
||||
LConvEncoding,
|
||||
{$ENDIF}
|
||||
SysUtils,
|
||||
FWZipConsts;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> FPC
|
||||
// ===========================================================================
|
||||
function HiByte(W: Word): Byte; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function HiWord(L: DWORD): Word; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function PtrToUInt(Value: Pointer): NativeUInt; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function UIntToPtr(Value: NativeUInt): Pointer; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
|
||||
function FileSizeToInt64(FileSizeLo, FileSizeHi: DWORD): Int64; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function FileSizeToStr(Value: Int64): string;
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> FPC
|
||||
procedure ZeroMemory(Destination: Pointer; Length: NativeUInt); {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ===========================================================================
|
||||
function ConvertToOemString(const Value: AnsiString): AnsiString;
|
||||
function ConvertFromOemString(const Value: AnsiString): AnsiString;
|
||||
function ExceptionMessage(const E: Exception): string; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function LongPrefixPresent(const {%H-}APath: string): Boolean; {$IFDEF USE_INLINE}inline;{$ENDIF}
|
||||
function IncludeLongNamePrefix(const Value: string): string;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ===========================================================================
|
||||
function GetDiskFreeAvailable(const AFilePath: string): Int64;
|
||||
function GetFileAttributes(const AFilePath: string;
|
||||
out AAttr: TFileAttributeData): Boolean;
|
||||
function IsAttributesPresent(Value: TFileAttributeData): Boolean;
|
||||
procedure SetNormalFileAttributes(const AFilePath: string);
|
||||
procedure SetFileAttributes(const AFilePath: string; AAttr: TFileAttributeData);
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ===========================================================================
|
||||
function PathCanonicalize(const AFilePath: string): string;
|
||||
function MakeUniqueName(const AFilePath: string): string;
|
||||
function ForceDirectoriesEx(Dir: string): Boolean;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ===========================================================================
|
||||
function FileTimeToLocalFileDate(AFileTime: TFileTime): Cardinal;
|
||||
function FileTimeToLocalDateTime(AFileTime: TFileTime): TDateTime;
|
||||
function DateTimeToFileTime(ADateTime: TDateTime): TFileTime;
|
||||
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> Linux <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// ===========================================================================
|
||||
procedure FinallyFileBuffers(AHandle: THandle);
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF MSWINDOWS}
|
||||
function PathCanonicalizeApi(lpszDes, lpszSrc: PChar): BOOL; stdcall; external 'shlwapi.dll'
|
||||
name {$IFDEF UNICODE}'PathCanonicalizeW'{$ELSE}'PathCanonicalizeA'{$ENDIF};
|
||||
function PathMakeUniqueName(pszUniqueName: PWideChar; cchMax: Cardinal;
|
||||
pszTemplate, pszLongPlate, pszDir: PWideChar): Boolean; stdcall; external 'shell32.dll';
|
||||
{$ENDIF}
|
||||
|
||||
function FileSizeToInt64(FileSizeLo, FileSizeHi: DWORD): Int64;
|
||||
begin
|
||||
Result := FileSizeHi;
|
||||
Result := Result shl 32;
|
||||
Inc(Result, FileSizeLo);
|
||||
end;
|
||||
|
||||
function HiByte(W: Word): Byte;
|
||||
begin
|
||||
Result := W shr 8;
|
||||
end;
|
||||
|
||||
function HiWord(L: DWORD): Word;
|
||||
begin
|
||||
Result := L shr 16;
|
||||
end;
|
||||
|
||||
procedure ZeroMemory(Destination: Pointer; Length: NativeUInt);
|
||||
begin
|
||||
FillChar(Destination^, Length, 0);
|
||||
end;
|
||||
|
||||
function PtrToUInt(Value: Pointer): NativeUInt;
|
||||
begin
|
||||
Result := {%H-}NativeUInt(Value);
|
||||
end;
|
||||
|
||||
function UIntToPtr(Value: NativeUInt): Pointer;
|
||||
begin
|
||||
Result := {%H-}Pointer(Value);
|
||||
end;
|
||||
|
||||
{$IFDEF LINUX}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> NTFS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
const
|
||||
NSECPERSEC = 10000000;
|
||||
NSECPERMSEC = 10000;
|
||||
MSECPERSEC = 1000;
|
||||
SECSPERMIN = 60;
|
||||
MINSPERHOUR = 60;
|
||||
HOURSPERDAY = 24;
|
||||
EPOCHWEEKDAY = 1; // 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1601 <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
DAYSPERWEEK = 7;
|
||||
DAYSPERQUADRICENTENNIUM = 365 * 400 + 97;
|
||||
DAYSPERNORMALQUADRENNIUM = 365 * 4 + 1;
|
||||
MonthLength: array [Boolean] of array [0..11] of Integer =
|
||||
((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
|
||||
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
|
||||
|
||||
function SystemTimeToFileTime(
|
||||
const ATime: TSystemTime; out AFileTime: TFileTime): Boolean;
|
||||
|
||||
function IsLeapYear: Boolean;
|
||||
begin
|
||||
Result := (ATime.Year mod 400 = 0) and
|
||||
(ATime.Year mod 100 <> 0) or (ATime.Year mod 4 = 0);
|
||||
end;
|
||||
|
||||
function IsDayTooBig: Boolean;
|
||||
begin
|
||||
Result := ATime.Day >
|
||||
MonthLength[(ATime.Month = 2) and IsLeapYear][ATime.Month - 1];
|
||||
end;
|
||||
|
||||
var
|
||||
CalcYear, CalcMonth, CalcLeapCount, CalcDay: UInt64;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
if ATime.Millisecond > 999 then Exit;
|
||||
if ATime.Second > 59 then Exit;
|
||||
if ATime.Minute > 59 then Exit;
|
||||
if ATime.Hour > 23 then Exit;
|
||||
if (ATime.Month < 1) or (ATime.Month > 12) then Exit;
|
||||
if (ATime.Day < 1) or IsDayTooBig then Exit;
|
||||
if (ATime.Year < 1601) or (ATime.Year > 30827) then Exit;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 12 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
CalcYear := ATime.Year;
|
||||
CalcMonth := ATime.Month;
|
||||
if ATime.Month < 3 then
|
||||
begin
|
||||
Dec(CalcYear);
|
||||
Inc(CalcMonth, 12);
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
CalcLeapCount := (3 * (CalcYear div 100) + 3) shr 2;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> 1601 <20><><EFBFBD><EFBFBD>
|
||||
CalcDay :=
|
||||
(36525 * CalcYear) div 100 - CalcLeapCount + // <20><><EFBFBD> * <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
(1959 * (CalcMonth + 1)) shr 6 + // <20><><EFBFBD><EFBFBD><EFBFBD> * <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD>
|
||||
ATime.Day - // <20><><EFBFBD><EFBFBD>
|
||||
584817; // <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> 1601 <20><><EFBFBD><EFBFBD>
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
PUint64(@AFileTime)^ := ((((
|
||||
CalcDay * HOURSPERDAY +
|
||||
ATime.Hour) * MINSPERHOUR +
|
||||
ATime.Minute) * SECSPERMIN +
|
||||
ATime.Second) * MSECPERSEC +
|
||||
ATime.Millisecond) * NSECPERMSEC;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
function FileTimeToSystemTime(const AFileTime: TFileTime;
|
||||
out ASystemTime: TSystemTime): Boolean;
|
||||
var
|
||||
FullTime, CalcYear, CalcMonth, CalcLeapCount,
|
||||
CalcYearDay, CalcDay, CalcSecond: Int64;
|
||||
begin
|
||||
Result := False;
|
||||
FullTime := PInt64(@AFileTime)^;
|
||||
if FullTime < 0 then Exit;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
ASystemTime.Millisecond := (FullTime mod NSECPERSEC) div NSECPERMSEC;
|
||||
FullTime := FullTime div NSECPERSEC;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
CalcSecond := FullTime mod SECSPERDAY;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
ASystemTime.Hour := CalcSecond div SECSPERHOUR;
|
||||
CalcSecond := CalcSecond mod SECSPERHOUR;
|
||||
ASystemTime.Minute := CalcSecond div SECSPERMIN;
|
||||
ASystemTime.Second := CalcSecond mod SECSPERMIN;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
CalcDay := FullTime div SECSPERDAY;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
ASystemTime.DayOfWeek := (EPOCHWEEKDAY + CalcDay) mod DAYSPERWEEK;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
CalcLeapCount :=
|
||||
(3 * ((CalcDay shl 2 + 1227) div DAYSPERQUADRICENTENNIUM) + 3) shr 2;
|
||||
Inc(CalcDay, 28188 + CalcLeapCount);
|
||||
CalcYear := (20 * CalcDay - 2442) div (5 * DAYSPERNORMALQUADRENNIUM);
|
||||
CalcYearDay := CalcDay - (CalcYear * DAYSPERNORMALQUADRENNIUM) shr 2;
|
||||
CalcMonth := (CalcYearDay shl 6) div 1959;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 12 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
ASystemTime.Month := CalcMonth - 1;
|
||||
ASystemTime.Year := CalcYear + 1524;
|
||||
if ASystemTime.Month > 12 then
|
||||
begin
|
||||
Dec(ASystemTime.Month, 12);
|
||||
Inc(ASystemTime.Year);
|
||||
end;
|
||||
|
||||
ASystemTime.Day := CalcYearDay - (1959 * CalcMonth) shr 6;
|
||||
end;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> stat.st_atime (qword) <20> TFileTime
|
||||
function UnixDateToFileTime(Value: Int64): TFileTime;
|
||||
var
|
||||
SystemTime: TSystemTime;
|
||||
begin
|
||||
DateTimeToSystemTime(UnixToDateTime(Value), SystemTime);
|
||||
SystemTimeToFileTime(SystemTime, Result);
|
||||
end;
|
||||
|
||||
function FileTimeToUnixDate(Value: TFileTime): Int64;
|
||||
var
|
||||
SystemTime: TSystemTime;
|
||||
begin
|
||||
FileTimeToSystemTime(Value, SystemTime);
|
||||
Result := DateTimeToUnix(SystemTimeToDateTime(SystemTime));
|
||||
end;
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
function ConvertToOemString(const Value: AnsiString): AnsiString;
|
||||
begin
|
||||
Result := Value;
|
||||
if Result = '' then Exit;
|
||||
UniqueString(Result);
|
||||
{$IFDEF FPC}
|
||||
Result := UTF8ToCP866(Value);
|
||||
{$ELSE}
|
||||
AnsiToOem(PAnsiChar(Value), PAnsiChar(Result));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function ConvertFromOemString(const Value: AnsiString): AnsiString;
|
||||
begin
|
||||
Result := Value;
|
||||
if Result = '' then Exit;
|
||||
UniqueString(Result);
|
||||
{$IFDEF FPC}
|
||||
Result := CP866ToUTF8(Value);
|
||||
{$ELSE}
|
||||
OemToAnsi(PAnsiChar(Result), PAnsiChar(Result));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function ExceptionMessage(const E: Exception): string;
|
||||
begin
|
||||
Result := E.ClassName + ': ' + E.Message;
|
||||
end;
|
||||
|
||||
function LongPrefixPresent(const APath: string): Boolean;
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
Result := (Length(APath) >= 4) and
|
||||
( (APath[1] = LongNamePrefix[1]) and
|
||||
(APath[2] = LongNamePrefix[2]) and
|
||||
(APath[3] = LongNamePrefix[3]) and
|
||||
(APath[4] = LongNamePrefix[4]));
|
||||
{$ELSE}
|
||||
Result := False;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function IsLocalDrive(const Value: string): Boolean;
|
||||
begin
|
||||
Result := (Length(Value) > 2) and (Value[2] = ':');
|
||||
end;
|
||||
|
||||
function IsNetworkSlashPresent(const Value: string): Boolean;
|
||||
begin
|
||||
Result := (Length(Value) > 2) and (Value[1] = '\') and (Value[2] = '\');
|
||||
end;
|
||||
|
||||
function FixupFilePrefix(const Value: string): string;
|
||||
begin
|
||||
Result := StringReplace(Value, '/', '\', [rfReplaceAll]);
|
||||
if AnsiSameText(Copy(Result, 1, 7), 'file:\\') then
|
||||
begin
|
||||
Delete(Result, 1, 7);
|
||||
if not IsLocalDrive(Result) then
|
||||
Result := '\\' + Result;
|
||||
end;
|
||||
end;
|
||||
|
||||
function IncludeLongNamePrefix(const Value: string): string;
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
if UseLongNamePrefix and not LongPrefixPresent(Value) and (Length(Value) > MAX_PATH) then
|
||||
begin
|
||||
Result := FixupFilePrefix(Value);
|
||||
if IsLocalDrive(Result) then
|
||||
Result := LongNamePrefix + Result
|
||||
else
|
||||
begin
|
||||
if IsNetworkSlashPresent(Result) then
|
||||
Delete(Result, 1, 2);
|
||||
Result := UNCLongNamePrefix + Result;
|
||||
end;
|
||||
end
|
||||
else
|
||||
{$ENDIF}
|
||||
Result := Value;
|
||||
end;
|
||||
|
||||
function GetPresentFolder(const AFilePath: string): string;
|
||||
begin
|
||||
Result := AFilePath;
|
||||
{$IFDEF LINUX}
|
||||
while (Result <> '') and not DirectoryExists(Result) do
|
||||
Result := ExtractFilePath(ExcludeTrailingPathDelimiter(Result));
|
||||
if Result = '' then
|
||||
Result := ExpandFileName('~');
|
||||
{$ELSE}
|
||||
if LongPrefixPresent(Result) then
|
||||
Delete(Result, 1, 4);
|
||||
Result := ExtractFileDrive(Result);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function GetDiskFreeAvailable(const AFilePath: string): Int64;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
FreeAvailable, TotalSpace: Int64;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF LINUX}
|
||||
Result := DiskFree(AddDisk(GetPresentFolder(AFilePath)));
|
||||
{$ELSE}
|
||||
{$IFDEF FPC}
|
||||
FreeAvailable := -1;
|
||||
TotalSpace := -1;
|
||||
{$ENDIF}
|
||||
if GetDiskFreeSpaceEx(PChar(GetPresentFolder(AFilePath)), FreeAvailable, TotalSpace, nil) then
|
||||
Result := FreeAvailable
|
||||
else
|
||||
Result := -1;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function GetFileAttributes(const AFilePath: string;
|
||||
out AAttr: TFileAttributeData): Boolean;
|
||||
{$IFDEF LINUX}
|
||||
|
||||
var
|
||||
Info: Stat;
|
||||
SystemFileName: RawByteString;
|
||||
begin
|
||||
FillChar(AAttr, SizeOf(AAttr), 0);
|
||||
SystemFileName := ToSingleByteFileSystemEncodedFileName(AFilePath);
|
||||
Info := default(Stat);
|
||||
if (fpstat(PChar(SystemFileName), Info) < 0) or fpS_ISDIR(info.st_mode) then
|
||||
Result := False
|
||||
else
|
||||
begin
|
||||
AAttr.dwFileAttributes := FileGetAttr(SystemFileName);
|
||||
Result := AAttr.dwFileAttributes <> DWORD(-1);
|
||||
if Result then
|
||||
begin
|
||||
AAttr.ftCreationTime := UnixDateToFileTime(Info.st_ctime);
|
||||
AAttr.ftLastAccessTime := UnixDateToFileTime(Info.st_atime);
|
||||
AAttr.ftLastWriteTime := UnixDateToFileTime(Info.st_mtime);
|
||||
AAttr.nFileSizeHigh := Info.st_size shr 32;
|
||||
AAttr.nFileSizeLow := DWORD(Info.st_size);
|
||||
end;
|
||||
end;
|
||||
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := GetFileAttributesEx(PChar(AFilePath),
|
||||
GetFileExInfoStandard, @AAttr);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function IsAttributesPresent(Value: TFileAttributeData): Boolean;
|
||||
begin
|
||||
Result := (Value.ftCreationTime.dwLowDateTime <> 0) and
|
||||
(Value.ftCreationTime.dwHighDateTime <> 0);
|
||||
end;
|
||||
|
||||
procedure SetNormalFileAttributes(const AFilePath: string);
|
||||
var
|
||||
AAttr: TFileAttributeData;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
AAttr := Default(TFileAttributeData);
|
||||
{$ENDIF}
|
||||
AAttr.dwFileAttributes := $80; // FILE_ATTRIBUTE_NORMAL
|
||||
SetFileAttributes(AFilePath, AAttr);
|
||||
end;
|
||||
|
||||
procedure SetFileAttributes(const AFilePath: string; AAttr: TFileAttributeData);
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
hFile: THandle;
|
||||
{$ELSE}
|
||||
var
|
||||
SystemFileName: RawByteString;
|
||||
t: TUTimBuf;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
Windows.SetFileAttributes(PChar(AFilePath), AAttr.dwFileAttributes);
|
||||
{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
|
||||
if not IsAttributesPresent(AAttr) then Exit;
|
||||
|
||||
{$IFDEF LINUX}
|
||||
t.actime := FileTimeToUnixDate(AAttr.ftLastAccessTime);
|
||||
t.modtime:= FileTimeToUnixDate(AAttr.ftLastWriteTime);
|
||||
SystemFileName := ToSingleByteFileSystemEncodedFileName(AFilePath);
|
||||
fputime(PChar(SystemFileName), @t);
|
||||
{$ELSE}
|
||||
hFile := FileOpen(AFilePath, fmOpenWrite);
|
||||
try
|
||||
SetFileTime(hFile,
|
||||
@AAttr.ftCreationTime,
|
||||
@AAttr.ftLastAccessTime,
|
||||
@AAttr.ftLastWriteTime);
|
||||
finally
|
||||
FileClose(hFile);
|
||||
end;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
{$IFDEF MSWINDOWS}
|
||||
function CallPathCanonicalize(const AFilePath: string): string;
|
||||
begin
|
||||
Result := StringOfChar(#0, MAX_PATH);
|
||||
if PathCanonicalizeApi(PChar(Result), PChar(AFilePath)) then
|
||||
Result := PChar(Result)
|
||||
else
|
||||
Result := AFilePath;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
function PathCanonicalize(const AFilePath: string): string;
|
||||
begin
|
||||
Result := AFilePath;
|
||||
if Result = '' then Exit;
|
||||
if Result[1] = '.' then
|
||||
Result := IncludeTrailingPathDelimiter(GetCurrentDir) + Result;
|
||||
{$IFDEF MSWINDOWS}
|
||||
Result := IncludeLongNamePrefix(CallPathCanonicalize(Result));
|
||||
{$ELSE}
|
||||
Result := ExpandFileName(Result);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function MakeUniqueName(const AFilePath: string): string;
|
||||
{$IFDEF LINUX}
|
||||
var
|
||||
FilePath, FileName, FileExt, NewFileName: string;
|
||||
I: Integer;
|
||||
begin
|
||||
Result := AFilePath;
|
||||
if not FileExists(Result) then Exit;
|
||||
FilePath := ExtractFilePath(AFilePath);
|
||||
FileName := ExtractFileName(AFilePath);
|
||||
FileExt := ExtractFileExt(FileName);
|
||||
FileName := ChangeFileExt(FileName, '');
|
||||
I := 1;
|
||||
repeat
|
||||
Inc(I);
|
||||
NewFileName := FileName + ' (' + IntToStr(I) + ')' + FileExt;
|
||||
until not FileExists(FilePath + NewFileName);
|
||||
Result := FilePath + NewFileName;
|
||||
{$ELSE}
|
||||
{$IFDEF UNICODE}
|
||||
var
|
||||
FilePath, FileName: string;
|
||||
begin
|
||||
Result := AFilePath;
|
||||
if not FileExists(Result) then Exit;
|
||||
FilePath := ExtractFilePath(AFilePath);
|
||||
FileName := ExtractFileName(AFilePath);
|
||||
SetLength(Result, MAX_PATH);
|
||||
if PathMakeUniqueName(PWideChar(Result), MAX_PATH,
|
||||
nil, PWideChar(FileName), PWideChar(FilePath)) then
|
||||
Result := PWideChar(Result);
|
||||
{$ELSE}
|
||||
var
|
||||
UnicodeResult, FilePath, FileName: WideString;
|
||||
begin
|
||||
Result := AFilePath;
|
||||
if not FileExists(Result) then Exit;
|
||||
FilePath := WideString(ExtractFilePath(AFilePath));
|
||||
FileName := WideString(ExtractFileName(AFilePath));
|
||||
{$IFDEF FPC}
|
||||
UnicodeResult := '';
|
||||
{$ENDIF}
|
||||
SetLength(UnicodeResult, MAX_PATH);
|
||||
if PathMakeUniqueName(PWideChar(UnicodeResult), MAX_PATH,
|
||||
nil, PWideChar(FileName), PWideChar(FilePath)) then
|
||||
Result := AnsiString(PWideChar(UnicodeResult));
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function ForceDirectoriesEx(Dir: string): Boolean;
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ForceDirectories <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>:
|
||||
//
|
||||
// S := '\\?\w:\test\'; // <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!
|
||||
// ForceDirectories(S); // <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DirectoryExists <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "\\?\w:"
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> GetFileAttributes <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> INVALID_FILE_ATTRIBUTES,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> MSDN <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> False <20> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CreateDir
|
||||
|
||||
{$IFDEF MSWINDOWS}
|
||||
function InternalForce(Dir: string): Boolean;
|
||||
var
|
||||
PreviosDir: string;
|
||||
begin
|
||||
Result := Dir <> '';
|
||||
if not Result or DirectoryExists(Dir) then
|
||||
Exit;
|
||||
|
||||
Dir := ExcludeTrailingPathDelimiter(Dir);
|
||||
PreviosDir := ExtractFilePath(Dir);
|
||||
if PreviosDir = Dir then
|
||||
Result := True
|
||||
else
|
||||
Result := InternalForce(PreviosDir) and CreateDir(Dir);
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
if LongPrefixPresent(Dir) then
|
||||
Result := InternalForce(Dir)
|
||||
else
|
||||
{$ENDIF}
|
||||
Result := ForceDirectories(Dir);
|
||||
end;
|
||||
|
||||
function FileTimeToLocalFileDate(AFileTime: TFileTime): Cardinal;
|
||||
{$IFDEF LINUX}
|
||||
var
|
||||
SystemTime: TSystemTime;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF LINUX}
|
||||
DateTimeToSystemTime(FileTimeToLocalDateTime(AFileTime), SystemTime);
|
||||
if (SystemTime.Year < 1980) or (SystemTime.Year > 2107) then
|
||||
Result := 0
|
||||
else
|
||||
with SystemTime do
|
||||
begin
|
||||
LongRec(Result).Lo := (Second shr 1) or (Minute shl 5) or (Hour shl 11);
|
||||
LongRec(Result).Hi := Day or (Month shl 5) or ((Year - 1980) shl 9);
|
||||
end;
|
||||
{$ELSE}
|
||||
Result := DateTimeToFileDate(FileTimeToLocalDateTime(AFileTime));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function FileTimeToLocalDateTime(AFileTime: TFileTime): TDateTime;
|
||||
var
|
||||
{$IFDEF LINUX}
|
||||
UnixTime: Int64;
|
||||
{$ELSE}
|
||||
SystemTime: TSystemTime;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF LINUX}
|
||||
UnixTime := FileTimeToUnixDate(AFileTime);
|
||||
Result := UnixToDateTime(UnixTime, False);
|
||||
{$ELSE}
|
||||
// Rouse_ 25.10.2013
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
//FileTimeToSystemTime(CurrentItem.Attributes.ftLastWriteTime, SystemTyme);
|
||||
FileTimeToLocalFileTime(AFileTime, AFileTime);
|
||||
{$IFDEF FPC}
|
||||
SystemTime := Default(TSystemTime);
|
||||
{$ENDIF}
|
||||
FileTimeToSystemTime(AFileTime, SystemTime);
|
||||
Result := SystemTimeToDateTime(SystemTime);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function DateTimeToFileTime(ADateTime: TDateTime): TFileTime;
|
||||
{$IFDEF MSWINDOWS}
|
||||
var
|
||||
SystemTime: TSystemTime;
|
||||
begin
|
||||
{$IFDEF FPC}
|
||||
Result := Default(TFileTime);
|
||||
{$ENDIF}
|
||||
DateTimeToSystemTime(ADateTime, SystemTime);
|
||||
SystemTimeToFileTime(SystemTime, Result);
|
||||
LocalFileTimeToFileTime(Result, Result);
|
||||
{$ELSE}
|
||||
begin
|
||||
Result := UnixDateToFileTime(DateTimeToUnix(ADateTime, False));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function FileSizeToStr(Value: Int64): string;
|
||||
begin
|
||||
if Value < 1024 then
|
||||
begin
|
||||
Result := Format('%d <20><><EFBFBD><EFBFBD>', [Value]);
|
||||
Exit;
|
||||
end;
|
||||
Value := Value div 1024;
|
||||
if Value < 1024 then
|
||||
begin
|
||||
Result := Format('%d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', [Value]);
|
||||
Exit;
|
||||
end;
|
||||
Value := Value div 1024;
|
||||
if Value < 1024 then
|
||||
begin
|
||||
Result := Format('%d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', [Value]);
|
||||
Exit;
|
||||
end;
|
||||
Value := Value div 1024;
|
||||
if Value < 1024 then
|
||||
begin
|
||||
Result := Format('%d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', [Value]);
|
||||
Exit;
|
||||
end;
|
||||
// <20><> <20> <20><><EFBFBD> <20><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>? :)
|
||||
Value := Value div 1024;
|
||||
Result := Format('%d <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', [Value]);
|
||||
end;
|
||||
|
||||
procedure FinallyFileBuffers(AHandle: THandle);
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
FlushFileBuffers(AHandle);
|
||||
{$ELSE}
|
||||
FileFlush(AHandle);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
end.
|
2058
fwzip/delphi7/FWZipWriter.pas
Normal file
2058
fwzip/delphi7/FWZipWriter.pas
Normal file
File diff suppressed because it is too large
Load Diff
814
fwzip/delphi7/FWZipZLib.pas
Normal file
814
fwzip/delphi7/FWZipZLib.pas
Normal file
@@ -0,0 +1,814 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : FWZipZLib
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
||||
// * : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ZLibEx <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * : <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Delphi
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2024.
|
||||
// * Version : 2.0.4
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// https://zlib.net/zlib-1.2.13.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
{*************************************************************************************************
|
||||
* ZLibEx.pas *
|
||||
* *
|
||||
* copyright (c) 2000-2013 base2 technologies *
|
||||
* copyright (c) 1995-2002 Borland Software Corporation *
|
||||
* *
|
||||
*************************************************************************************************}
|
||||
|
||||
unit FWZipZLib;
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$MODE Delphi}
|
||||
{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
interface
|
||||
|
||||
{$I fwzip.inc}
|
||||
|
||||
uses
|
||||
Classes,
|
||||
SysUtils,
|
||||
{$IFDEF USE_ZLIB_FPC}
|
||||
FWZipZLibFPC
|
||||
{$ELSE}
|
||||
{$IFDEF USE_ZLIB_EX}
|
||||
ZLibExApi
|
||||
{$ELSE}
|
||||
{$IFDEF USE_ZLIB_DLL}
|
||||
ZLib_external
|
||||
{$ELSE}
|
||||
ZLib
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ENDIF};
|
||||
|
||||
type
|
||||
TStreamPos = Int64;
|
||||
|
||||
TCompressionLevel = (
|
||||
clNone,
|
||||
clFastest,
|
||||
clDefault,
|
||||
clMax,
|
||||
clLevel1,
|
||||
clLevel2,
|
||||
clLevel3,
|
||||
clLevel4,
|
||||
clLevel5,
|
||||
clLevel6,
|
||||
clLevel7,
|
||||
clLevel8,
|
||||
clLevel9
|
||||
);
|
||||
|
||||
TZStrategy = (
|
||||
zsDefault,
|
||||
zsFiltered,
|
||||
zsHuffman,
|
||||
zsRLE,
|
||||
zsFixed
|
||||
);
|
||||
|
||||
TZError = (
|
||||
zeError,
|
||||
zeStreamError,
|
||||
zeDataError,
|
||||
zeMemoryError,
|
||||
zeBufferError,
|
||||
zeVersionError
|
||||
);
|
||||
|
||||
TZFlush = (
|
||||
zfNoFlush,
|
||||
zfPartialFlush,
|
||||
zfSyncFlush,
|
||||
zfFullFlush,
|
||||
zfFinish,
|
||||
zfBlock,
|
||||
zfTrees
|
||||
);
|
||||
|
||||
const
|
||||
ZLevels: Array [TCompressionLevel] of Integer = (
|
||||
Z_NO_COMPRESSION, // zcNone
|
||||
Z_BEST_SPEED, // zcFastest
|
||||
Z_DEFAULT_COMPRESSION, // zcDefault
|
||||
Z_BEST_COMPRESSION, // zcMax
|
||||
1, // zcLevel1
|
||||
2, // zcLevel2
|
||||
3, // zcLevel3
|
||||
4, // zcLevel4
|
||||
5, // zcLevel5
|
||||
6, // zcLevel6
|
||||
7, // zcLevel7
|
||||
8, // zcLevel8
|
||||
9 // zcLevel9
|
||||
);
|
||||
|
||||
{** compression methods ***********************************************************************}
|
||||
|
||||
Z_DEFLATED = 8;
|
||||
|
||||
{** compression levels ************************************************************************}
|
||||
|
||||
Z_NO_COMPRESSION = 0;
|
||||
Z_BEST_SPEED = 1;
|
||||
Z_BEST_COMPRESSION = 9;
|
||||
Z_DEFAULT_COMPRESSION = (-1);
|
||||
|
||||
{** flush constants ***************************************************************************}
|
||||
|
||||
Z_NO_FLUSH = 0;
|
||||
Z_PARTIAL_FLUSH = 1;
|
||||
Z_SYNC_FLUSH = 2;
|
||||
Z_FULL_FLUSH = 3;
|
||||
Z_FINISH = 4;
|
||||
Z_BLOCK = 5;
|
||||
Z_TREES = 6;
|
||||
|
||||
{** compression strategies ********************************************************************}
|
||||
|
||||
Z_FILTERED = 1;
|
||||
Z_HUFFMAN_ONLY = 2;
|
||||
Z_RLE = 3;
|
||||
Z_FIXED = 4;
|
||||
Z_DEFAULT_STRATEGY = 0;
|
||||
|
||||
ZStrategies: Array [TZStrategy] of Integer = (
|
||||
Z_DEFAULT_STRATEGY, // zsDefault
|
||||
Z_FILTERED, // zsFiltered
|
||||
Z_HUFFMAN_ONLY, // zsHuffman
|
||||
Z_RLE, // zsRLE
|
||||
Z_FIXED // zsFixed
|
||||
);
|
||||
|
||||
ZErrors: Array [TZError] of Integer = (
|
||||
Z_ERRNO, // zeError
|
||||
Z_STREAM_ERROR, // zeStreamError
|
||||
Z_DATA_ERROR, // zeDataError
|
||||
Z_MEM_ERROR, // zeMemoryError
|
||||
Z_BUF_ERROR, // zeBufferError
|
||||
Z_VERSION_ERROR // zeVersionError
|
||||
);
|
||||
|
||||
ZFlushes: Array [TZFlush] of Integer = (
|
||||
Z_NO_FLUSH, // zfNoFlush
|
||||
Z_PARTIAL_FLUSH, // zfPartialFlush
|
||||
Z_SYNC_FLUSH, // zfSyncFlush
|
||||
Z_FULL_FLUSH, // zfFullFlush
|
||||
Z_FINISH, // zfFinish
|
||||
Z_BLOCK, // zfBlock
|
||||
Z_TREES // zfTrees
|
||||
);
|
||||
|
||||
{** return code messages **********************************************************************}
|
||||
|
||||
_z_errmsg: Array [0..9] of String = (
|
||||
'Need dictionary', // Z_NEED_DICT (2)
|
||||
'Stream end', // Z_STREAM_END (1)
|
||||
'OK', // Z_OK (0)
|
||||
'File error', // Z_ERRNO (-1)
|
||||
'Stream error', // Z_STREAM_ERROR (-2)
|
||||
'Data error', // Z_DATA_ERROR (-3)
|
||||
'Insufficient memory', // Z_MEM_ERROR (-4)
|
||||
'Buffer error', // Z_BUF_ERROR (-5)
|
||||
'Incompatible version', // Z_VERSION_ERROR (-6)
|
||||
''
|
||||
);
|
||||
|
||||
type
|
||||
|
||||
{** TCustomZStream ****************************************************************************}
|
||||
|
||||
TCustomZStream = class(TStream)
|
||||
private
|
||||
FStream : TStream;
|
||||
FStreamPos : TStreamPos;
|
||||
FOnProgress: TNotifyEvent;
|
||||
|
||||
FZStream : TZStreamRec;
|
||||
FBuffer : Array [Word] of Byte;
|
||||
|
||||
function GetStreamPosition: TStreamPos;
|
||||
procedure SetStreamPosition(value: TStreamPos);
|
||||
protected
|
||||
function GetSize: Int64; override;
|
||||
|
||||
function StreamRead(var buffer; count: Longint): Longint;
|
||||
function StreamWrite(const {%H-}buffer; count: Longint): Longint;
|
||||
function StreamSeek(offset: Longint; origin: Word): Longint;
|
||||
|
||||
procedure StreamReadBuffer(var buffer; count: Longint);
|
||||
procedure StreamWriteBuffer(const {%H-}buffer; count: Longint);
|
||||
|
||||
procedure DoProgress; dynamic;
|
||||
|
||||
property StreamPosition: TStreamPos read GetStreamPosition write SetStreamPosition;
|
||||
|
||||
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
|
||||
public
|
||||
constructor Create(stream: TStream);
|
||||
end;
|
||||
|
||||
{** TZCompressionStream ***********************************************************************}
|
||||
|
||||
TZCompressionStream = class(TCustomZStream)
|
||||
private
|
||||
function GetCompressionRate: Single;
|
||||
public
|
||||
constructor Create(dest: TStream;
|
||||
compressionLevel: TCompressionLevel = clDefault); overload;
|
||||
|
||||
constructor Create(dest: TStream; compressionLevel: TCompressionLevel;
|
||||
windowBits, memLevel: Integer; strategy: TZStrategy); overload;
|
||||
|
||||
destructor Destroy; override;
|
||||
|
||||
function Read(var {%H-}buffer; {%H-}count: Longint): Longint; override;
|
||||
function Write(const buffer; count: Longint): Longint; override;
|
||||
function Seek(offset: Longint; origin: Word): Longint; override;
|
||||
|
||||
property CompressionRate: Single read GetCompressionRate;
|
||||
property OnProgress;
|
||||
end;
|
||||
|
||||
{** TZDecompressionStream *********************************************************************}
|
||||
|
||||
TZDecompressionStream = class(TCustomZStream)
|
||||
private
|
||||
FSource: TStream;
|
||||
public
|
||||
constructor Create(source: TStream); overload;
|
||||
constructor Create(source: TStream; windowBits: Integer); overload;
|
||||
constructor Create(source: TStream; windowBits: Integer; StreamOwned: Boolean); overload;
|
||||
|
||||
destructor Destroy; override;
|
||||
|
||||
function Read(var buffer; count: Longint): Longint; override;
|
||||
function Write(const {%H-}buffer; {%H-}count: Longint): Longint; override;
|
||||
function Seek(offset: Longint; origin: Word): Longint; override;
|
||||
|
||||
property OnProgress;
|
||||
end;
|
||||
|
||||
type
|
||||
EZLibErrorClass = class of EZlibError;
|
||||
|
||||
EZLibError = class(Exception)
|
||||
private
|
||||
FErrorCode: Integer;
|
||||
public
|
||||
constructor Create(code: Integer; const {%H-}dummy: String = ''); overload;
|
||||
constructor Create(error: TZError; const dummy: String = ''); overload;
|
||||
|
||||
property ErrorCode: Integer read FErrorCode write FErrorCode;
|
||||
end;
|
||||
|
||||
EZCompressionError = class(EZLibError);
|
||||
EZDecompressionError = class(EZLibError);
|
||||
|
||||
{$IFDEF USE_OLDEST_METHODS}
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TCompressionLevel = clDefault);
|
||||
|
||||
procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer = 0);
|
||||
{$ENDIF}
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
SZInvalid = 'Invalid ZStream operation!';
|
||||
|
||||
function ZCompressCheck(code: Integer; raiseBufferError: Boolean = True): Integer;
|
||||
begin
|
||||
result := code;
|
||||
|
||||
if code < 0 then
|
||||
begin
|
||||
if (code <> Z_BUF_ERROR) or raiseBufferError then
|
||||
raise EZCompressionError.Create(code);
|
||||
end;
|
||||
end;
|
||||
|
||||
function ZDecompressCheck(code: Integer; raiseBufferError: Boolean = True): Integer;
|
||||
begin
|
||||
Result := code;
|
||||
|
||||
if code < 0 then
|
||||
begin
|
||||
if (code <> Z_BUF_ERROR) or raiseBufferError then
|
||||
begin
|
||||
raise EZDecompressionError.Create(code);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{** zlib deflate routines ***********************************************************************}
|
||||
|
||||
function ZDeflateInit(var stream: TZStreamRec;
|
||||
level: TCompressionLevel): Integer;
|
||||
begin
|
||||
result := deflateInit_(stream, ZLevels[level], ZLIB_VERSION,
|
||||
SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
function ZDeflateInit2(var stream: TZStreamRec;
|
||||
level: TCompressionLevel; windowBits, memLevel: Integer;
|
||||
strategy: TZStrategy): Integer;
|
||||
begin
|
||||
{$IFDEF OLDEST_ZLIB}
|
||||
result := ZDeflateInit(stream, level);
|
||||
{$ELSE}
|
||||
result := deflateInit2_(stream, ZLevels[level], Z_DEFLATED, windowBits,
|
||||
memLevel, ZStrategies[strategy], ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function ZDeflate(var stream: TZStreamRec; flush: TZFlush): Integer;
|
||||
begin
|
||||
result := deflate(stream, ZFlushes[flush]);
|
||||
end;
|
||||
|
||||
function ZDeflateEnd(var stream: TZStreamRec): Integer;
|
||||
begin
|
||||
result := deflateEnd(stream);
|
||||
end;
|
||||
|
||||
{** zlib inflate routines ***********************************************************************}
|
||||
|
||||
function ZInflateInit(var stream: TZStreamRec): Integer;
|
||||
begin
|
||||
result := inflateInit_(stream, ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
function ZInflateInit2(var stream: TZStreamRec;
|
||||
windowBits: Integer): Integer;
|
||||
begin
|
||||
{$IFDEF OLDEST_ZLIB}
|
||||
result := ZInflateInit(stream);
|
||||
{$ELSE}
|
||||
result := inflateInit2_(stream, windowBits, ZLIB_VERSION,
|
||||
SizeOf(TZStreamRec));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function ZInflate(var stream: TZStreamRec; flush: TZFlush): Integer;
|
||||
begin
|
||||
result := inflate(stream, ZFlushes[flush]);
|
||||
end;
|
||||
|
||||
function ZInflateEnd(var stream: TZStreamRec): Integer;
|
||||
begin
|
||||
result := inflateEnd(stream);
|
||||
end;
|
||||
|
||||
function ZInflateReset(var stream: TZStreamRec): Integer;
|
||||
begin
|
||||
result := inflateReset(stream);
|
||||
end;
|
||||
|
||||
{** EZLibError **********************************************************************************}
|
||||
|
||||
constructor EZLibError.Create(code: Integer; const dummy: String);
|
||||
begin
|
||||
inherited Create(_z_errmsg[2 - code]);
|
||||
|
||||
FErrorCode := code;
|
||||
end;
|
||||
|
||||
constructor EZLibError.Create(error: TZError; const dummy: String);
|
||||
begin
|
||||
Create(ZErrors[error], dummy);
|
||||
end;
|
||||
|
||||
{** buffer routines *****************************************************************************}
|
||||
|
||||
{$IFDEF USE_OLDEST_METHODS}
|
||||
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TCompressionLevel);
|
||||
const
|
||||
delta = 256;
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
begin
|
||||
zstream := Default(TZStreamRec);
|
||||
|
||||
outSize := ((inSize + (inSize div 10) + 12) + 255) and not 255;
|
||||
GetMem(outBuffer, outSize);
|
||||
|
||||
try
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := outSize;
|
||||
|
||||
ZCompressCheck(ZDeflateInit(zstream, level));
|
||||
|
||||
try
|
||||
while ZCompressCheck(deflate(zstream, Z_FINISH), False) <> Z_STREAM_END do
|
||||
begin
|
||||
Inc(outSize, delta);
|
||||
ReallocMem(outBuffer, outSize);
|
||||
{$IF defined(FPC) and not defined(USE_ZLIB_FPC)}
|
||||
zstream.next_out := pBytef(outBuffer) + zstream.total_out;
|
||||
{$ELSE}
|
||||
zstream.next_out := PByte(outBuffer) + zstream.total_out;
|
||||
{$ENDIF}
|
||||
zstream.avail_out := delta;
|
||||
end;
|
||||
finally
|
||||
ZCompressCheck(deflateEnd(zstream));
|
||||
end;
|
||||
|
||||
ReallocMem(outBuffer, zstream.total_out);
|
||||
outSize := zstream.total_out;
|
||||
except
|
||||
FreeMem(outBuffer);
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer);
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
delta: Integer;
|
||||
begin
|
||||
zstream := Default(TZStreamRec);
|
||||
|
||||
delta := (inSize + 255) and not 255;
|
||||
|
||||
if outEstimate = 0 then outSize := delta
|
||||
else outSize := outEstimate;
|
||||
|
||||
GetMem(outBuffer, outSize);
|
||||
|
||||
try
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := outSize;
|
||||
|
||||
ZDecompressCheck(ZInflateInit(zstream));
|
||||
|
||||
try
|
||||
while ZDecompressCheck(inflate(zstream, Z_NO_FLUSH), False) <> Z_STREAM_END do
|
||||
begin
|
||||
Inc(outSize, delta);
|
||||
ReallocMem(outBuffer, outSize);
|
||||
{$IF defined(FPC) and not defined(USE_ZLIB_FPC)}
|
||||
zstream.next_out := pBytef(outBuffer) + zstream.total_out;
|
||||
{$ELSE}
|
||||
zstream.next_out := PByte(outBuffer) + zstream.total_out;
|
||||
{$ENDIF}
|
||||
zstream.avail_out := delta;
|
||||
end;
|
||||
finally
|
||||
ZDecompressCheck(inflateEnd(zstream));
|
||||
end;
|
||||
|
||||
ReallocMem(outBuffer, zstream.total_out);
|
||||
outSize := zstream.total_out;
|
||||
except
|
||||
FreeMem(outBuffer);
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
{** TCustomZStream ******************************************************************************}
|
||||
|
||||
constructor TCustomZStream.Create(stream: TStream);
|
||||
begin
|
||||
inherited Create;
|
||||
|
||||
FStream := stream;
|
||||
FStreamPos := stream.Position;
|
||||
|
||||
{$IFDEF OLDEST_ZLIB}
|
||||
FZStream.zalloc := zlibAllocMem;
|
||||
FZStream.zfree := zlibFreeMem;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
function TCustomZStream.StreamRead(var buffer; count: Longint): Longint;
|
||||
begin
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
result := FStream.Read(buffer,count);
|
||||
|
||||
FStreamPos := FStreamPos + result;
|
||||
end;
|
||||
|
||||
function TCustomZStream.StreamWrite(const buffer; count: Longint): Longint;
|
||||
begin
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
result := FStream.Write(buffer,count);
|
||||
|
||||
FStreamPos := FStreamPos + result;
|
||||
end;
|
||||
|
||||
function TCustomZStream.StreamSeek(offset: Longint; origin: Word): Longint;
|
||||
begin
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
result := FStream.Seek(offset,origin);
|
||||
|
||||
FStreamPos := FStream.Position;
|
||||
end;
|
||||
|
||||
procedure TCustomZStream.StreamReadBuffer(var buffer; count: Longint);
|
||||
begin
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
FStream.ReadBuffer(buffer,count);
|
||||
|
||||
FStreamPos := FStreamPos + count;
|
||||
end;
|
||||
|
||||
procedure TCustomZStream.StreamWriteBuffer(const buffer; count: Longint);
|
||||
begin
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
FStream.WriteBuffer(buffer,count);
|
||||
|
||||
FStreamPos := FStreamPos + count;
|
||||
end;
|
||||
|
||||
procedure TCustomZStream.DoProgress;
|
||||
begin
|
||||
if Assigned(FOnProgress) then FOnProgress(Self);
|
||||
end;
|
||||
|
||||
function TCustomZStream.GetSize: Int64;
|
||||
begin
|
||||
// Rouse_ 12.11.2021
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TStream.CopyFrom <20> Delphi 11 (Alexandria)
|
||||
Result := -1;
|
||||
end;
|
||||
|
||||
function TCustomZStream.GetStreamPosition: TStreamPos;
|
||||
begin
|
||||
result := FStream.Position;
|
||||
end;
|
||||
|
||||
procedure TCustomZStream.SetStreamPosition(value: TStreamPos);
|
||||
begin
|
||||
FStream.Position := value;
|
||||
FStreamPos := FStream.Position;
|
||||
end;
|
||||
|
||||
{** TZCompressionStream *************************************************************************}
|
||||
|
||||
constructor TZCompressionStream.Create(dest: TStream;
|
||||
compressionLevel: TCompressionLevel);
|
||||
begin
|
||||
inherited Create(dest);
|
||||
|
||||
FZStream.next_out := @FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
|
||||
ZCompressCheck(ZDeflateInit(FZStream, compressionLevel));
|
||||
end;
|
||||
|
||||
constructor TZCompressionStream.Create(dest: TStream;
|
||||
compressionLevel: TCompressionLevel; windowBits, memLevel: Integer;
|
||||
strategy: TZStrategy);
|
||||
begin
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
Create(dest, compressionLevel);
|
||||
{$ELSE}
|
||||
inherited Create(dest);
|
||||
|
||||
FZStream.next_out := @FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
|
||||
ZCompressCheck(ZDeflateInit2(FZStream, compressionLevel, windowBits,
|
||||
memLevel, strategy));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
destructor TZCompressionStream.Destroy;
|
||||
begin
|
||||
FZStream.next_in := Nil;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
try
|
||||
while ZCompressCheck(ZDeflate(FZStream, zfFinish), False) <> Z_STREAM_END do
|
||||
begin
|
||||
StreamWriteBuffer(FBuffer, SizeOf(FBuffer) - FZStream.avail_out);
|
||||
FZStream.next_out := @FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
end;
|
||||
|
||||
if Integer(FZStream.avail_out) < Length(FBuffer) then
|
||||
FStream.WriteBuffer(FBuffer, Length(FBuffer) - Integer(FZStream.avail_out));
|
||||
finally
|
||||
ZDeflateEnd(FZStream);
|
||||
end;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TZCompressionStream.{%H-}Read(var buffer; count: Longint): Longint;
|
||||
begin
|
||||
raise EZCompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZCompressionStream.Write(const buffer; count: Longint): Longint;
|
||||
var
|
||||
writeCount: Longint;
|
||||
begin
|
||||
result := count;
|
||||
|
||||
FZStream.next_in := @buffer;
|
||||
FZStream.avail_in := count;
|
||||
|
||||
while FZStream.avail_in > 0 do
|
||||
begin
|
||||
ZCompressCheck(ZDeflate(FZStream, zfNoFlush), False);
|
||||
|
||||
if FZStream.avail_out = 0 then
|
||||
begin
|
||||
writeCount := StreamWrite(FBuffer,SizeOf(FBuffer));
|
||||
|
||||
if writeCount = SizeOf(FBuffer) then
|
||||
begin
|
||||
FZStream.next_out := @FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
|
||||
DoProgress;
|
||||
end
|
||||
else
|
||||
begin
|
||||
StreamPosition := StreamPosition - writeCount;
|
||||
|
||||
result := Cardinal(count) - Cardinal(FZStream.avail_in);
|
||||
|
||||
FZStream.avail_in := 0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TZCompressionStream.Seek(offset: Longint; origin: Word): Longint;
|
||||
begin
|
||||
if (offset = 0) and (origin = soFromCurrent) then
|
||||
begin
|
||||
result := FZStream.total_in;
|
||||
end
|
||||
else raise EZCompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZCompressionStream.GetCompressionRate: Single;
|
||||
begin
|
||||
if FZStream.total_in = 0 then result := 0
|
||||
else result := (1.0 - (FZStream.total_out / FZStream.total_in)) * 100.0;
|
||||
end;
|
||||
|
||||
{** TZDecompressionStream ***********************************************************************}
|
||||
|
||||
constructor TZDecompressionStream.Create(source: TStream);
|
||||
begin
|
||||
inherited Create(source);
|
||||
|
||||
FZStream.next_in := @FBuffer;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
ZDecompressCheck(ZInflateInit(FZStream));
|
||||
end;
|
||||
|
||||
constructor TZDecompressionStream.Create(source: TStream;
|
||||
windowBits: Integer);
|
||||
begin
|
||||
{$IFDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
Create(source);
|
||||
{$ELSE}
|
||||
inherited Create(source);
|
||||
|
||||
FZStream.next_in := @FBuffer;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
ZDecompressCheck(ZInflateInit2(FZStream, windowBits));
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
constructor TZDecompressionStream.Create(source: TStream; windowBits: Integer;
|
||||
StreamOwned: Boolean);
|
||||
begin
|
||||
if StreamOwned then
|
||||
FSource := source;
|
||||
Create(source, windowBits);
|
||||
end;
|
||||
|
||||
destructor TZDecompressionStream.Destroy;
|
||||
begin
|
||||
ZInflateEnd(FZStream);
|
||||
FSource.Free;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.Read(var buffer; count: Longint): Longint;
|
||||
var
|
||||
zresult: Integer;
|
||||
begin
|
||||
FZStream.next_out := @buffer;
|
||||
FZStream.avail_out := count;
|
||||
|
||||
zresult := Z_OK;
|
||||
|
||||
while (FZStream.avail_out > 0) and (zresult <> Z_STREAM_END) do
|
||||
begin
|
||||
if FZStream.avail_in = 0 then
|
||||
begin
|
||||
FZStream.avail_in := StreamRead(FBuffer,SizeOf(FBuffer));
|
||||
|
||||
if FZStream.avail_in = 0 then
|
||||
begin
|
||||
result := Cardinal(count) - Cardinal(FZStream.avail_out);
|
||||
|
||||
Exit;
|
||||
end;
|
||||
|
||||
FZStream.next_in := @FBuffer;
|
||||
|
||||
DoProgress;
|
||||
end;
|
||||
|
||||
zresult := ZDecompressCheck(ZInflate(FZStream, zfNoFlush));
|
||||
end;
|
||||
|
||||
if (zresult = Z_STREAM_END) and (FZStream.avail_in > 0) then
|
||||
begin
|
||||
StreamPosition := StreamPosition - FZStream.avail_in;
|
||||
|
||||
FZStream.avail_in := 0;
|
||||
end;
|
||||
|
||||
result := Cardinal(count) - Cardinal(FZStream.avail_out);
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.{%H-}Write(const Buffer; Count: Longint): Longint;
|
||||
begin
|
||||
raise EZDecompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
|
||||
var
|
||||
buf: Array [0..8191] of Byte;
|
||||
i : Integer;
|
||||
begin
|
||||
if (offset = 0) and (origin = soFromBeginning) then
|
||||
begin
|
||||
ZDecompressCheck(ZInflateReset(FZStream));
|
||||
|
||||
FZStream.next_in := @FBuffer;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
StreamPosition := 0;
|
||||
end
|
||||
else if ((offset >= 0) and (origin = soFromCurrent)) or
|
||||
(((Cardinal(offset) - Cardinal(FZStream.total_out)) > 0) and
|
||||
(origin = soFromBeginning)) then
|
||||
begin
|
||||
if origin = soFromBeginning then Dec(offset, FZStream.total_out);
|
||||
|
||||
if offset > 0 then
|
||||
begin
|
||||
for i := 1 to offset div SizeOf(buf) do ReadBuffer(buf{%H-}, SizeOf(buf));
|
||||
ReadBuffer(buf, offset mod SizeOf(buf));
|
||||
end;
|
||||
end
|
||||
else if (offset = 0) and (origin = soFromEnd) then
|
||||
begin
|
||||
while Read(buf, SizeOf(buf)) > 0 do ;
|
||||
end
|
||||
else raise EZDecompressionError.Create(SZInvalid);
|
||||
|
||||
result := FZStream.total_out;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
24
fwzip/delphi7/clear.bat
Normal file
24
fwzip/delphi7/clear.bat
Normal file
@@ -0,0 +1,24 @@
|
||||
rd /S /Q "%cd%\backup\"
|
||||
rd /S /Q "%cd%\ConverterBackup\"
|
||||
rd /S /Q "%cd%\lib\"
|
||||
rd /S /Q "%cd%\__history\"
|
||||
rd /S /Q "%cd%\__recovery\"
|
||||
del "%cd%\*.o"
|
||||
del "%cd%\*.a"
|
||||
del "%cd%\*.or"
|
||||
del "%cd%\*.lps"
|
||||
del "%cd%\*.obj"
|
||||
del "%cd%\*.exe"
|
||||
del "%cd%\*.ppu"
|
||||
del "%cd%\*.dcu"
|
||||
del "%cd%\*.log"
|
||||
del "%cd%\*.compiled"
|
||||
del "%cd%\*.cfg"
|
||||
del "%cd%\*.dof"
|
||||
del "%cd%\*.dproj.local"
|
||||
del "%cd%\*.identcache"
|
||||
del "%cd%\*.dsk"
|
||||
del "%cd%\*.skincfg"
|
||||
del "%cd%\*.bak"
|
||||
del "%cd%\*.rsm"
|
||||
del "%cd%\*.~*"
|
93
fwzip/delphi7/fwzip.inc
Normal file
93
fwzip/delphi7/fwzip.inc
Normal file
@@ -0,0 +1,93 @@
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//
|
||||
// ****************************************************************************
|
||||
// * Project : FWZip
|
||||
// * Unit Name : fwzip.inc
|
||||
// * Purpose : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZIP <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Author : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// * Copyright : <20> Fangorn Wizards Lab 1998 - 2023.
|
||||
// * Version : 2.0.0
|
||||
// * 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
|
||||
// ****************************************************************************
|
||||
//
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
|
||||
// ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
|
||||
// http://zlib.net/zlib-1.2.5.tar.gz
|
||||
// http://www.base2ti.com/
|
||||
//
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZip
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLibEx <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// {$DEFINE USE_ZLIB_EX}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// {$DEFINE USE_ZLIB_DLL}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// c <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 7Zip
|
||||
// {$DEFINE USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> FPC!!!
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Lazarus
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
||||
// {$DEFINE USE_DEFAULT_FPC_ZLIB}
|
||||
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!!
|
||||
// =============================================================================
|
||||
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZip
|
||||
|
||||
// Lazarus <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF FPC}
|
||||
{$IFNDEF USE_DEFAULT_FPC_ZLIB}
|
||||
{$DEFINE USE_ZLIB_FPC}
|
||||
{$ENDIF}
|
||||
{$UNDEF USE_ZLIB_EX}
|
||||
{$UNDEF USE_ZLIB_DLL}
|
||||
{$UNDEF OLDEST_ZLIB}
|
||||
{$ELSE}
|
||||
// deflateInit2_ <20> inflateInit2_ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> Delphi <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 2009-<2D><>
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IF COMPILERVERSION < 20.0 }
|
||||
{$DEFINE OLDEST_ZLIB}
|
||||
{$ELSE}
|
||||
{$UNDEF OLDEST_ZLIB}
|
||||
{$IFEND}
|
||||
{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLibEx, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> deflateInit2_ <20> inflateInit2_ <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF USE_ZLIB_EX}
|
||||
{$UNDEF OLDEST_ZLIB}
|
||||
{$UNDEF USE_ZLIB_DLL}
|
||||
{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$DEFINE USE_OLDEST_METHODS}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> deflateInit2_ <20> inflateInit2_ <20><><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF USE_ZLIB_DLL}
|
||||
{$UNDEF OLDEST_ZLIB}
|
||||
{$UNDEF USE_OLDEST_METHODS}
|
||||
{$ENDIF}
|
||||
|
||||
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> deflateInit2_ <20> inflateInit2_ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
||||
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
{$IFDEF OLDEST_ZLIB}
|
||||
{$DEFINE USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
{$UNDEF USE_OLDEST_METHODS}
|
||||
{$ELSE}
|
||||
{$UNDEF USE_AUTOGENERATED_ZLIB_HEADER}
|
||||
{$ENDIF}
|
981
fwzip/delphi7/zlib_external.pas
Normal file
981
fwzip/delphi7/zlib_external.pas
Normal file
@@ -0,0 +1,981 @@
|
||||
{*****************************************************************************
|
||||
* ZLib.pas (zlib 1.2.3) *
|
||||
* *
|
||||
* copyright (c) 2002-2005 Roberto Della Pasqua (www.dellapasqua.com) *
|
||||
* copyright (c) 2000-2002 base2 technologies (www.base2ti.com) *
|
||||
* copyright (c) 1997 Borland International (www.borland.com) *
|
||||
* *
|
||||
* revision history *
|
||||
* 2008.02.15 updated to be interface compatible with old codegear zlib *
|
||||
* while not changing new zlib 1.2.3 interface *
|
||||
* 2006.04.21 updated with latest Borland C++ 2006 SP2 *
|
||||
* 2005.02.03 updated with latest zlib 1.2.2, thanks to Fabio Dell'Aria *
|
||||
* (www.eurekalog.com) for provide me the compiled objects *
|
||||
* zlib is compiled without crc32-compressBound *
|
||||
* 2003.12.18 updated with latest zlib 1.2.1 (see www.zlib.org) *
|
||||
* obj's compiled with fastest speed optimizations (bcc 5.6.4) *
|
||||
* (hint:see basm newsgroup about a Move RTL fast replacement) *
|
||||
* Thanks to Cosmin Truta for the pascal zlib reference *
|
||||
* *
|
||||
* 2002.11.02 ZSendToBrowser: deflate algorithm for HTTP1.1 compression *
|
||||
* 2002.10.24 ZFastCompressString and ZFastDecompressString:300% faster *
|
||||
* 2002.10.15 recompiled zlib 1.1.4 c sources with speed optimizations *
|
||||
* (and targeting 686+ cpu) and changes to accomodate Borland *
|
||||
* standards (C++ v5.6 compiler) *
|
||||
* 2002.10.15 optimized move mem for not aligned structures (strings,etc)*
|
||||
* 2002.10.15 little changes to avoid system unique string calls *
|
||||
* *
|
||||
* 2002.03.15 updated to zlib version 1.1.4 *
|
||||
* 2001.11.27 enhanced TZDecompressionStream.Read to adjust source *
|
||||
* stream position upon end of compression data *
|
||||
* fixed endless loop in TZDecompressionStream.Read when *
|
||||
* destination count was greater than uncompressed data *
|
||||
* 2001.10.26 renamed unit to integrate "nicely" with delphi 6 *
|
||||
* 2000.11.24 added soFromEnd condition to TZDecompressionStream.Seek *
|
||||
* added ZCompressStream and ZDecompressStream *
|
||||
* 2000.06.13 optimized, fixed, rewrote, and enhanced the zlib.pas unit *
|
||||
* included on the delphi cd (zlib version 1.1.3) *
|
||||
* *
|
||||
* acknowledgements *
|
||||
* erik turner Z*Stream routines *
|
||||
* david bennion finding the nastly little endless loop quirk with the *
|
||||
* TZDecompressionStream.Read method *
|
||||
* burak kalayci informing me about the zlib 1.1.4 update *
|
||||
*****************************************************************************}
|
||||
|
||||
unit zlib_external deprecated;
|
||||
|
||||
{$MESSAGE WARN '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> zlib_external <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> USE_ZLIB_EX <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ZLib, <20><>. <20><><EFBFBD><EFBFBD><EFBFBD> 11 Readme.txt'}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows,
|
||||
Sysutils,
|
||||
Classes;
|
||||
|
||||
const
|
||||
ZLIB_VERSION = '1.2.3'; //do not localize
|
||||
|
||||
type
|
||||
{$IF NOT DEFINED(TBytes)}
|
||||
TBytes = array of Byte;
|
||||
{$IFEND}
|
||||
|
||||
TZAlloc = function(opaque: Pointer; items, size: Integer): Pointer;
|
||||
TZFree = procedure(opaque, block: Pointer);
|
||||
TZCompressionLevel = (zcNone, zcFastest, zcDefault, zcMax);
|
||||
|
||||
// CG: Define old enum for compression level
|
||||
TCompressionLevel = (clNone = Integer(zcNone), clFastest, clDefault, clMax);
|
||||
|
||||
{** TZStreamRec ***********************************************************}
|
||||
|
||||
TZStreamRec = packed record
|
||||
next_in: PAnsiChar; // next input byte
|
||||
avail_in: Longint; // number of bytes available at next_in
|
||||
total_in: Longint; // total nb of input bytes read so far
|
||||
next_out: PAnsiChar; // next output byte should be put here
|
||||
avail_out: Longint; // remaining free space at next_out
|
||||
total_out: Longint; // total nb of bytes output so far
|
||||
msg: PAnsiChar; // last error message, NULL if no error
|
||||
state: Pointer; // not visible by applications
|
||||
zalloc: TZAlloc; // used to allocate the internal state
|
||||
zfree: TZFree; // used to free the internal state
|
||||
opaque: Pointer; // private data object passed to zalloc and zfree
|
||||
data_type: Integer; // best guess about the data type: ascii or binary
|
||||
adler: Longint; // adler32 value of the uncompressed data
|
||||
reserved: Longint; // reserved for future use
|
||||
end;
|
||||
|
||||
{** TCustomZStream ********************************************************}
|
||||
|
||||
TCustomZStream = class(TStream)
|
||||
private
|
||||
FStream: TStream;
|
||||
FStreamPos: Int64;
|
||||
FOnProgress: TNotifyEvent;
|
||||
FZStream: TZStreamRec;
|
||||
FBuffer: array[Word] of AnsiChar;
|
||||
protected
|
||||
constructor Create(stream: TStream);
|
||||
procedure DoProgress; dynamic;
|
||||
property OnProgress: TNotifyEvent read FOnProgress write FOnProgress;
|
||||
end;
|
||||
|
||||
// CG: Add alias of classname to old Zlib classname
|
||||
TCustomZLibStream = TCustomZStream;
|
||||
|
||||
{** TZCompressionStream ***************************************************}
|
||||
|
||||
TZCompressionStream = class(TCustomZStream)
|
||||
private
|
||||
function GetCompressionRate: Single;
|
||||
public
|
||||
constructor Create(dest: TStream; compressionLevel: TZCompressionLevel = zcDefault); overload;
|
||||
// CG: Add overloaded constructor for old parameter type and order
|
||||
constructor Create(compressionLevel: TCompressionLevel; dest: TStream); overload;
|
||||
destructor Destroy; override;
|
||||
function Read(var buffer; count: Longint): Longint; override;
|
||||
function Write(const buffer; count: Longint): Longint; override;
|
||||
function Seek(offset: Longint; origin: Word): Longint; override;
|
||||
property CompressionRate: Single read GetCompressionRate;
|
||||
property OnProgress;
|
||||
end;
|
||||
|
||||
// CG: Add alias of classname to old Zlib classname
|
||||
TCompressionStream = TZCompressionStream;
|
||||
|
||||
{** TZDecompressionStream *************************************************}
|
||||
|
||||
TZDecompressionStream = class(TCustomZStream)
|
||||
public
|
||||
constructor Create(source: TStream);
|
||||
destructor Destroy; override;
|
||||
function Read(var buffer; count: Longint): Longint; override;
|
||||
function Write(const buffer; count: Longint): Longint; override;
|
||||
function Seek(offset: Longint; origin: Word): Longint; override;
|
||||
property OnProgress;
|
||||
end;
|
||||
|
||||
// CG: Add alias of classname to old Zlib classname
|
||||
TDecompressionStream = TZDecompressionStream;
|
||||
|
||||
{** zlib public routines ****************************************************}
|
||||
|
||||
{*****************************************************************************
|
||||
* ZCompress *
|
||||
* *
|
||||
* pre-conditions *
|
||||
* inBuffer = pointer to uncompressed data *
|
||||
* inSize = size of inBuffer (bytes) *
|
||||
* outBuffer = pointer (unallocated) *
|
||||
* level = compression level *
|
||||
* *
|
||||
* post-conditions *
|
||||
* outBuffer = pointer to compressed data (allocated) *
|
||||
* outSize = size of outBuffer (bytes) *
|
||||
*****************************************************************************}
|
||||
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TZCompressionLevel = zcDefault); overload;
|
||||
|
||||
// CG: Add overload to take old enum type
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TCompressionLevel); overload;
|
||||
{$IF CompilerVersion >= 19}inline;{$IFEND}
|
||||
|
||||
{*****************************************************************************
|
||||
* ZDecompress *
|
||||
* *
|
||||
* pre-conditions *
|
||||
* inBuffer = pointer to compressed data *
|
||||
* inSize = size of inBuffer (bytes) *
|
||||
* outBuffer = pointer (unallocated) *
|
||||
* outEstimate = estimated size of uncompressed data (bytes) *
|
||||
* *
|
||||
* post-conditions *
|
||||
* outBuffer = pointer to decompressed data (allocated) *
|
||||
* outSize = size of outBuffer (bytes) *
|
||||
*****************************************************************************}
|
||||
|
||||
procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer = 0);
|
||||
|
||||
{** string routines *********************************************************}
|
||||
|
||||
function ZCompressStr(const s: string; level: TZCompressionLevel = zcDefault): TBytes; overload;
|
||||
// CG: Add overload to take old enum type
|
||||
function ZCompressStr(const s: string; level: TCompressionLevel): TBytes; overload;
|
||||
{$IF CompilerVersion >= 19}inline;{$IFEND}
|
||||
|
||||
function ZDecompressStr(const s: TBytes): string;
|
||||
|
||||
{** stream routines *********************************************************}
|
||||
|
||||
procedure ZCompressStream(inStream, outStream: TStream;
|
||||
level: TZCompressionLevel = zcDefault); overload;
|
||||
// CG: Add overload to take old enum type
|
||||
procedure ZCompressStream(inStream, outStream: TStream;
|
||||
level: TCompressionLevel); overload;
|
||||
{$IF CompilerVersion >= 19}inline;{$IFEND}
|
||||
|
||||
procedure ZDecompressStream(inStream, outStream: TStream);
|
||||
|
||||
// CG: Routines from old version of ZLib required for CodeGear backwards compatability
|
||||
function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer;
|
||||
procedure zlibFreeMem(AppData, Block: Pointer);
|
||||
|
||||
{** export routines ********************************************************}
|
||||
|
||||
function adler32(adler: LongInt; const buf: PChar; len: Integer): LongInt;
|
||||
procedure MoveI32(const Source; var Dest; Count: Integer);
|
||||
procedure ZSendToBrowser(var s: string);
|
||||
function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar; recsize: Integer): Integer;
|
||||
function DeflateInit2_(var strm: TZStreamRec; level: integer; method: integer; windowBits: integer; memLevel: integer; strategy: integer; version: PChar; recsize: integer): integer;
|
||||
function deflate(var strm: TZStreamRec; flush: Integer): Integer;
|
||||
function deflateEnd(var strm: TZStreamRec): Integer;
|
||||
function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer;
|
||||
function inflateInit2_(var strm: TZStreamRec; windowBits: integer; version: PChar; recsize: integer): integer;
|
||||
function inflate(var strm: TZStreamRec; flush: Integer): Integer;
|
||||
function inflateEnd(var strm: TZStreamRec): Integer;
|
||||
function inflateReset(var strm: TZStreamRec): Integer;
|
||||
|
||||
type
|
||||
EZLibError = class(Exception);
|
||||
EZCompressionError = class(EZLibError);
|
||||
EZDecompressionError = class(EZLibError);
|
||||
|
||||
const
|
||||
{** flush constants *******************************************************}
|
||||
|
||||
Z_NO_FLUSH = 0;
|
||||
Z_PARTIAL_FLUSH = 1;
|
||||
Z_SYNC_FLUSH = 2;
|
||||
Z_FULL_FLUSH = 3;
|
||||
Z_FINISH = 4;
|
||||
|
||||
{** return codes **********************************************************}
|
||||
|
||||
Z_OK = 0;
|
||||
Z_STREAM_END = 1;
|
||||
Z_NEED_DICT = 2;
|
||||
Z_ERRNO = (-1);
|
||||
Z_STREAM_ERROR = (-2);
|
||||
Z_DATA_ERROR = (-3);
|
||||
Z_MEM_ERROR = (-4);
|
||||
Z_BUF_ERROR = (-5);
|
||||
Z_VERSION_ERROR = (-6);
|
||||
|
||||
{** compression levels ****************************************************}
|
||||
|
||||
Z_NO_COMPRESSION = 0;
|
||||
Z_BEST_SPEED = 1;
|
||||
Z_BEST_COMPRESSION = 9;
|
||||
Z_DEFAULT_COMPRESSION = (-1);
|
||||
|
||||
{** compression strategies ************************************************}
|
||||
|
||||
Z_FILTERED = 1;
|
||||
Z_HUFFMAN_ONLY = 2;
|
||||
Z_DEFAULT_STRATEGY = 0;
|
||||
|
||||
{** data types ************************************************************}
|
||||
|
||||
Z_BINARY = 0;
|
||||
Z_ASCII = 1;
|
||||
Z_UNKNOWN = 2;
|
||||
|
||||
{** compression methods ***************************************************}
|
||||
|
||||
Z_DEFLATED = 8;
|
||||
|
||||
{** return code messages **************************************************}
|
||||
|
||||
_z_errmsg: array[0..9] of PChar = (
|
||||
'need dictionary', // Z_NEED_DICT (2) //do not localize
|
||||
'stream end', // Z_STREAM_END (1) //do not localize
|
||||
'', // Z_OK (0) //do not localize
|
||||
'file error', // Z_ERRNO (-1) //do not localize
|
||||
'stream error', // Z_STREAM_ERROR (-2) //do not localize
|
||||
'data error', // Z_DATA_ERROR (-3) //do not localize
|
||||
'insufficient memory', // Z_MEM_ERROR (-4)//do not localize
|
||||
'buffer error', // Z_BUF_ERROR (-5) //do not localize
|
||||
'incompatible version', // Z_VERSION_ERROR (-6)//do not localize
|
||||
''//do not localize
|
||||
);
|
||||
|
||||
ZLevels: array[TZCompressionLevel] of Shortint = (
|
||||
Z_NO_COMPRESSION,
|
||||
Z_BEST_SPEED,
|
||||
Z_DEFAULT_COMPRESSION,
|
||||
Z_BEST_COMPRESSION
|
||||
);
|
||||
|
||||
SZInvalid = 'Invalid ZStream operation!';
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
zlib_d2010 = 'zlib_d2010.dll';
|
||||
|
||||
//{** link zlib 1.2.3 **************************************************************}
|
||||
//{** bcc32 -c -6 -O2 -Ve -X -pr -a8 -b -d -k- -vi -tWM -r -RT- -ff *.c **}
|
||||
//
|
||||
//{$L Zlib/adler32.obj}
|
||||
//{$L Zlib/deflate.obj}
|
||||
//{$L Zlib/infback.obj}
|
||||
//{$L Zlib/inffast.obj}
|
||||
//{$L Zlib/inflate.obj}
|
||||
//{$L Zlib/inftrees.obj}
|
||||
//{$L Zlib/trees.obj}
|
||||
//{$L Zlib/compress.obj}
|
||||
//{$L Zlib/crc32.obj}
|
||||
|
||||
{*****************************************************************************
|
||||
* note: do not reorder the above -- doing so will result in external *
|
||||
* functions being undefined *
|
||||
*****************************************************************************}
|
||||
|
||||
{*********************** Peter Morris not aligned move **********************}
|
||||
|
||||
procedure MoveI32(const Source; var Dest; Count: Integer); register;
|
||||
asm
|
||||
cmp ECX,0
|
||||
Je @JustQuit
|
||||
push ESI
|
||||
push EDI
|
||||
mov ESI, EAX
|
||||
mov EDI, EDX
|
||||
@Loop:
|
||||
Mov AL, [ESI]
|
||||
Inc ESI
|
||||
mov [EDI], AL
|
||||
Inc EDI
|
||||
Dec ECX
|
||||
Jnz @Loop
|
||||
pop EDI
|
||||
pop ESI
|
||||
@JustQuit:
|
||||
end;
|
||||
{****************************************************************************}
|
||||
|
||||
{** deflate routines ********************************************************}
|
||||
|
||||
function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar;
|
||||
recsize: Integer): Integer; external zlib_d2010;
|
||||
|
||||
function DeflateInit2_(var strm: TZStreamRec; level: integer; method: integer; windowBits: integer;
|
||||
memLevel: integer; strategy: integer; version: PChar; recsize: integer): integer; external zlib_d2010;
|
||||
|
||||
function deflate(var strm: TZStreamRec; flush: Integer): Integer;
|
||||
external zlib_d2010;
|
||||
|
||||
function deflateEnd(var strm: TZStreamRec): Integer; external zlib_d2010;
|
||||
|
||||
{** inflate routines ********************************************************}
|
||||
|
||||
function inflateInit_(var strm: TZStreamRec; version: PChar;
|
||||
recsize: Integer): Integer; external zlib_d2010;
|
||||
|
||||
function inflateInit2_(var strm: TZStreamRec; windowBits: integer;
|
||||
version: PChar; recsize: integer): integer; external zlib_d2010;
|
||||
|
||||
function inflate(var strm: TZStreamRec; flush: Integer): Integer;
|
||||
external zlib_d2010;
|
||||
|
||||
function inflateEnd(var strm: TZStreamRec): Integer; external zlib_d2010;
|
||||
|
||||
function inflateReset(var strm: TZStreamRec): Integer; external zlib_d2010;
|
||||
|
||||
{** utility routines *******************************************************}
|
||||
|
||||
function adler32; external zlib_d2010;
|
||||
//function crc32; external;
|
||||
//function compressBound; external;
|
||||
|
||||
{** zlib function implementations *******************************************}
|
||||
|
||||
function zcalloc(opaque: Pointer; items, size: Integer): Pointer;
|
||||
begin
|
||||
GetMem(result, items * size);
|
||||
end;
|
||||
|
||||
procedure zcfree(opaque, block: Pointer);
|
||||
begin
|
||||
FreeMem(block);
|
||||
end;
|
||||
|
||||
{** c function implementations **********************************************}
|
||||
|
||||
procedure _memset(p: Pointer; b: Byte; count: Integer); cdecl;
|
||||
begin
|
||||
FillChar(p^, count, b);
|
||||
end;
|
||||
|
||||
procedure _memcpy(dest, source: Pointer; count: Integer); cdecl;
|
||||
begin
|
||||
Move(source^, dest^, count);
|
||||
end;
|
||||
|
||||
function _malloc(Size: Integer): Pointer; cdecl;
|
||||
begin
|
||||
GetMem(Result, Size);
|
||||
end;
|
||||
|
||||
procedure _free(Block: Pointer); cdecl;
|
||||
begin
|
||||
FreeMem(Block);
|
||||
end;
|
||||
|
||||
{** custom zlib routines ****************************************************}
|
||||
|
||||
function DeflateInit(var stream: TZStreamRec; level: Integer): Integer;
|
||||
begin
|
||||
result := DeflateInit_(stream, level, ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
function DeflateInit2(var stream: TZStreamRec; level, method, windowBits,
|
||||
memLevel, strategy: Integer): Integer;
|
||||
begin
|
||||
result := DeflateInit2_(stream, level, method, windowBits, memLevel, strategy, ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
function InflateInit(var stream: TZStreamRec): Integer;
|
||||
begin
|
||||
result := InflateInit_(stream, ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
function InflateInit2(var stream: TZStreamRec; windowBits: Integer): Integer;
|
||||
begin
|
||||
result := InflateInit2_(stream, windowBits, ZLIB_VERSION, SizeOf(TZStreamRec));
|
||||
end;
|
||||
|
||||
{****************************************************************************}
|
||||
|
||||
function ZCompressCheck(code: Integer): Integer;
|
||||
begin
|
||||
result := code;
|
||||
|
||||
if code < 0 then
|
||||
begin
|
||||
raise EZCompressionError.Create(_z_errmsg[2 - code]);
|
||||
end;
|
||||
end;
|
||||
|
||||
function ZDecompressCheck(code: Integer): Integer;
|
||||
begin
|
||||
Result := code;
|
||||
|
||||
if code < 0 then
|
||||
begin
|
||||
raise EZDecompressionError.Create(_z_errmsg[2 - code]);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TZCompressionLevel);
|
||||
const
|
||||
delta = 256;
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
begin
|
||||
FillChar(zstream, SizeOf(TZStreamRec), 0);
|
||||
|
||||
outSize := ((inSize + (inSize div 10) + 12) + 255) and not 255;
|
||||
GetMem(outBuffer, outSize);
|
||||
|
||||
try
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := outSize;
|
||||
|
||||
ZCompressCheck(DeflateInit(zstream, ZLevels[level]));
|
||||
|
||||
try
|
||||
while ZCompressCheck(deflate(zstream, Z_FINISH)) <> Z_STREAM_END do
|
||||
begin
|
||||
Inc(outSize, delta);
|
||||
ReallocMem(outBuffer, outSize);
|
||||
|
||||
zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
|
||||
zstream.avail_out := delta;
|
||||
end;
|
||||
finally
|
||||
ZCompressCheck(deflateEnd(zstream));
|
||||
end;
|
||||
|
||||
ReallocMem(outBuffer, zstream.total_out);
|
||||
outSize := zstream.total_out;
|
||||
except
|
||||
FreeMem(outBuffer);
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ZCompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer;
|
||||
level: TCompressionLevel);
|
||||
begin
|
||||
ZCompress(inBuffer, inSize, outBuffer, outSize, TZCompressionLevel(Integer(level)));
|
||||
end;
|
||||
|
||||
procedure ZCompress2(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer);
|
||||
const
|
||||
delta = 256;
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
begin
|
||||
FillChar(zstream, SizeOf(TZStreamRec), 0);
|
||||
|
||||
outSize := ((inSize + (inSize div 10) + 12) + 255) and not 255;
|
||||
GetMem(outBuffer, outSize);
|
||||
|
||||
try
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := outSize;
|
||||
|
||||
ZCompressCheck(DeflateInit2(zstream, 1, 8, -15, 9, 0));
|
||||
|
||||
try
|
||||
while ZCompressCheck(deflate(zstream, Z_FINISH)) <> Z_STREAM_END do
|
||||
begin
|
||||
Inc(outSize, delta);
|
||||
ReallocMem(outBuffer, outSize);
|
||||
|
||||
zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
|
||||
zstream.avail_out := delta;
|
||||
end;
|
||||
finally
|
||||
ZCompressCheck(deflateEnd(zstream));
|
||||
end;
|
||||
|
||||
ReallocMem(outBuffer, zstream.total_out);
|
||||
outSize := zstream.total_out;
|
||||
except
|
||||
FreeMem(outBuffer);
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure ZDecompress(const inBuffer: Pointer; inSize: Integer;
|
||||
out outBuffer: Pointer; out outSize: Integer; outEstimate: Integer);
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
delta: Integer;
|
||||
begin
|
||||
FillChar(zstream, SizeOf(TZStreamRec), 0);
|
||||
|
||||
delta := (inSize + 255) and not 255;
|
||||
|
||||
if outEstimate = 0 then outSize := delta
|
||||
else outSize := outEstimate;
|
||||
|
||||
GetMem(outBuffer, outSize);
|
||||
|
||||
try
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := outSize;
|
||||
|
||||
ZDecompressCheck(InflateInit(zstream));
|
||||
|
||||
try
|
||||
while ZDecompressCheck(inflate(zstream, Z_NO_FLUSH)) <> Z_STREAM_END do
|
||||
begin
|
||||
Inc(outSize, delta);
|
||||
ReallocMem(outBuffer, outSize);
|
||||
|
||||
zstream.next_out := PAnsiChar(Integer(outBuffer) + zstream.total_out);
|
||||
zstream.avail_out := delta;
|
||||
end;
|
||||
finally
|
||||
ZDecompressCheck(inflateEnd(zstream));
|
||||
end;
|
||||
|
||||
ReallocMem(outBuffer, zstream.total_out);
|
||||
outSize := zstream.total_out;
|
||||
except
|
||||
FreeMem(outBuffer);
|
||||
raise;
|
||||
end;
|
||||
end;
|
||||
|
||||
{** string routines *********************************************************}
|
||||
|
||||
function ZCompressStr(const s: string; level: TZCompressionLevel): TBytes;
|
||||
var
|
||||
buffer: Pointer;
|
||||
size: Integer;
|
||||
begin
|
||||
ZCompress(PChar(s), Length(s) * SizeOf(Char), buffer, size, level);
|
||||
SetLength(result, size);
|
||||
Move(buffer^, pointer(result)^, size);
|
||||
FreeMem(buffer);
|
||||
end;
|
||||
|
||||
function ZCompressStr(const s: string; level: TCompressionLevel): TBytes;
|
||||
begin
|
||||
Result := ZCompressStr(s, TZCompressionLevel(Integer(level)));
|
||||
end;
|
||||
|
||||
{$IF NOT DECLARED(ByteLength)}
|
||||
function ByteLength(const S: string): Integer;
|
||||
begin
|
||||
Result := Length(S) * SizeOf(Char);
|
||||
end;
|
||||
{$IFEND}
|
||||
|
||||
procedure ZSendToBrowser(var s: string);
|
||||
var
|
||||
outBuf: Pointer;
|
||||
outBytes: Integer;
|
||||
begin
|
||||
ZCompress2(pointer(s), ByteLength(s), outBuf, outBytes);
|
||||
SetLength(s, outBytes);
|
||||
Move(pointer(outBuf)^, pointer(s)^, outBytes);
|
||||
FreeMem(outBuf);
|
||||
end;
|
||||
|
||||
function ZDecompressStr(const s: TBytes): string;
|
||||
var
|
||||
buffer: Pointer;
|
||||
size: Integer;
|
||||
begin
|
||||
ZDecompress(Pointer(s), Length(s), buffer, size);
|
||||
SetLength(result, size div SizeOf(Char));
|
||||
Move(buffer^, pointer(result)^, size);
|
||||
FreeMem(buffer);
|
||||
end;
|
||||
|
||||
{** stream routines *********************************************************}
|
||||
|
||||
procedure ZCompressStream(inStream, outStream: TStream;
|
||||
level: TZCompressionLevel);
|
||||
const
|
||||
bufferSize = 32768;
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
zresult: Integer;
|
||||
inBuffer: array[0..bufferSize - 1] of AnsiChar;
|
||||
outBuffer: array[0..bufferSize - 1] of AnsiChar;
|
||||
inSize: Integer;
|
||||
outSize: Integer;
|
||||
begin
|
||||
FillChar(zstream, SizeOf(TZStreamRec), 0);
|
||||
|
||||
ZCompressCheck(DeflateInit(zstream, ZLevels[level]));
|
||||
|
||||
inSize := inStream.Read(inBuffer, bufferSize);
|
||||
|
||||
while inSize > 0 do
|
||||
begin
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
|
||||
repeat
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := bufferSize;
|
||||
|
||||
ZCompressCheck(deflate(zstream, Z_NO_FLUSH));
|
||||
|
||||
// outSize := zstream.next_out - outBuffer;
|
||||
outSize := bufferSize - zstream.avail_out;
|
||||
|
||||
outStream.Write(outBuffer, outSize);
|
||||
until (zstream.avail_in = 0) and (zstream.avail_out > 0);
|
||||
|
||||
inSize := inStream.Read(inBuffer, bufferSize);
|
||||
end;
|
||||
|
||||
repeat
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := bufferSize;
|
||||
|
||||
zresult := ZCompressCheck(deflate(zstream, Z_FINISH));
|
||||
|
||||
// outSize := zstream.next_out - outBuffer;
|
||||
outSize := bufferSize - zstream.avail_out;
|
||||
|
||||
outStream.Write(outBuffer, outSize);
|
||||
until (zresult = Z_STREAM_END) and (zstream.avail_out > 0);
|
||||
|
||||
ZCompressCheck(deflateEnd(zstream));
|
||||
end;
|
||||
|
||||
procedure ZCompressStream(inStream, outStream: TStream;
|
||||
level: TCompressionLevel);
|
||||
begin
|
||||
ZCompressStream(inStream, outStream, TZCompressionLevel(Integer(level)))
|
||||
end;
|
||||
|
||||
procedure ZDecompressStream(inStream, outStream: TStream);
|
||||
const
|
||||
bufferSize = 32768;
|
||||
var
|
||||
zstream: TZStreamRec;
|
||||
zresult: Integer;
|
||||
inBuffer: array[0..bufferSize - 1] of AnsiChar;
|
||||
outBuffer: array[0..bufferSize - 1] of AnsiChar;
|
||||
inSize: Integer;
|
||||
outSize: Integer;
|
||||
begin
|
||||
FillChar(zstream, SizeOf(TZStreamRec), 0);
|
||||
|
||||
ZCompressCheck(InflateInit(zstream));
|
||||
|
||||
inSize := inStream.Read(inBuffer, bufferSize);
|
||||
|
||||
while inSize > 0 do
|
||||
begin
|
||||
zstream.next_in := inBuffer;
|
||||
zstream.avail_in := inSize;
|
||||
|
||||
repeat
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := bufferSize;
|
||||
|
||||
ZCompressCheck(inflate(zstream, Z_NO_FLUSH));
|
||||
|
||||
// outSize := zstream.next_out - outBuffer;
|
||||
outSize := bufferSize - zstream.avail_out;
|
||||
|
||||
outStream.Write(outBuffer, outSize);
|
||||
until (zstream.avail_in = 0) and (zstream.avail_out > 0);
|
||||
|
||||
inSize := inStream.Read(inBuffer, bufferSize);
|
||||
end;
|
||||
|
||||
repeat
|
||||
zstream.next_out := outBuffer;
|
||||
zstream.avail_out := bufferSize;
|
||||
|
||||
zresult := ZCompressCheck(inflate(zstream, Z_FINISH));
|
||||
|
||||
// outSize := zstream.next_out - outBuffer;
|
||||
outSize := bufferSize - zstream.avail_out;
|
||||
|
||||
outStream.Write(outBuffer, outSize);
|
||||
until (zresult = Z_STREAM_END) and (zstream.avail_out > 0);
|
||||
|
||||
ZCompressCheck(inflateEnd(zstream));
|
||||
end;
|
||||
|
||||
{** TCustomZStream **********************************************************}
|
||||
|
||||
constructor TCustomZStream.Create(stream: TStream);
|
||||
begin
|
||||
inherited Create;
|
||||
FStream := stream;
|
||||
FStreamPos := stream.Position;
|
||||
end;
|
||||
|
||||
procedure TCustomZStream.DoProgress;
|
||||
begin
|
||||
if Assigned(FOnProgress) then FOnProgress(Self);
|
||||
end;
|
||||
|
||||
{** TZCompressionStream *****************************************************}
|
||||
|
||||
constructor TZCompressionStream.Create(dest: TStream;
|
||||
compressionLevel: TZCompressionLevel);
|
||||
begin
|
||||
inherited Create(dest);
|
||||
|
||||
FZStream.next_out := FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
|
||||
ZCompressCheck(DeflateInit(FZStream, ZLevels[compressionLevel]));
|
||||
end;
|
||||
|
||||
constructor TZCompressionStream.Create(compressionLevel: TCompressionLevel; dest: TStream);
|
||||
begin
|
||||
Create(dest, TZCompressionLevel(Byte(compressionLevel)));
|
||||
end;
|
||||
|
||||
destructor TZCompressionStream.Destroy;
|
||||
begin
|
||||
FZStream.next_in := nil;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
try
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
while ZCompressCheck(deflate(FZStream, Z_FINISH)) <> Z_STREAM_END do
|
||||
begin
|
||||
FStream.WriteBuffer(FBuffer, SizeOf(FBuffer) - FZStream.avail_out);
|
||||
|
||||
FZStream.next_out := FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
end;
|
||||
|
||||
if FZStream.avail_out < SizeOf(FBuffer) then
|
||||
begin
|
||||
FStream.WriteBuffer(FBuffer, SizeOf(FBuffer) - FZStream.avail_out);
|
||||
end;
|
||||
finally
|
||||
deflateEnd(FZStream);
|
||||
end;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TZCompressionStream.Read(var buffer; count: Longint): Longint;
|
||||
begin
|
||||
raise EZCompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZCompressionStream.Write(const buffer; count: Longint): Longint;
|
||||
begin
|
||||
FZStream.next_in := @buffer;
|
||||
FZStream.avail_in := count;
|
||||
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
while FZStream.avail_in > 0 do
|
||||
begin
|
||||
ZCompressCheck(deflate(FZStream, Z_NO_FLUSH));
|
||||
|
||||
if FZStream.avail_out = 0 then
|
||||
begin
|
||||
FStream.WriteBuffer(FBuffer, SizeOf(FBuffer));
|
||||
|
||||
FZStream.next_out := FBuffer;
|
||||
FZStream.avail_out := SizeOf(FBuffer);
|
||||
|
||||
FStreamPos := FStream.Position;
|
||||
|
||||
DoProgress;
|
||||
end;
|
||||
end;
|
||||
|
||||
result := Count;
|
||||
end;
|
||||
|
||||
function TZCompressionStream.Seek(offset: Longint; origin: Word): Longint;
|
||||
begin
|
||||
if (offset = 0) and (origin = soFromCurrent) then
|
||||
begin
|
||||
result := FZStream.total_in;
|
||||
end
|
||||
else raise EZCompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZCompressionStream.GetCompressionRate: Single;
|
||||
begin
|
||||
if FZStream.total_in = 0 then result := 0
|
||||
else result := (1.0 - (FZStream.total_out / FZStream.total_in)) * 100.0;
|
||||
end;
|
||||
|
||||
{** TZDecompressionStream ***************************************************}
|
||||
|
||||
constructor TZDecompressionStream.Create(source: TStream);
|
||||
begin
|
||||
inherited Create(source);
|
||||
FZStream.next_in := FBuffer;
|
||||
FZStream.avail_in := 0;
|
||||
ZDecompressCheck(InflateInit(FZStream));
|
||||
end;
|
||||
|
||||
destructor TZDecompressionStream.Destroy;
|
||||
begin
|
||||
inflateEnd(FZStream);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.Read(var buffer; count: Longint): Longint;
|
||||
var
|
||||
zresult: Integer;
|
||||
begin
|
||||
FZStream.next_out := @buffer;
|
||||
FZStream.avail_out := count;
|
||||
|
||||
if FStream.Position <> FStreamPos then FStream.Position := FStreamPos;
|
||||
|
||||
zresult := Z_OK;
|
||||
|
||||
while (FZStream.avail_out > 0) and (zresult <> Z_STREAM_END) do
|
||||
begin
|
||||
if FZStream.avail_in = 0 then
|
||||
begin
|
||||
FZStream.avail_in := FStream.Read(FBuffer, SizeOf(FBuffer));
|
||||
|
||||
if FZStream.avail_in = 0 then
|
||||
begin
|
||||
result := count - FZStream.avail_out;
|
||||
|
||||
Exit;
|
||||
end;
|
||||
|
||||
FZStream.next_in := FBuffer;
|
||||
FStreamPos := FStream.Position;
|
||||
|
||||
DoProgress;
|
||||
end;
|
||||
|
||||
zresult := ZDecompressCheck(inflate(FZStream, Z_NO_FLUSH));
|
||||
end;
|
||||
|
||||
if (zresult = Z_STREAM_END) and (FZStream.avail_in > 0) then
|
||||
begin
|
||||
FStream.Position := FStream.Position - FZStream.avail_in;
|
||||
FStreamPos := FStream.Position;
|
||||
|
||||
FZStream.avail_in := 0;
|
||||
end;
|
||||
|
||||
result := count - FZStream.avail_out;
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.Write(const Buffer; Count: Longint): Longint;
|
||||
begin
|
||||
raise EZDecompressionError.Create(SZInvalid);
|
||||
end;
|
||||
|
||||
function TZDecompressionStream.Seek(Offset: Longint; Origin: Word): Longint;
|
||||
var
|
||||
buf: array[0..8191] of Char;
|
||||
i: Integer;
|
||||
begin
|
||||
if (offset = 0) and (origin = soFromBeginning) then
|
||||
begin
|
||||
ZDecompressCheck(inflateReset(FZStream));
|
||||
|
||||
FZStream.next_in := FBuffer;
|
||||
FZStream.avail_in := 0;
|
||||
|
||||
FStream.Position := 0;
|
||||
FStreamPos := 0;
|
||||
end
|
||||
else if ((offset >= 0) and (origin = soFromCurrent)) or
|
||||
(((offset - FZStream.total_out) > 0) and (origin = soFromBeginning)) then
|
||||
begin
|
||||
if origin = soFromBeginning then Dec(offset, FZStream.total_out);
|
||||
|
||||
if offset > 0 then
|
||||
begin
|
||||
for i := 1 to offset div SizeOf(buf) do ReadBuffer(buf, SizeOf(buf));
|
||||
ReadBuffer(buf, offset mod SizeOf(buf));
|
||||
end;
|
||||
end
|
||||
else if (offset = 0) and (origin = soFromEnd) then
|
||||
begin
|
||||
while Read(buf, SizeOf(buf)) > 0 do ;
|
||||
end
|
||||
else raise EZDecompressionError.Create(SZInvalid);
|
||||
|
||||
result := FZStream.total_out;
|
||||
end;
|
||||
|
||||
function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer;
|
||||
{$IFDEF MSWINDOWS}
|
||||
register;
|
||||
{$ENDIF}
|
||||
{$IFDEF LINUX}
|
||||
cdecl;
|
||||
{$ENDIF}
|
||||
begin
|
||||
Result := AllocMem(Items * Size);
|
||||
end;
|
||||
|
||||
procedure zlibFreeMem(AppData, Block: Pointer);
|
||||
{$IFDEF MSWINDOWS}
|
||||
register;
|
||||
{$ENDIF}
|
||||
{$IFDEF LINUX}
|
||||
cdecl;
|
||||
{$ENDIF}
|
||||
begin
|
||||
FreeMem(Block);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
Reference in New Issue
Block a user