TURBO POWER ABBREVIA : EXTRAIRE LE CONTENU D'UN FICHIER ZIP
taye78
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
28 janv. 2004 à 19:20
taye78 Messages postés 106 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 13 janvier 2007 - 21 juin 2004 à 23:42
taye78 Messages postés 106 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 13 janvier 2007 - 21 juin 2004 à 23:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19266-turbo-power-abbrevia-extraire-le-contenu-d-un-fichier-zip
https://codes-sources.commentcamarche.net/source/19266-turbo-power-abbrevia-extraire-le-contenu-d-un-fichier-zip
21 juin 2004 à 23:42
wG
21 juin 2004 à 23:29
j'ai fais une application qui utilise ces composants, parmi eux TabZipper. Je peux te c/c la partie qui utilise ce composant, qui marche très bien !
Je vais retirer le code de mon application qui n'utilise pas le composant et me restreindre uniquement a celui-ci, j'espere que ca pourra t'aider un peu:
zipPack est le nom du composant sur la form.
zipPack.OpenArchive(ExtractFilePath(Application.ExeName) + '\' + edtNomFile.Text); //créer (si non existante) et ouvre l'archive
zipPack.AddFiles(Strings[i], 0); // Strings[i] est l'adresse du fichier complet
zipPack.AddFiles(ExtractFilePath(Application.ExeName) + '\icondef.xml', 0); //un autre ajout de fichier a l'archive zip
zipPack.Save; //Sauve les changements effectués sur l'archive
zipPack.CloseArchive; //Ferme l'archive
Voila, mais je compte publiées les sources de mon application dans peu de temps. Donc tu pourras accéder a la partie compression.
A bientot !
wG
2 juin 2004 à 09:02
Merci de ta réponse mais en effet j'ai bien utiliser le composant TAbZipper ou le TAbZipKit mais ca ne fonctionne avec aucun des deux.
J'ai utilisé aussi les exemples fournit avec le package et à chaque fois qu il s agit de zipper j'ai une erreur de violation d'acces. J'ai voulu aussi réinstaller le nouveau package abbrevia mais quand je fais installer le package delphi me renvoie une erreur en me disant que le paquet n'est pas compatible parcek c'est un paquet de conception. J'avais bien entendu désinstaller l'ancien du coup maintenant je n'ai plus abbrevia.
Si quelqu'un à une idée merci d'avance.
Bonne prog,
JMP.
1 juin 2004 à 20:53
Normal puisque la source s'appelle "EXTRAIRE LE CONTENU D'UN FICHIER ZIP", c'est donc que tu ne peux pas "zippé" mais "dézippé" :)
Le compasant TAbUnZipper permet de décompresser et le composant TAbZipper pour compresser.
Tu peux aussi utiliser le composant TAbZipKit qui effectue les deux manipulations (décompresser et compresser).
Il y a aussi des exemples fournit avec les composants TUrbo Power Abbrevia.
A+
1 juin 2004 à 13:49
Et bien j'ai essayé mais impossible de zipper un fichier. J'ai été sur ton site j'ai téléchargé tout le package ect ... mais ca ne fonctionne pas. En revanche pour dezipper ca marche bien. Mais impossible de zipper un petit fichier meme avec l'exemple fournit avec.
Aurais tu un exemple (juste zipper un petit fichier) qui fonctionne chez toi que je puisse comparer.
Merci,
JMP.
28 janv. 2004 à 22:30
Good, thx. 10/10
wG << wG@coding.tk>>
28 janv. 2004 à 22:23
Tout est sur mon site.
28 janv. 2004 à 19:20
wG <wG@coding.tk>