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

[DieDolly]

ZIP 6.2.0 ist von 2004. Es muss wohl einen grund haben, weshalb auch die aktuellste 7z.dll das nicht unterstützt.

Zitat:

Wer weiß eine Komponente, welche ZIP ab 6.2 oder 7Z mit METADATENVERSCHLÜSSELUNG beim Packen und Entpacken unterstützt?

Steht doch oben. Jedi JCL. Aber nur 7z mit Metadatenverschlüsselung. ZIP ohne. ZIP und Metadatenverschlüsselung habe ich noch nie gesehen.

Zitat:

Oder habe ich was übersehen?

JclCompression.pas.

[swestner]

7z mit Metadatenverschlüsselung ist für mich absolut OK.

Ich habe das wohl in der Jedi JCL übersehen.

Ich suche nochmals.

DOer hat jemand gerade den entsprechenden Aufruf zur Hand wie unter JCLCompression ein 7z erstellt wird mit Verschlüsselung der Metadaten?

Danke

Stefan Westner

[swestner]

OK, habe ich tatsächlich übersehen:

procedure TForm1.Button2Click(Sender: TObject);
var
Archive : TJcl7zCompressArchive;
m: TMemoryStream;
begin
m:=TMemoryStream.Create;
Archive := TJcl7zCompressArchive.Create(m,0,False);
try
Archive.AddFile('Stream0','t:\Versuchsprojekte\7Zi p\_sevenzip.pas' );
---> Archive.SetEncryptHeader(True);
Archive.Password:='password';
Archive.Compress;
m.SaveToFile('t:\1.7z');
finally
Archive.Free;
m.Free;
end;
end;


Problem gelöst.

[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');