Hello tous
Avant le w-e, je cherche à faire un zip avec le TZipFile de RIO en VCL.
J'ai l'impression qu'il n'y a pas moyen de conserver une arborescence dans la structure du zip.
Vous confirmez ou j'ai juste pas vu l'option qui va bien ?
Hello tous
Avant le w-e, je cherche à faire un zip avec le TZipFile de RIO en VCL.
J'ai l'impression qu'il n'y a pas moyen de conserver une arborescence dans la structure du zip.
Vous confirmez ou j'ai juste pas vu l'option qui va bien ?
Avant le week-end à 17h52 le vendreditrop tard
donc avec un peu de retard j'ai (évidemment) fait un test rapide
et j'ai la structure dans mon zip (j'ai même été surpris par vitesse) . Mais peut-être est-ce que tu procèdes fichier par fichier ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 uses System.Zip; procedure TForm47.btnZipClick(Sender: TObject); var AZip : TZipFile; begin AZip:=TZipFile.Create; AZip.ZipDirectoryContents(Edit1.Text,DirToZip.Text); end;
Merci Serge mais effectivement je le fais fichier par fichier.
J'ai fini par trouver la solution. Il faut utiliser le second paramètre pour définir la "position" dans le fichier zip.
Zip.Add('.\dossier1\prog.ico', 'dossier1\prog.ico');
Sinon, tous les fichiers se retrouvent au même niveau (et pourtant ils ont le même nom dans l'archive).
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager