Delphi Zip Component ZipForge

program addfromstream;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, ZipForge;


var
  Archiver: TZipForge;
  fs: TStream;
begin
  // create ZipForge object
  Archiver := TZipForge.Create(nil);
  // create a file stream
  fs := TFileStream.Create('c:\file.txt', fmOpenRead);
  try
    // set the archive file name
    Archiver.FileName := 'c:\test.zip';
    // create a new archive file
    Archiver.OpenArchive(fmCreate);
    // save data from the file stream into "data.txt" file inside the archive
    Archiver.AddFromStream('data.txt', fs);
    // close archive
    Archiver.CloseArchive();
  except
     on E: Exception do
     begin
       Writeln('Error: ' + E.Message);
     end;
  end;
  fs.Free;
  Archiver.Free;
end.