d7zip / sevenzip.pas von mail2nnv - Fragen zur Funktionsweise, DictionarySize, ...

[mytbo]

Zitat von DieDolly:

Ich habe auch eine Änderung an der win7zip Datei vorgenommen, eigentlich sogar zwei. Ich bin aber nicht bei GitHub und kenne mich damit nicht aus. Kann ich die Änderungen auch hier reinschreiben?

Mein Workaround ist nicht mehr notwendig. Arnaud hat den Request schon eingepflegt. Du kannst eine Anfrage im Forum stellen und das ist das Ergebnis. Meine Erfahrung: Ist eine Funktion sinnvoll, wird sie auch integriert. mORMot unterstützt mehrere Plattformen, Delphi und FPC Versionen, da lässt sich nicht jeder Wunsch erfüllen. Fragen kostet aber nichts.

Bis bald...
Thomas

[DieDolly]

Mir ist eben noch aufgefallen... wenn man die Komprimierung abbricht und im OnProgress mit Result := ERROR_OPERATION_ABORTED; reagiert, wirft libWriter.SaveToFile() eine Exception. Unbehandelt führt das dazu, dass der Code der folgt nicht ausgeführt wird.

Notlösung?

Delphi-Quellcode:

try
 libWriter.SaveToFile(...);
except
// ?
end;

Auch aufgefallen:
wenn die ausgewähilte CompressionMethod funktionieren soll, darf man erst das CompressionLevel setzen, dann die CompressionMethod. Kommt MultiThreading dazu, muss das noch vor CompressionLevel gesetzt werden. Sonst wird immer LZMA benutzt.

[himitsu]

Zitat von DieDolly:

führt das dazu, dass der Code der folgt nicht ausgeführt wird.

Das ist im Prinzip auch ein vollkommen korrektes Verhalten.

Gut, man könnte stattdessen auch der Funktionen z.B. ein Boolean-Result verpassen, aber da eh niemals jemand Rückgabewerte wirft, ist es so natürlich besser.
Auch lässt sich so "direkt" der Abbruchgrund mitgeben.


Die Arbeit danach fortzusetzen ist natürlich meistens sinnlos, da ja etwas fehlt, bzw. unfertig ist,
also wenn es nur darum geht, anschließend ordentlich aufzuräumen, dann ist die richtige Lösung allerdings ein Try-Finally.
Aber da das Try-Finally sowieso immer in einen ordentlichen Code gehört (nicht nur bei so einem absichtlich herbeigerufenem "Fehler"), hätte es eh schon längst vorhanden sein müssen und bedürfte garnicht erst dieser "neuen" Erkenntnis.

[DieDolly]

Ich kann leider nicht alles was nach libWriter.SaveToFile(...); folgt ins try-finally packen. Alles was nach dem finally-end kommt, welches nach libWriter.SaveToFile(...); kommt, wird ignoriert.
ein großes try-finally um den gesamten Codeblock sieht auch doof aus. Die procedur ist rund 500 Zeilen lang. Man könnte auch sagen, mache die kürzer. Geht aber auch nicht. Muss halt damit leben, dass es nicht ein einziges try-finally gibt.

[mytbo]

Zitat von DieDolly:

... wenn man die Komprimierung abbricht und im OnProgress mit Result := ERROR_OPERATION_ABORTED; reagiert, wirft libWriter.SaveToFile() eine Exception.

Das ist so implementiert. Die Stelle ist mit E7Zip.CheckOk gesichert. Alles ungleich S_OK wirft eine Exception. Nach kurzer Durchsicht würde ich sagen, Abbruch ist nicht vorgesehen. An die Stelle, an der es erfolgen müsste, kommt man ohne ein Umschreiben nicht ran. Stelle eine Anfrage nach dieser Funktionalität im Forum. Ich selbst verwende durchgehend die mORMot ZIP Klassen.

Bis bald...
Thomas

[mytbo]

Mit Commit 0c410f2 funktioniert auch AddFiles wie es soll:

Delphi-Quellcode:

libWriter.AddFiles('c:\mORMot2\src\', '', '*', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*.pas', True);
libWriter.AddFiles('c:\mORMot2\src\', 'mORMot_2023-05-05', '*.pas;*.inc', True);

Damit sieht die Verzeichnisstruktur in der 7z-Datei wie folgt aus:

Code:

mORMot_2023-05-05\app
mORMot_2023-05-05\core
...

Die Größe der gepackten Datei ist ca. 3MB. Das Packen mit Level 3 dauert kleiner 1 Sekunde.

Bis bald...
Thomas

[DieDolly]

Das Projekt und die Mitwirkenden sind der Wahnsinn. Ich muss mir bei Gelegenheit mal die anderen Proceduren der Bibliothek angucken.
Auf die Schnelle konnte ich jetzt nicht herausfinden, wie man Dateien zu einem bereits bestehenden Archiv hinzufügt. Ist das in mormot auch implementiert?

[Alter Mann]

Zitat:

Das Projekt und die Mitwirkenden sind der Wahnsinn

Da Frage ich mich, habe ich was verpasst?

Das ist mir irgendwie alles unklar, in den 'jedi'es sind andere werte deklariert als in (ja, welche nutzen wir hier?); die original (himi..) sind es nicht, denn die haben noch andere???

[mytbo]

Zitat von DieDolly:

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

[mytbo]

Mit mORMot Commit 5431 (c87fb80) funktioniert auch SaveToFile wie es soll:

Delphi-Quellcode:

procedure SaveFolderTo7Zip(const pmcFolder, pmcZipFileName: TFileName;
  const pmcZipInternalDir: TFileName = ''; const pmcFileMask: TFileName = '*';
  pmNewFile: Boolean = False; const pmOnProgress: T7zProgressCallback = Nil);
var
  libWriter: I7zWriter;
begin
  if not pmNewFile
    and FileExists(pmcZipFileName) then
  begin
    libWriter := New7zWriter(pmcZipFileName, fh7z)
  end
  else
    libWriter := New7zWriter(fh7z);

  libWriter.SetCompressionLevel(3);
  if Assigned(pmOnProgress) then
    libWriter.SetProgressCallback(pmOnProgress);

  libWriter.AddFiles(pmcFolder, pmcZipInternalDir, pmcFileMask, True);
  libWriter.SaveToFile(pmcZipFileName);
end;

var
  zipFileName: TFileName;
begin
  zipFileName := MakePath([Executable.ProgramFilePath, 'TestMultiData.7z']);
  var timer: TPrecisionTimer;
  timer.Start;
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-01', '*.pas;*.inc', {pmNewFile=}True);
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-02', '*.pas;*.inc');
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-03', '*.pas;*.inc');
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-04', '*.pas;*.inc');
  SaveFolderTo7Zip('c:\mORMot2\src\', zipFileName, 'mORMot_2023-05-05', '*.pas;*.inc');
  ShowMessage(timer.Stop);
end;

Die Größe der gepackten Datei ist ca. 15MB. Das Packen mit Kompressionslevel 3 dauert kleiner 5 Sekunden. Es ist ein guter Kompromiss. Mit Level 5 schrumpft die Größe um ca. 18%, dafür dauert das Packen Faktor 3,5 länger.

Bis bald...
Thomas