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 !