This sample shows how to create a ZIP archive in a stream.
Download ZipForge | Learn More | All Delphi samples
program zipinstream;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
ZipForge;
var
Archiver: TZipForge;
ms: TMemoryStream;
begin
Archiver := TZipForge.Create(nil);
ms := TMemoryStream.Create;
try
Archiver.OpenArchive(ms, True);
Archiver.AddFiles('c:\file.txt');
Archiver.CloseArchive();
except
on E: Exception do
begin
Writeln('Error: ' + E.Message);
end;
end;
ms.Free;
Archiver.Free;
end.
Download ZipForge | Learn More | All Delphi samples
|
|
|
Current version: 6.95
Released: January 21, 2019
Price: $ 69
|
|
Component Ace is all that it advertises. It is easy to implement and is very fast.
In addition, the customer support is the best I have ever had. All my questions were answered within hours, often immediately. The responses also answered my questions, no need for followup emails.
If your application needs the functionality that Component Ace provides, search no further.
Linda Murphy
|
|
|