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)
Quelqu'un pourrait-il m'aider ?
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;
Merci d'avance !
Partager