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

* sync

Browse Source 
git-svn-id: trunk@6483 -
This commit is contained in:
peter 2007-02-13 23:02:12 +00:00
parent 397f5ea204
commit 429f66b4ee
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fppkg/fcl20/zipper.pp
View File

@ -1313,10 +1313,14 @@ Var
Count : Longint; Count : Longint;
CRC : LongWord; CRC : LongWord;
ZMethod : Word; ZMethod : Word;
OutputFileName : string;
Begin Begin
Try Try
ReadZipHeader(Item,CRC,ZMethod); ReadZipHeader(Item,CRC,ZMethod);
OpenOutput(FOutputPath+Item.Name); OutputFileName:=Item.Name;
if FOutputPath<>'' then
OutputFileName:=IncludeTrailingPathDelimiter(FOutputPath)+OutputFileName;
OpenOutput(OutputFileName);
if ZMethod=0 then if ZMethod=0 then
begin begin
Count:=FOutFile.CopyFrom(FZipFile,LocalHdr.Compressed_Size); Count:=FOutFile.CopyFrom(FZipFile,LocalHdr.Compressed_Size);