TURBO POWER ABBREVIA : EXTRAIRE LE CONTENU D'UN FICHIER ZIP

Signaler
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
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

Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007

Ortographe: *publier*

wG
Messages postés
106
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007

Salut,

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
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
5
Salut,

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.
Messages postés
25
Date d'inscription
lundi 1 octobre 2001
Statut
Membre
Dernière intervention
28 juillet 2004

Salut,

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+
Afficher les 8 commentaires