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

Zipper et unZipper - gratuitement

	Description
Retour à la liste L'auteur Mike Gagnon 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é 12106 fois Niveau débutant Version(s) Foxpro : VFP 7.0 Télécharger le ZIP (66.58 Ko)
	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?

Zipper et unZipper - gratuitement

Contributions > 09 - Automation > Zip