DLL pour ajouter aisément la compression dans vos progs.
Cette DLL est API (vraie DLL), rien à enregister en base de registres.
Voir implémentation ici:
ZLIB REVUE EN PUR WIN32 ET SANS CRT
http://www.cppfrance.com/code.aspx?ID=39145
UTILISATION DEPUIS VB (et autres):
Option Explicit
Declare Function bnZipFile Lib "bnzlib.dll" (ByVal sSrc As String, ByVal sDst As String) As Long
Declare Function bnUnzipFile Lib "bnzlib.dll" (ByVal sSrc As String, ByVal sDst As String) As Long
Declare Function bnZipFileSec Lib "bnzlib.dll" (ByVal sSrc As String, ByVal sDst As String, ByVal passNbr As Long) As Long
Declare Function bnUnzipFileSec Lib "bnzlib.dll" (ByVal sSrc As String, ByVal sDst As String, ByVal passNbr As Long) As Long
Declare Function bnUnzipFileSecMin Lib "bnzlib.dll" (ByVal sSrc As String, ByVal sDst As String, ByVal passNbr As Long) As Long
ATTENTION:
- Ce qui est compresé par bnZipFileSec() doit être décompressé avec bnUnzipFileSec() ou bnUnzipFileSecMin().
- Toute tentative de décompression par bnUnzipFileSec() verra le prog appelant démappé de la mémoire si le passNbr est faux.
- bnUnzipFileSecMin() ne décharge pas l'appelant mais retourne BNERR_SYST si le passNbr est faux.
' Retours possibles des 2 fonctions:
' BNERR_OK = 0 QUI EST REUSSITE
' BNERR_STREAMEND = 1
' BNERR_NEEDDICT = 2
' BNERR_FILE = 3
' BNERR_SYST = 4
' BNERR_STREAM = -2
' BNERR_DATA = -3
' BNERR_MEM = -4
' BNERR_BUF = -5
Sub TestCmprss()
Dim r As Long
r = bnZipFile("D:\BruNews\Scrab.mdb", "D:\Scrab.bnz")
MsgBox r
End Sub
Sub TestUncmprss()
Dim r As Long
r = bnUnzipFile("D:\Scrab.bnz", "D:\Scrab.mdb")
MsgBox r
End Sub
' -- COMPRESSION AVEC PASSWORD 32 BITS ---
Sub TestCmprssSecu()
Dim r As Long
r = bnZipFileSec("D:\BruNews\Scrab.mdb", "D:\Scrab.bnz", 18987)
MsgBox r
End Sub
' ATTENTION SI bnz EST FAIT PAR bnZipFile()
' OU bnZipFileSec() AVEC passNbr DIFFERENT
' RETOURNE BNERR_SYST
Sub TestUncmprssSecuMin()
Dim r As Long
r = bnUnzipFileSecMin("D:\Scrab.bnz", "D:\Scrab.mdb", 18987)
MsgBox r
End Sub
' ATTENTION SI bnz EST FAIT PAR bnZipFile()
' OU bnZipFileSec() AVEC passNbr DIFFERENT
' FERMETURE IMMEDIATE DE CE PROG A PREVOIR
Sub TestUncmprssSecu()
Dim r As Long
r = bnUnzipFileSec("D:\Scrab.bnz", "D:\Scrab.mdb", 18987)
MsgBox r
End Sub