Gewusst wie: Verwenden Sie eine CGZIP-Datei in Visual Basic 6

Die CGZIP-Datei wurde mit Zip32.dll komprimiert wurde. Windows-Dateien und Ordner können komprimiert und unkomprimiert. Eine komprimierte Datei gespeichert ist, mit der Erweiterung ".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 bieten kostenlose Versionen des Zip und entpacken Sie Dienstprogramme. Möglicherweise haben Sie bereits Zip32.dll und Unzip32.dll auf Ihrer Maschine, da sie mit vielen Anwendungen verteilt werden; Allerdings, wenn Sie dies nicht tun, sind sie zum kostenlosen Download im Internet verfügbar.

Anweisungen

1 Öffnen Sie ein neues ActiveX-DLL Visual Basic-Projekt. Erstellen Sie eine "Bas" Code-Modul, mit Verweisen auf die in den Dateien zip32.dll und unzip32.dll verfügbaren Funktionen.

Private Declare Function ZpArchive Lib "zip32.dll" _(ByVal Argc As Long, ByVal Funame As String, ByRef Argv als ZIPnames) So lange

Private Declare Function WizSingleEntryUnzip Lib "unzip32.dll"(ByVal Ifnc As Long, ByRef Ifnv als UNZIPnames,ByVal Xfnc As Long, ByRef Xfnv als UNZIPnames,Dcll als DCLIST Userf als USERFUNCTION) As Long

Definieren Sie eine öffentliche Zip und eine extrahieren-Funktion innerhalb dieses Codemodul. Nennen Sie dieses Modul "MainDLL.bas."

2 Fügen Sie ein neues Klassenmodul, das Projekt für packen und zu entpacken. Diese beiden Klassen verweisen die öffentliche Zip und unzip Funktionen definiert in "MainDLL.bas." Nennen Sie sie "CGZipFiles" und "CGUnzipFiles." Speichern Sie und kompilieren Sie das ActiveX-DLL-Projekt, mit dem Namen "CGZipUnzip", "CGZipUnzip.dll."

3 Erstellen Sie ein neues Standard EXE Visual Basic-Projekt. Fügen Sie einen Verweis auf "CGZipUnzip.dll" wählen Sie "Projekt", "Verweise" und überprüfen Sie das Kontrollkästchen neben CGZipUnzip.

4 Deklarieren Sie eine Objektvariable um einen Verweis auf "CGZipUnzip." Verwenden Sie dieses Objekt zu verweisen Sie auf jeder der Funktion zip32.dll und unzip32.dll definiert in der neuen "CGZipUnzip" ActiveX-Dll verfügbar ruft. Der folgende Code definiert einen Verweis auf die DLL "CGZipUnzip", legt den Namen der Zip-Datei, definiert, was Dateien in der Zipdatei enthalten sein und die Zipdatei erstellt. Wenn Fehler bei der Erstellung des Zip vorhanden sind, werden sie in einem Meldungsfeld an den Benutzer angezeigt.

Dim oZip als CGZipUnzipMit oZip. ZipFileName = "\MYZIP. "ZIP". AddFile App.Path & "*. *"If. MakeZipFile <> 0 dann

MsgBox .GetLastMessage End If

Enden mitSet oZip = Nothing