Browse Source

* sync

git-svn-id: trunk@6483 -
peter 18 years ago
parent
commit
429f66b4ee
1 changed files with 5 additions and 1 deletions
  1. 5 1
      utils/fppkg/fcl20/zipper.pp

+ 5 - 1
utils/fppkg/fcl20/zipper.pp

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