ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Zipper et unZipper - gratuitement   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Zip

Zipper et unZipper - gratuitement
# 0000000121
ajouté le 21/12/2004 16:02:01 et modifié le 21/12/2004
consulté 11791 fois
Niveau débutant

Version(s) Foxpro :
VFP 7.0


Télécharger le ZIP (66.58 Ko)
Description

Veullez trouver ci-attaché un petit DLL qui permet de zipper et unzipper (et quelques autres fonctions). Il est distribuable gratuitement - freeware.

A noter qu'il faut utiliser Regsrv32 pour enregistrer ce DLL.

Voici des expemples de son utilisation.

Code source :
&& Comment compresser un fichier

LOCAL objZip
objZip = CreateObject("XStandard.Zip")
objZip.Pack("C:\Temp\recu.jpg""C:\Temp\images.zip")
objZip = .null.



&& Comment compresser plusieurs fichiers dans un seul fichier.

Local objZip
objZip = CreateObject("XStandard.Zip")
objZip.Pack"C:\Temp\golf.jpg""C:\Temp\images.zip")
objZip.Pack"C:\Temp\racing.gif""C:\Temp\images.zip")
objZip = .null.

&& Comment compresser plusieurs fichiers dans un seul fichier, avec different niveaux de compression.

LOCAL objZip
objZip = CreateObject("XStandard.Zip")
objZip.Pack"C:\Temp\reports.doc""C:\Temp\archive.zip", , 9)
objZip.Pack"C:\Temp\recu.jpg""C:\Temp\archive.zip", , 1)
objZip = .null.

&& Comment archiver plusieurs fichiers en utilisant le wildcard (*)


Local objZip
objZip = CreateObject("XStandard.Zip")
objZip.Pack"C:\Temp\*.jpg""C:\Temp\images.zip")
objZip = .NULL.

&& Comment décompresser des fichiers

Local objZip
objZip = CreateObject("XStandard.Zip")
objZip.UnPack"C:\Temp\images.zip""C:\Temp\")
objZip = .null.

&& Comment décompresser de fichiers en utlisant le wildcard (*)

Local objZip
objZip = CreateObject("XStandard.Zip")
objZip.UnPack"C:\Temp\images.zip""C:\Temp\""*.jpg")
objZip = .NULL.

&& Montrer une liste de fichiers contenus dans le fichier Zip

Local objZip, objItem
objZip = Createobject("XStandard.Zip")
objItems = objZip.Contents("C:\Temp\images.zip")
For Each objItem In objItems
  ? objItem.Name
Next
objZip = .Null.
objItem = .Null.

&& Comment enlever un fichier d'un fichier zip

LOCAL objZip
objZip = createObject("XStandard.Zip")
objZip.Delete"recu.jpg""C:\Temp\images.zip")
objZip = .null.


&& Comment renommer un fichier contenu dans un fichier zip

LOCAL objZip
objZip = CreateObject("XStandard.Zip")
objZip.Move("tmp.jpg""recu-final.jpg""C:\Temp\images.zip")
objZip = .null.

Commentaires
le 21/12/2004, Francis Faure a écrit :
Mike,
Quel exposé alléchant et simple !,
mais qu'est que la classe "XStandard.Zip" ? sur quel système ? quelle librairie ?
Cordialement
Francis

le 21/12/2004, Mike Gagnon a écrit :
? Le DLL est attaché au haut du post?
le 21/12/2004, Francis Faure a écrit :
Mike
Milles excuses !
j'avais pas vu la DLL

c'est cool !!!

de qui provient la DLL !?
SI j'ose : est il possible d'avoir un zip crypté ?
les sources sont disponibles ? quel est langage pour la dll ?

le 22/12/2004, Mike Gagnon a écrit :
>>de qui provient la DLL !?
La DLL provient de http://xstandard.com

>>SI j'ose : est il possible d'avoir un zip crypté ?

Oui, il existe plusieurs methodes de cryptage. Mais ce petit DLL ne fait pas les deux operations, seulement le Zip.

>>les sources sont disponibles ? quel est langage pour la dll ?

Pas que je sache.


le 05/01/2005, eric leissler a écrit :
Bonjour et Bonne année
J'ai essayé et cela fonctionne mais sur un ensemble important de fichiers
dans plusieurs répertoires, le zip se crée correctement, mais attention, car
l'opération inverse fait apparaitre des erreurs de corruption bon nombre de fichiers ne peuvent plus être décompressés.
Les même fichiers sont bien sur compressés avec winzip 8.1 et
sont correctement décompressés pour être sur que cela ne vient pas du contenu d'un fichier ou d'un autre.
Avez vous remarqué ce genre de pb ??

le 05/01/2005, Mike Gagnon a écrit :
aumeric

J'ai tester avec 10 fichiers, zip et unzip dans le meme répertoire sans problème. Dans quelle circonstance je pourrais voir le problème?


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3