On 07/14/2016 08:31 AM, Bo Berglund wrote:
[...]
But this line:
OurZipper.Entries.AddFileEntry(ParamStr(I), ParamStr(I));
seems to add the files to zip into some kind of internal list.
Why does it take the same argument twice?
i found the following in the interface section of zipper.pp
TZipFileEntries = Class(TCollection)
private
function GetZ(AIndex : Integer): TZipFileEntry;
procedure SetZ(AIndex : Integer; const AValue: TZipFileEntry);
Public
Function AddFileEntry(Const ADiskFileName : String): TZipFileEntry;
Function AddFileEntry(Const ADiskFileName, AArchiveFileName : String):
TZipFileEntry;
Function AddFileEntry(Const AStream : TSTream; Const AArchiveFileName :
String): TZipFileEntry;
Procedure AddFileEntries(Const List : TStrings);
Property Entries[AIndex : Integer] : TZipFileEntry Read GetZ Write SetZ;
default;
end;
looks to me like you can zip a disk file or a stream... inside the archive, it
appears that each file can have a name... makes sense to use the disk file name
as the internal file name... also gives a way for a stream to have a name once
archived into the zip...
--
NOTE: No off-list assistance is given without prior approval.
*Please keep mailing list traffic on the list* unless
private contact is specifically requested and granted.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
