Discussion :

[Pill_S]

Bonjour à tous,

j'ai un problème en utilisant la librairie TP Abbrevia v3.04 sous Delphi 6.

J'arrive à ajouter des fichiers à une archive (avec AddFiles(FileMask:String; SearchAtt:Integer)), mais dès que j'appelle cette méthode dans une boucle, je me retrouve avec une exception "EReadError: Stream Read Error"

Voici un petit exemple qui ne fonctionne pas chez moi (ZipKit est une instance de TAbZipKit)

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
 
procedure TFormTestTPAbbrevia.ZipFiles(FilesToZip:TStrings; OutputFileName:String);
  var
    i:Integer;
  begin
    ShowMessage('Trying to zip '+IntToStr(FilesToZip.Count)+' files in '+OutputFileName);
 
    try
      //ZipKit.BaseDirectory:=ExtractFilePath(OutputFileName);
      ZipKit.OpenArchive(OutputFileName);
 
      for i:= 0 to Pred(FilesToZip.Count) do
        ZipKit.AddFiles(FilesToZip[i], 0); // <-- Exception lors du 2ème passage
 
      ZipKit.CloseArchive;
    except
      on e:Exception do
        ShowMessage(e.Message);
    end;
end;

Quelqu'un pourrait-il m'aider ?

Merci d'avance !

[delphichem]

Essaies avec la version 3.05 beta 6, tu pourras la télécharger a l'adresse suivante:
http://sourceforge.net/projects/tpabbrevia/

[Pill_S]

Justement, je n'arrive pas à télécharger la version 3.05 !

Quand je clique sur le lien, le download démarre et plante à 1 seconde de la fin ! Quel que soit le mirroir que j'utilise... c'est pour ça que j'utilise la version 3.04.....

si chez toi ça marche, tu pourrais me l'envoyer par mail stp ?

Merci !

[delphichem]

C'est fait regardes dant ta boite.

A+

[Pill_S]

ça roule, merci !

et en effet, le bug auquel je faisais allusion est résolu à partir de la 3.05 beta 1

donc mon pb aussi 8)