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

[himitsu]

Und noch etwas zum ersten Post

Zitat:

Delphi-Quellcode:

function ProgressCallback(Sender: Pointer; Total: Boolean; Value: Int64): HRESULT; stdcall;
begin
 BytesCopied := Value; // Test

 if Total then
  Form1.ProgressBar1.Max := 100
 else
  Form1.ProgressBar1.Position := GetPercent(BytesToCopy, BytesCopied);

 Result := S_OK;
end;

Arch.SetProgressCallback(nil, ProgressCallback);

Rate mal, warum solche Funktionen fast immer sowas wie einen frei benutzbaren "Data"-Parameter besitzen?

Delphi-Quellcode:

function ProgressCallback(Sender: Pointer; Total: Boolean; Value: Int64): HRESULT; stdcall;
begin
 //if Total then
 //  TForm1(Sender).ProgressBar1.Max := 100
 //else
 //  TForm1(Sender).ProgressBar1.Position := GetPercent(BytesToCopy, Value);

 if Total then begin
   TForm1(Sender).FBytesToCopy := Value;
   TForm1(Sender).ProgressBar1.Max := 100;
 end else
   TForm1(Sender).ProgressBar1.Position := GetPercent(TForm1(Sender).FBytesToCopy, Value);

 Result := S_OK;
end;

Arch.SetProgressCallback(Pointer(Form1), ProgressCallback);

[EdAdvokat]

Hallo zusammen,
eure Diskussion finde ich recht interessant, auch wenn ich selbst da nicht so der Fuchs bin.
Ich habe da mal so einiges zu 7zip recherchiert und bin da auf folgenden Beitrag aus der DP gestoßen.
Möglicherweise hilft der etwas weiter. Der Motzi hat im #17 ein Demoprogramm gepostet, das euch möglicherweise
weiter bringen könnte.

Wenn es völlig daneben sein sollte, bitte Entschuldigung.

https://www.delphipraxis.net/108543-...einbinden.html

Bei Torry.net habe ich auch noch was gefunden. Ist leider auch nicht ganz neu:

https://torry.net/quicksearchd.php?S...nzip&Title=Yes

[DieDolly]

Kann man mit dem I7zWriter von mormot auch leere Verzeichnisse ins Archiv einbringen?

Ich verzweifle da gerade dran.

Delphi-Quellcode:

   libWriter.AddFile('1\1 2 3.txt', '1\1 2 3.txt');
   libWriter.AddFile('empty123', 'empty123');
   libWriter.SaveToFile(FileName);

Am Ende ist nur die Textdatei im Archiv.

[mytbo]

Zitat von DieDolly:

Kann man mit dem I7zWriter von mormot auch leere Verzeichnisse ins Archiv einbringen?

Ja, aber zur Zeit nur so: libWriter.AddStream(TRawByteStringStream.Create(''), soOwned, faDirectory, 0, 0, 'TestFolder', True, False); Ich schreibe einen Request für eine Änderung.

Bis bald...
Thomas

[DieDolly]

Wow ok das muss ich nach der Arbeit testen.

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?

[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.