|
Le fichier CGZIP a été compressé à l'aide zip32.dll . Les fichiers et dossiers Windows peuvent être compressées et non compressées. Un fichier compressé est enregistré avec l' extension ". Zip. " Les modules zip32.dll et unzip32.dll sont les fichiers DLL C standard . Ces deux DLL sont distribués par Info- ZIP. Info-ZIP est un groupe de développeurs qui offrent des versions gratuites de les compresser et décompresser des services publics. Vous avez peut-être déjà zip32.dll et unzip32.dll sur votre machine, car ils sont distribués avec de nombreuses applications , mais si vous ne le faites pas , ils sont disponibles en téléchargement gratuit sur l'Internet. Instructions
1 Ouvrez un nouveau projet DLL ActiveX de Visual Basic . Créer un module de code . " Bas" avec des références à des fonctions disponibles dans les fichiers zip32.dll et unzip32.dll .
Private Declare Function ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , ByVal funame As String , ByRef argv Comme ZIPnames ) As Long
Private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll " _ ( ByVal IFNC As Long , ByRef ifnv Comme UNZIPnames , _ByVal xfnc As Long , ByRef xfnv Comme UNZIPnames , _dcll Comme DCLIST , Userf Comme USERFUNCTION ) As Long
Définir un code postal public et une fonction de décompression dans ce module de code. Nommez ce module " MainDLL.bas . "
2 Ajouter un nouveau module de classe au projet pour la compression et une décompression pour . Ces deux classes référence le zip public et décompresser les fonctions définies dans " MainDLL.bas . " Nom eux " CGZipFiles " et " CGUnzipFiles . " Enregistrer et compiler le projet DLL ActiveX , nommé " CGZipUnzip " , à " CGZipUnzip.dll . "
3 Créer un nouveau projet Visual Basic EXE standard . Ajoutez une référence à " CGZipUnzip.dll » en sélectionnant « projeter», « Références» et cochez la case à côté de CGZipUnzip .
4 déclarer une variable d' objet à contenir une référence à " CGZipUnzip . " Utilisez cet objet pour faire référence à chacun des appels de fonctions disponibles à partir de la zip32.dll et unzip32.dll défini dans le nouveau" CGZipUnzip " dll ActiveX. Le code suivant définit une référence à la DLL " CGZipUnzip " , définit le nom du fichier zip , définit quels fichiers doivent être inclus dans le fichier zip et crée le fichier zip . S'il ya des erreurs lors de la création du zip , ils sont affichés dans une boîte de message à l'utilisateur.
OZip As CGZipUnzipWith oZip.ZipFileName = "\\ MYZIP.ZIP " . AddFile App.Path & ; . ". . \\ * * " Si MakeZipFile <> 0 ThenMsgBox GetLastMessageEnd IfEnd Établi oZip = Nothing
|
