VBA及VB三種不衕壓縮解壓組件/控件的性能對(duì)比報(bào)告(zlib.dll,info-zip,xceed zip)

VBA及VB三種不衕壓縮解壓組件/控件的性能對(duì)比報(bào)告

VB Access Excel本身沒有自己的壓縮和解壓縮函數(shù)和組件，必鬚依賴於第三方的控件或動(dòng)態(tài)鏈接庫，以下是三種不衕壓縮組件的性能對(duì)比詳細(xì)報(bào)告

VB中使用三種不衕組件進(jìn)行內(nèi)存解壓的結(jié)果分析比較

本文採用三種不衕軟件公司的動(dòng)態(tài)鏈接庫組件，分彆進(jìn)行內(nèi)存解壓縮實(shí)驗(yàn)，這三種組件分彆是：

1、              使用zlib 軟件公司的zlib.dll動(dòng)態(tài)鏈接庫組件進(jìn)行內(nèi)存解壓

2、              使用info-zip軟件公司的vbuzip10.dll（也就是unzip32.dll）動(dòng)態(tài)鏈接庫組件進(jìn)行內(nèi)存解壓

3、              使用xceed軟件公司的xceed zip compression library V5.0版本的xceedzip.dll動(dòng)態(tài)鏈接庫組件進(jìn)行內(nèi)存解壓

利用上述三種不衕軟件公司的動(dòng)態(tài)鏈接庫組件，對(duì)解壓前大小爲(wèi)229046805字節(jié)的壓縮文件進(jìn)行解壓實(shí)驗(yàn)，實(shí)驗(yàn)結(jié)果如下：

1、採用三種不衕軟件公司的動(dòng)態(tài)鏈接庫組件分彆進(jìn)行內(nèi)存解壓，三次內(nèi)存解壓所用時(shí)間（毫秒）如下：

軟件名稱         第一次   第二次    第三次    平均時(shí)間

vbuzip10.dll:     1734     1703      1672      1703

xceedzip.dll:     9562     4313      4453      6109.3

zlib.dll:     2594     2563      2562      2573

從上麵數(shù)據(jù)可以看齣，使用info-zip軟件公司的vbuzip10.dll組件進(jìn)行內(nèi)存解壓,所用時(shí)間最少，卽採用vbuzip10.dll組件進(jìn)行內(nèi)存解壓的速度最快，其次是zlib.dll，速度最慢的是xceedzip.dll。

2、使用info-zip軟件公司的vbuzip10.dll組件進(jìn)行內(nèi)存解壓,對(duì)於被解壓的壓縮文件，如果文件較?。ń鈮呵白止?jié)大小少於1016字節(jié)的壓縮文件），解壓後可以得到所有的文件內(nèi)容；但如果文件較大（解壓前字節(jié)大小大於2807字節(jié)的壓縮文件），解壓後最多隻能得到2807字節(jié)的文件內(nèi)容。其牠內(nèi)容雖然也在內(nèi)存中，但無法讀取。衕時(shí)，當(dāng)文件較大（解壓前字節(jié)大小大於1016字節(jié)的壓縮文件），解壓時(shí)甚至?xí)i現(xiàn)程序運(yùn)行崩潰的情況，因此，使用info-zip軟件公司的vbuzip10.dll組件進(jìn)行內(nèi)存解壓,很不可靠。

3、使用info-zip軟件公司的vbuzip10.dll組件進(jìn)行內(nèi)存解壓,得到的解壓後的內(nèi)容，直接就可以得到字符串，不用再進(jìn)行字節(jié)到字符串的轉(zhuǎn)換；而用xceedzip.dll和zlib.dll組件進(jìn)行內(nèi)存解壓，得到的解壓後的內(nèi)容是字節(jié)數(shù)組，不是字符串，需要通過字節(jié)數(shù)組到字符串的轉(zhuǎn)換，纔能得到真正的字符串，如果不進(jìn)行字節(jié)數(shù)組到字符串的轉(zhuǎn)換，則得到的字符串是一串亂碼。

4、使用zlib.dll組件進(jìn)行內(nèi)存解壓，隻需要在VB的申明部分用下列語句進(jìn)行申明:

Private Declare Function unzOpen Lib "ZLIB.DLL" (ByVal FilePath As String) As Long

Private Declare Function unzClose Lib "ZLIB.DLL" (ByVal hFile As Long) As Long

Private Declare Function unzGetGlobalInfo Lib "ZLIB.DLL" (ByVal hFile As Long, ByRef pglobal_info As unz_global_info) As Long

Private Declare Function unzGetCurrentFileInfo Lib "ZLIB.DLL" (ByVal hFile As Long, ByRef pfile_info As unz_file_info, ByVal szFileName As String, ByVal fileNameBufferSize As Long, ByRef extraField As Long, ByVal extraFieldBufferSize As Long, ByVal szComment As String, ByVal commentBufferSize As String) As Long

Private Declare Function unzOpenCurrentFile Lib "ZLIB.DLL" (ByVal hFile As Long) As Long

Private Declare Function unzCloseCurrentFile Lib "ZLIB.DLL" (ByVal hFile As Long) As Long

Private Declare Function unzReadCurrentFile Lib "ZLIB.DLL" (ByVal hFile As Long, ByRef Buffer As Byte, ByVal BuffLen As Long) As Long

Private Declare Function unzGoToNextFile Lib "ZLIB.DLL" (ByVal hFile As Long) As Long

然後在程序中加入下列語句，卽可在程序中調(diào)用他們的函數(shù)進(jìn)行內(nèi)存解壓縮：

Dim zipfilename As String, str_tmp As String, filenameinzip As String

zipfilename = "q-20151010-1406-0000-4.zip"

filenameinzip = "q-20151010-pfsjnl.bin"

str_tmp = UnZipToMemory(zipfilename, filenameinzip)

解壓後得到的內(nèi)容在str_tmp字符串變量中：

5、使用vbuzip10.dll組件進(jìn)行內(nèi)存解壓，隻需要在VB的申明部分用下列語句進(jìn)行申明，

Public Declare Function Wiz_UnzipToMemory Lib "vbuzip10.dll" (ByVal zip As String, ByVal file As String, ByRef lpUserFunc As LPUSERFUNCTIONS, ByRef retstr As UzpBuffer) As Long

Public Declare Sub UzpFreeMemBuffer Lib "vbuzip10.dll" (ByRef retstr As UzpBuffer)

Public Type UzpBuffer

    strlength As Long

    Buffer As String

End Type

Private Type UNZIPCBChar

  ch(32800) As Byte

End Type

Private Type UNZIPCBCh

  ch(256) As Byte

End Type

Public Type LPUSERFUNCTIONS

printwq As Long  'DLLPRNT *  = a pointer to the application's print routine.

sound As Long  'DLLSND *   = a pointer to the application's sound routine. This

                       '   can be NULL if your application doesn't use sound.

replace As Long        'DLLREPLACE *  = a pointer to the application's replace routine.

password As Long       'DLLPASSWORD * = a pointer to the application's password routine.

SendApplicationMessage As Long  'DLLMESSAGE * = a pointer to the application's routine

                          'for displaying information about specific files

                          'in the archive. Used for listing the contents of an archive.

ServCallBk As Long        'DLLSERVICE *  = Callback function designed to be used for

                        '  allowing the application to process Windows messages,

                        '  or canceling the operation, as well as giving the

                        '  option of a progress indicator. If this function

                        '  returns a non-zero value, then it will terminate

                        '  what it is doing. It provides the application with

                        '  the name of the name of the archive member it has

                        '  just processed, as well as it's original size.

'NOTE: The values below are filled in only when listing the contents of an archive.

TotalSizeComp As Long  '= value to be filled in by the dll for the

                          'compressed total size of the archive. Note this

                          'value does not include the size of the archive

                          'header and central directory list.

TotalSize As Long  '= value to be filled in by the dll for the total

                        '  size of all files in the archive.

CompFactor As Long  '= value to be filled in by the dll for the overall

                         ' compression factor. This could actually be computed

                         ' from the other values, but it is available.

NumMembers As Long  '= total number of files in the archive.

cchComment As Integer   'WORD  = flag to be set if archive has a comment

End Type

然後在程序中加入下列語句，卽可在程序中調(diào)用他們的函數(shù)進(jìn)行內(nèi)存解壓縮：

Dim retstr As UzpBuffer, UZUSER As LPUSERFUNCTIONS, long_result As Long, zipfilename As String, filenameinzip As String

  UZUSER.printwq = FnPtr(AddressOf UZDLLPrnt)

  UZUSER.sound = 0&    '-- Not Supported

  UZUSER.replace = FnPtr(AddressOf UZDLLRep)

  UZUSER.password = FnPtr(AddressOf UZDLLPass)

  UZUSER.SendApplicationMessage = FnPtr(AddressOf UZReceiveDLLMessage)

  UZUSER.ServCallBk = FnPtr(AddressOf UZDLLServ)

zipfilename = "q-20151010-1406-0000-4.zip"

filenameinzip = "q-20151010-pfsjnl.bin"

long_result = Wiz_UnzipToMemory(zipfilename, filenameinzip, UZUSER, retstr)

解壓後得到的內(nèi)容在retstr.buffer字符串變量中：

6、使用xceedzip.dll組件進(jìn)行內(nèi)存解壓，比較麻煩，需要先在計(jì)祘機(jī)上運(yùn)行XceedComponents.exe程序，安裝xceed zip compression library V5.0和其牠組件，然後在VB設(shè)計(jì)環(huán)境下，在“工程”---“引用”中，引用“xceed zip compression Library V5.0”，在“工程”---“部件”中，將“xceed zip compression Library V5.0”前的複選框選中，這樣在VB設(shè)計(jì)環(huán)境下，在工具箱中，就可以看到一箇xceedzip工具圖標(biāo)，將該圖標(biāo)加到窗體中，在程序中加入下列語句：

Dim zipfilename As String, filenameinzip As String, REsult_Code1 As xcdError

XceedZip1.zipfilename = zipfilename

XceedZip1.FilesToProcess = filenameinzip

REsult_Code1 = XceedZip1.Unzip

卽可在程序中調(diào)用他們的函數(shù)進(jìn)行內(nèi)存解壓縮，解壓後得到的內(nèi)容在filetext字符串變量中：

Private Sub XceedZip1_UnzippingMemoryFile(ByVal sFilename As String, vaUncompressedData As Variant, ByVal bEndOfData As Boolean)

filetext = StrConv(vaUncompressedData, vbUnicode)

End Sub