This sample shows how to add a data from a stream into a ZIP archive.
Download ZipForge | Learn More | All Delphi samples
program addfromstream;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, ZipForge;
var
Archiver: TZipForge;
fs: TStream;
begin
Archiver := TZipForge.Create(nil);
fs := TFileStream.Create('c:\file.txt', fmOpenRead);
try
Archiver.FileName := 'c:\test.zip';
Archiver.OpenArchive(fmCreate);
Archiver.AddFromStream('data.txt', fs);
Archiver.CloseArchive();
except
on E: Exception do
begin
Writeln('Error: ' + E.Message);
end;
end;
fs.Free;
Archiver.Free;
end.
Download ZipForge | Learn More | All Delphi samples
|
|
|
Current version: 6.95
Released: January 21, 2019
Price: $ 69
 
|
|
The other people in the office didn't believe me when I said that all I had to do was document the problem and you would probably give me a fix overnight. Unbelievable! Keep up the great work. I hope you guys all make a fortune out of this product because it is truly fantastic and the support is the best I have ever encountered.
Mark Kefford
|
|
|