Discussion :

[dennler]

Bonjour,
Je désire tester la présence d'un mot de passe avant la décompression d'un fichier .ZIP
J'utilise sous Delphi 7 le composant SevenZip. Comment faire ?
Traitement d'un fichier extrait du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
// =========================
Procedure Traite_7Z;
  Var
    I : Integer;
      Begin
        Try
        //sevenzip1.Files.Clear;
        SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0,clAqua);// Bleu
        sevenzip1.SZFileName:=FICHIER_ZIP;
        // -----------------
        INFO:='Je décompacte '+  FICHIER_ZIP+' dans '+REP;
        Liste_Des_CAB_ZIP_RAR_DECOMP.Items.Add(INFO);
        // select répertoire de destination
        sevenzip1.ExtrBaseDir := REP;
        // Ecraser les fichiers existants lors de l'extraction ?
        sevenzip1.ExtractOptions := sevenzip1.ExtractOptions + [ExtractOverwrite];
        sevenzip1.Files.Clear;
        i := sevenzip1.Extract;
        Finally
        //Showmessage('fin 7z');
        End;
      End;
// =========================

D'avance merci

[tourlourou]

Bonjour,
Ne peut-on fournir une Callback qui demande le mdp ? Son appel signerait le besoin et te fournirait la réponse...

[ShaiLeTroll]

Il y a plusieurs encapsulation de l'API SevenZip, voir si tu trouves IArchiveOpenCallback, ICryptoGetTextPassword CryptoGetTextPassword ... le mieux étant de trouver l'auteur, son GitHub et lui poser la question

[dennler]

Bonjour,
Je n’avance pas beaucoup, en effet je ne trouve pas d’adresse de Ivo Andonov .
Je vais tester autre chose, le composant de Jedi avec même un exemple dans : \jcl\examples\windows\compression\archive\ArchiveDemo.dpr
Merci tout de même.

[ShaiLeTroll]

Contact l'autre auteur

TsevenZip by Ivo Andonov
TSevenZipVCL by Rainer Geigenberger ( -> http://www.rg-software.de - SevenZipVCL@rg-software.de )

Sinon tu devrais vérifier le flag kpidEncrypted a priori c'est la fonction List() qui retourne les propriétés par fichier en créant un gestionnaire pour OnListfile: T7zlistfileEvent et lire le paramètre Filemethod qui indiquera None pour un fichier en clair et sinon la méthode de chiffrement
Tout cela étant juste en lisant le code, ça manque de documentation tout ça