Auf die Schnelle konnte ich jetzt nicht herausfinden, wie man Dateien zu einem bereits bestehenden Archiv hinzufügt. Ist das in mormot auch implementiert?
Ja, einfach so:
Delphi-Quellcode:
var zipFileName: TFileName := MakePath([Executable.ProgramFilePath, 'TestDaten.7z']);
var isFileAvailable: Boolean := FileExists(zipFileName);
if isFileAvailable then
libWriter := New7zWriter(zipFileName, fh7z)
else
libWriter := New7zWriter(fh7z);
Auf das Speichern mit SaveToFile musst du warten, bis Arnaud meinen Request eingepflegt hat. Schaue einfach bei GitHub auf die
Commits. Als Behelf für die Zwischenzeit:
Delphi-Quellcode:
if isFileAvailable then
begin
var stream: TFileStream := TFileStream.Create(zipFileName, fmOpenWrite or fmShareDenyNone);
try
libWriter.SaveToStream(stream);
finally
stream.Free;
end;
end
else
libWriter.SaveToFile(zipFileName);
Bis bald...
Thomas