This sample shows how to work with file and archive comments.
Download ZipForge | Learn More | All Delphi samples
program comments;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, ZipForge;
var
Archiver: TZipForge;
fs: TStream;
ai: TZFArchiveItem;
begin
Archiver := TZipForge.Create(nil);
try
Archiver.FileName := 'c:\test.zip';
Archiver.OpenArchive(fmCreate);
Archiver.Comment := 'archive comment';
Archiver.AddFiles('c:\file.txt');
Archiver.ChangeFilesComment('file.txt', 'file comment');
Archiver.AddFiles('c:\file1.txt');
Archiver.ChangeFilesComment('file1.txt', 'file1 comment');
Archiver.CloseArchive();
Archiver.OpenArchive;
if Archiver.FindFirst('*.*', ai) then
repeat
WriteLn(ai.FileName + ' ' + ai.Comment);
until not Archiver.FindNext(ai);
ReadLn;
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
|
|
Thanks again for the superb tech support, I was worried I'd hit a brick wall this close to the finish line. Even working on the weekend... you guys rock!!!
Bob Boyd
|
|
|