Compression par dll

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BruNews)