Discussion :

[dw0604]

Bonjour,

Je me tourne vers vous car malgré mes recherches (Google est mon ami).... je suis complétement bloqué sur l'utilisation de TZipFile
unité system.zip.pas dans delphi XE7.

Je voudrais compresser un fichier, mais quelque soit la méthode de compression utilisée je récupère le message suivant :

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet Test.exe a déclenché la classe d'exception EZipException avec le message 'Support de la méthode de compression non recensé : Reduced4'.
---------------------------
Arrêter Continuer Aide
---------------------------

voici mon 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
 
procedure TFrameConfiguration.btnZipClick(Sender: TObject);
var
zip : tzipfile;
begin
  zip := TZipFile.Create();
  try
  zip.Open('E:\Users\Do\Documents\test.zip',TZipMode.zmWrite);
  zip.Add('E:\Users\Do\Documents\test.txt','',TZipCompression.zcReduce4);
  zip.Close;
  finally
    zip.Free;
  end;
end;

et la pile d'appel au moment de l'erreur


System.Generics.Defaults.BobJenkinsHash((no value),0,0)
System.Generics.Defaults.GetHashCode_I1(???,5)
{System.Generics.Collections}TDictionary<System.Zip.TZipCompression,System.Generics.Collections.TPair<System.Zip.TStreamConstructor,System.Zip.TStreamConstructor>>.Hash(zcReduce4)
{System.Generics.Collections}TDictionary<System.Zip.TZipCompression,System.Generics.Collections.TPair<System.Zip.TStreamConstructor,System.Zip.TStreamConstructor>>.ContainsKey(zcReduce4)
System.Zip.TZipFile.Add('E:\Users\Do\Documents\test.txt','',zcReduce4)
FrConfiguration.TFrameConfiguration.btnZipClick($A8FF720)

j'avoue que je suis perdu dans le debuger à partir de system.generics......

Quelqu'un pourrait-il me mettre sur la voie ou me dire ce que j'ai loupé.

Merci d'avance

[Paul TOTH]

le message me semble pourtant assez claire, zcReduce4 n'est pas supporté...utilise zcDeflate

[dw0604]

Merci pour une réponse aussi rapide.

C'est vrai que le message était clair. Il me semble que j'avais essayé toutes les méthode de compression et seule zcStored ne me renvoyait pas d'erreur.
J'ai dû oublier la bonne. Avec zcDeflate je n'ai plus d'erreur.

Autant pour moi
Merci encore pour ton aide

[dw0604]

j'ai voulu en avoir le cœur net.
voici le résultat d'une boucle sur les méthodes de compression

Pourquoi la Documentation ne précise-t-elle pas les méthodes à employer dans Delphi?
Je suppose que les autres méthodes marchent avec C++

Bonne continuation à tous.

[Paul TOTH]

je suppose que ces méthodes peuvent être utilisées dans un .ZIP, donc à la lecture, Delphi pourra identifier une compression qu'il ne sait pas gérer. Mais à l'écriture il ne connait qu'une méthode de compression (en pratique je n'ai jamais vu de .ZIP utilisant autre chose).

[tourlourou]

Les autres méthodes ne sont peut-être pas libres de droits ?