TZipWriter.AddFile
| TZipWriter = class (TObject) | Interface de TZipWriter | Exemples de TZipWriter |
Qubes 6.7 Ajoute un contenu depuis un fichier dans un zip
Syntaxe
procedure AddFile(fileName: String; compression: Integer = 7; nameInZip: String = '')
fileName: nom du fichier à ajouter (chemin complet)
compression: taux de compression (0 à 9)
nameInZip: nom dans le zip (chemin dans le zip)
Remarques
Un taux de compression 0 correspond à un stockage sans compression (à utiliser pour les contenus déjà compressés, comme une image PNG ou JPG par exemple).
Si nameInZip est vide, le nom du fichier (sans le chemin) sera utilisé.
Pour ajouter depuis la mémoire, voir AddData.
Exemples
L'exemple ci-dessous créera un fichier "archive.zip" dans le dossier "d:\destination", avec comme contenu "file.htm" (compressé niveau 7, par défaut), et "res\image.png" (non compressée).
var writer := new TZipWriter('d:\destination\archive.zip');
writer.AddFile('d:\source\file.htm');
writer.AddFile('d:\source\res\image.png', 0, 'res\image.png');
writer.Close;
writer.AddFile('d:\source\file.htm');
writer.AddFile('d:\source\res\image.png', 0, 'res\image.png');
writer.Close;