February 17
Il file CGZIP è stato compresso utilizzando Zip32.dll. file e le cartelle di Windows possono essere compressi e non compressi. Un file compresso viene salvato con l'estensione ".zip". I moduli Zip32.dll e Unzip32.dll sono file standard C DLL. Questi due DLL sono distribuiti da Info-ZIP. Info-ZIP è un gruppo di sviluppatori che forniscono versioni gratuite di zip e decomprimere utilità. Si può già avere Zip32.dll e Unzip32.dll sulla vostra macchina, perché sono distribuiti con molte applicazioni; tuttavia, se non, sono disponibili per il download gratuito su Internet.
1 Aprire un nuovo progetto DLL ActiveX di Visual Basic. Creare un modulo di codice "BAS", con riferimenti alle funzioni disponibili nei file zip32.dll e unzip32.dll.
Private Declare Function ZpArchive Lib "zip32.dll" _
(ByVal argc As Long, ByVal funame come stringa, ByRef argv come ZIPnames) As Long
Private Declare Function Wiz
SingleEntryUnzip Lib "unzip32.dll"
(ByVal IFNC As Long, ByRef ifnv Come UNZIPnames,
ByVal xfnc As Long, ByRef xfnv Come UNZIPnames,
dcll Come DCLIST, UserF Come USERFUNCTION) As Long
Definire un zip pubblica e una funzione di decompressione all'interno di questo modulo di codice. Nome di questo modulo "MainDLL.bas."
2 Aggiungere un nuovo modulo di classe al progetto per zippare e uno per la decompressione. Queste due classi di riferimento la zip pubblico e funzioni definite all'interno di decomprimere "MainDLL.bas." Nome loro "CGZipFiles" e "CGUnzipFiles." Salvare e compilare il progetto DLL ActiveX, chiamato "CGZipUnzip", a "CGZipUnzip.dll."
3 Creare un nuovo progetto EXE standard di Visual Basic. Aggiungere un riferimento a "CGZipUnzip.dll" selezionando "Progetto", "Riferimenti" e selezionando la casella accanto a CGZipUnzip.
4 Dichiarare una variabile oggetto per contenere un riferimento a "CGZipUnzip." Utilizzare l'oggetto di riferimento ciascuna delle funzioni chiamate disponibili dalla zip32.dll e unzip32.dll definita nella nuova DLL "CGZipUnzip" ActiveX. Il codice seguente definisce un riferimento alla DLL "CGZipUnzip", imposta il nome del file zip, definisce quali file devono essere inclusi nel file zip e crea il file zip. Se ci sono errori durante la creazione della cerniera, che vengono visualizzati in una finestra di messaggio per l'utente.
Dim oZip Come CGZipUnzip
con oZip
.ZipFileName = "\ MYZIP.ZIP"
.AddFile App.Path & "*. *"
Se .MakeZipFile <> 0 Then
MsgBox .GetLastMessage
End If
End With
Set oZip = Nothing