This sample demonstrates how easy it is to zip a stream with ZipForge
Download ZipForge | Learn More | All Delphi samples
program ZipStream;
{$APPTYPE CONSOLE}
uses
SysUtils, ZipForge, Classes;
var
archiver : TZipForge;
fileStream : TFileStream;
begin
archiver := TZipForge.Create(nil);
try
with archiver do
begin
FileName := 'C:\test.zip';
OpenArchive(fmCreate);
BaseDir := 'C:\';
fileStream := TFileStream.Create('C:\test.txt', fmOpenReadWrite);
AddFromStream('anothername.txt', fileStream);
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
Readln;
end;
end;
end.
Download ZipForge | Learn More | All Delphi samples |
|
|
Current version: 6.95
Released: January 21, 2019
Price: $ 69
|
|
We made three requests of the technical support personnel and despite the fact that these were all implementation questions (not bugs in their software) we received support within 24 hours. It is rare to get such good customer support these days and I really appreciate everything ComponentAce has done for us.
Jason Goodridge, Development Manager
|
|
|