paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 22:25:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix unzipping of all files

Browse Source 
* create outputdirectory if it doesn't exists

git-svn-id: trunk@9235 -
This commit is contained in:
peter 2007-11-13 18:47:45 +00:00
parent ebbb2db336
commit 80008b5146
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/paszlib/src/zipper.pp
View File

@ -1232,6 +1232,7 @@ End;
Function TUnZipper.OpenOutput(OutFileName : String) : Boolean;
Begin
ForceDirectories(ExtractFilePath(OutFileName));
FOutFile:=TFileStream.Create(OutFileName,fmCreate);
Result:=True;
If Assigned(FOnStartFile) then
@ -1358,17 +1359,18 @@ Procedure TUnZipper.UnZipAllFiles;
Var
Item : TZipItem;
I : Integer;
AllFiles : Boolean;
Begin
FUnZipping:=True;
Try
AllFiles:=(FFiles.Count=0);
OpenInput;
Try
ReadZipDirectory;
For I:=0 to FZipEntries.Count-1 do
begin
Item:=TZipItem(FZipEntries[i]);
if (FFiles=nil) or
if AllFiles or
(FFiles.IndexOf(Item.Name)<>-1) then
UnZipOneFile(Item);
end;