ZIP / 7Z / RAR-Komponente mit Metadatenverschlüsselung

[DieDolly]

Den MemoryStream brauchst du nicht. Ein Dateiname (string) reicht.

So ist es meiner Meinung nach eleganter

Delphi-Quellcode:

var
 ArchiveFormat : TJCLUpdateArchiveClass;
 Archive: TJclUpdateArchive;
begin
 ArchiveFormat := GetArchiveFormats.FindUpdateFormat('C:\1.7z');

if ArchiveFormat <> nil then
 begin
  Archive := aCompressFormat.Create('C:\1.7z');