Rémi

My bad it works I had a bug in my file names Format('%.5.png', [ref]) ** d** is missing the good one Format('%.5d.png', [ref])

My bad it works I had a bug in my file names

Hello I have a list of TBitmap in memory and I want to zip them in a zip file on my disk. To do so I have proceeded like if I had to zip a list of files but I used AddFromStream methode procedure bmps2Zip(chem: string; iz: integer; lst: TList); var Zipper: TAbZipper; ref: integer; MS: TMemoryStream; bmp: TBitmap; begin try Zipper := TAbZipper.Create(nil); Zipper.FileName := chem + Format('Z_%d.zip', [iz]); Zipper.CompressionMethodToUse := TAbZipSupportedMethod.smBestMethod; Zipper.StoreOptions :=...