MODULE ZLIB - LA COMPRESSION FACILE... (OU DECOMPRESSION)

Commentaire de MALIKcpp le 23/08/2007 19:33:15

Une bonne source, mais la remarque de cyberrique est très interessente, ce qui limite ton programme, c'est pour cela que j'attribue un 7/10 à ta source ;)

Commentaire de mortalino le 23/08/2007 20:56:43

"Si c'est en mémoire on peut pas dépasser la taille de la ram ?"

me semble que la mémoire du fichier d'échange situé sur le disque dur prend le relai une fois le mémoire vive pleine^^

Renfield, pas testé (enfin, pas encore) mais rapport compression, en %, tu gagnes combien ?

++

Commentaire de ciberrique le 23/08/2007 21:49:34

Merci BruNews, maintenant on est fixé ^^.

Commentaire de Renfield le 24/08/2007 04:38:58 administrateur CS

code mis a jour.

EB> un seul appel, oui... quand on peut prévoir la taille du buffer de sortie (enfin, une taille suffisante)
- Pour compresser, pas de soucis, la taille du buffer de sortie est en gros équivalente a la taille du buffer d'entrée. meme en ne compressant pas, on aurait assez de place ^^

- Pour décompresser, faut connaitre la taille des données décompressées. On ne le sais pas toujours... J'ai donc ajouté un parametre optionnel pour la décompression, pour que l'on puisse spécifier ce qui sera finalement la taille du buffer de sortie (qui sera agrandie si nécessaire).

Mortalino> C'est variable, mais c'est ZLib qui gère, et ca compresse pas mal...

Commentaire de vegetalain le 24/02/2009 13:41:21

j'ai essayé de répartir le code dans deux boutons, ça ne fonctionne pas :/

Private Sub Command1_Click()
Dim xbBufferIn() As Byte
Dim xbBufferOut() As Byte
    CcLblUncomp.Caption = "Longueur : " & Len(CcTxtUncomp.Text)
    
    If LenB(CcTxtUncomp.Text) Then
        xbBufferIn = StrConv(CcTxtUncomp.Text, vbFromUnicode)
        CompressData xbBufferIn, xbBufferOut
        CcTxtComp.Text = StrConv(xbBufferOut, vbUnicode)
    Else
        CcTxtComp.Text = vbNullString
    End If
End Sub

Private Sub Command2_Click()
Dim xbBufferIn() As Byte
Dim xbBufferOut() As Byte
    If LenB(CcTxtComp.Text) Then
        xbBufferIn = xbBufferOut
        UncompressData xbBufferIn, xbBufferOut
        CcTxtVerif.Text = StrConv(xbBufferOut, vbUnicode)
    Else
        CcTxtVerif.Text = vbNullString
    End If
If CcTxtVerif.Text <> CcTxtUncomp.Text Then MsgBox "Erreur, le flux décompressé est différent du flux d'entrée.", vbExclamation
End Sub

Où ça coince??

Commentaire de vegetalain le 24/02/2009 14:14:44

merci de cette réponse super rapide, le code ressemble à ça là :

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Dim mxbBufferIn() As Byte
Dim mxbBufferOut() As Byte
Private Sub CcTxtComp_Change()
    CcLblComp.Caption = "Longueur : " & Len(CcTxtComp.Text)
End Sub

Private Sub CcTxtVerif_Change()
    CcLblVerif.Caption = "Longueur : " & Len(CcTxtVerif.Text)
End Sub

Private Sub Command1_Click()
    CcLblUncomp.Caption = "Longueur : " & Len(CcTxtUncomp.Text)
    If LenB(CcTxtUncomp.Text) Then
        mxbBufferIn = StrConv(CcTxtUncomp.Text, vbFromUnicode)
        CompressData mxbBufferIn, mxbBufferOut
        CcTxtComp.Text = StrConv(mxbBufferOut, vbUnicode)
    Else
        CcTxtComp.Text = vbNullString
    End If
End Sub

euh... lorsque je copie colle le résultat compressé, que je stope l'appli et que je la relance et que je colle le résultat compressé, il décompresse rien, c normal?

Private Sub Command2_Click()
If LenB(CcTxtComp.Text) Then
        mxbBufferIn = mxbBufferOut
        UncompressData mxbBufferIn, mxbBufferOut
        CcTxtVerif.Text = StrConv(mxbBufferOut, vbUnicode)
    Else
        CcTxtVerif.Text = vbNullString
    End If
'    If CcTxtVerif.Text <> CcTxtUncomp.Text Then
'        MsgBox "Erreur, le flux décompressé est différent du flux d'entrée.", vbExclamation
'    End If
End Sub