Die CGZIP Datei komprimiert wurde mit zip32.dll . Windows-Dateien und Ordner können komprimiert und unkomprimiert . Eine komprimierte Datei mit der Endung " . Zip . " Die Module zip32.dll und unzip32.dll sind Standard-C- DLL-Dateien. Diese beiden DLLs werden von Info-ZIP verteilt . Info-ZIP ist eine Gruppe von Entwicklern , die freie Versionen der zip und unzip Dienstprogramme bieten . Möglicherweise haben Sie bereits zip32.dll und unzip32.dll auf Ihrer Maschine , weil sie mit vielen Anwendungen verteilt sind , aber wenn Sie dies nicht tun , sind sie zum kostenlosen Download im Internet. Anleitung
1
Öffnen Sie ein neues ActiveX DLL Visual Basic-Projekt . Erstellen Sie eine " . Bas " Code-Modul mit Verweisen auf die verfügbaren Funktionen in der zip32.dll und unzip32.dll Dateien .
Private Declare Function ZpArchive Lib " zip32.dll " _ (ByVal argc As Long , ByVal funame As String , ByRef argv Wie ZIPnames ) As Long
private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll " _ (ByVal ifnc As Long , ByRef ifnv Wie UNZIPnames , _ByVal xfnc As Long , ByRef xfnv Wie UNZIPnames , _dcll Wie DCLIST , UserF Wie UserFunction ) As Long
Definieren Sie eine öffentliche und eine zip unzip Funktion innerhalb dieses Code-Modul . Nennen Sie dieses Modul " MainDLL.bas . "
2
ein neues Klassenmodul hinzufügen zum Projekt für Zippen und eine für Entpacken . Diese beiden Klassen anhand der Öffentlichkeit zip entpacken und Funktionen innerhalb definierter " MainDLL.bas . " Nennen Sie sie " CGZipFiles " und " CGUnzipFiles . " Speichern und übersetzen Sie die ActiveX -DLL-Projekt mit dem Namen " CGZipUnzip " , zu " CGZipUnzip.dll . "
3
erstellen Sie ein neues Standard EXE Visual Basic-Projekt . Fügen Sie einen Verweis auf " CGZipUnzip.dll " durch Auswahl von " Projekt", " Referenzen " und das Kontrollkästchen neben CGZipUnzip .
4
eine Objektvariable deklarieren , um eine Referenz zu halten " CGZipUnzip . " Verwenden Sie dieses Objekt , um jede der Funktion verweisen verfügbar Anrufe aus dem zip32.dll und unzip32.dll in der neu definierten " CGZipUnzip " ActiveX dLL . Der folgende Code definiert einen Verweis auf die " CGZipUnzip " DLL setzt die ZIP-Datei Namen definiert , welche Dateien in der ZIP-Datei enthalten sein sollen und schafft die ZIP-Datei. Wenn es irgendwelche Fehler bei der Erstellung des zip sind, werden sie in einer Message-Box für den Benutzer angezeigt .
Dim OZIP Wie CGZipUnzipWith oZip.ZipFileName = "\\ MYZIP.ZIP " . AddFile App.Path & ; . . . " \\ * * " Wenn MakeZipFile <> 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet OZIP = Nothing
