Πώς να χρησιμοποιήσετε ένα CGZIP αρχείου σε Visual Basic 6

Το αρχείο CGZIP έχει συμπιεστεί χρησιμοποιώντας Zip32.dll . Windows και τα αρχεία και τους φακέλους που μπορούν να συμπιεστούν και να αποσυμπιεστούν . Ένα συμπιεσμένο αρχείο αποθηκεύεται με την επέκταση " . Zip . " Οι ενότητες Zip32.dll και Unzip32.dll είναι πρότυπο αρχείων C DLL . Αυτά τα δύο αρχεία DLL που διανέμονται από την Info -ZIP . Info-ZIP είναι μια ομάδα προγραμματιστών που παρέχουν δωρεάν εκδόσεις του zip και αποσυμπιέστε κοινής ωφελείας . Μπορεί να έχετε ήδη Zip32.dll και Unzip32.dll στον υπολογιστή σας, επειδή διανέμονται με πολλές εφαρμογές ? Ωστόσο , αν δεν το κάνετε , θα είναι διαθέσιμο για δωρεάν download μέσω του Internet . Οδηγίες
Η

1 Ανοίξτε ένα νέο ActiveX DLL έργο της Visual Basic . Δημιουργήστε ένα " . Bas " μονάδα κώδικα με αναφορές στις λειτουργίες που διατίθενται στο zip32.dll και unzip32.dll αρχεία .

Private Declare Function ZpArchive Lib " zip32.dll » _ ( ByVal argc Όπως Long , ByVal funame As String , ByRef argv Όπως ZIPnames ) Όπως Long

Private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll » _ ( ByVal ifnc Όπως Long , ByRef ifnv Όπως UNZIPnames , _ByVal xfnc Όπως Long , ByRef xfnv Όπως UNZIPnames , _dcll Όπως DCLIST , Userf Όπως USERFUNCTION ) Όπως Long

Ορίστε μια δημόσια zip και unzip μια λειτουργία στο πλαίσιο αυτής της ενότητας κώδικα. Ονομάστε αυτό το μάθημα « MainDLL.bas . " 2

Προσθέστε μια νέα λειτουργική μονάδα κλάσης στο έργο για zipping και ένα για την αποσυμπίεση . Αυτές οι δύο κατηγορίες την αναφορά του δημόσιου zip και unzip λειτουργίες που ορίζονται στο πλαίσιο " MainDLL.bas . " Ονομάστε τους " CGZipFiles " και " CGUnzipFiles . " Αποθήκευση και την κατάρτιση του προγράμματος ActiveX DLL , που ονομάζεται " CGZipUnzip " , για να " CGZipUnzip.dll . "
εικόνων 3

δημιουργήσετε ένα νέο Standard EXE έργο της Visual Basic . Προσθέστε μια αναφορά στο " CGZipUnzip.dll " επιλέγοντας " Project" , "Αναφορές" και επιλέγοντας το πλαίσιο δίπλα στο CGZipUnzip .
Η 4

αναγνωρίσει μια μεταβλητή αντικειμένου που θα περιέχει μια αναφορά σε " CGZipUnzip . "Χρήση που αντιτίθενται σε κάθε αναφορά της λειτουργίας καλεί διατίθεται από την zip32.dll και unzip32.dll ορίζεται στο νέο " CGZipUnzip "dll ActiveX . Ο παρακάτω κώδικας ορίζει μια αναφορά στο " CGZipUnzip " DLL , καθορίζει το όνομα του αρχείου zip , ορίζει ποια αρχεία θα πρέπει να περιλαμβάνονται στο αρχείο zip και δημιουργεί το αρχείο zip . Αν υπάρχουν λάθη κατά τη δημιουργία του φερμουάρ , εμφανίζονται σε ένα πλαίσιο μηνύματος στον χρήστη .

Δημ. oZip Όπως CGZipUnzipWith oZip.ZipFileName = " \\ MYZIP.ZIP " . AddFile App.Path & ? " . \\ * * " Αν MakeZipFile <> 0 ThenMsgBox GetLastMessageEnd IfEnd Συγκροτήθηκε oZip = Τίποτα
Η
εικόνων . .