Patch zipper.pp for create zip file output to TStream support.
Original Reporter info from Mantis: xmen
-
Reporter name:
Original Reporter info from Mantis: xmen
- Reporter name:
Description:
Examples
Create zip file named as parameter 1 from files entered as rest parameters.
uses
Zipper;
var
Zipper: TZipper;
begin
Zipper := TZipper.Create;
try
Zipper.FileName := ParamStr(1);
for I := 2 to ParamCount do
Zipper.Entries.AddFileEntry(ParamStr(I), ParamStr(I));
Zipper.ZipAllFiles;
finally
Zipper.Free;
end;
end.
Create zip file to memory stream from files entered as rest parameters.
uses
Zipper;
var
Zipper: TZipper;
MemStream:TMemoryStream;
begin
MemStream:=TMemoryStream.Create;
Zipper := TZipper.Create;
try
Zipper.OutputToStream := True;
Zipper.OutputStream := MemStream;
for I := 2 to ParamCount do
Zipper.Entries.AddFileEntry(ParamStr(I), ParamStr(I));
Zipper.ZipAllFiles;
finally
Zipper.Free;
end;
MemStream.Free;
end.
Mantis conversion info:
- Mantis ID: 19986
- Fixed in version: 2.6.0
- Fixed in revision: 19140 (#55ab2b41)