Source: chaîne à compresser.
Level: niveau de compression, une valeur entre valeur Min et valeur Max. Si ce paramètre est manquant, la valeur par défaut sera utilisée.
AllowGrow: Si ce paramètre est manquant, ou si vous passez FALSE comme valeur, cette fonction retournera une chaîne compressée uniquement si sa longueur est plus petite que celle de la chaîne originale (non compressée). Si vous passez TRUE, la chaîne compressée sera toujours renvoyée. Notez que pratiquement tous les algorithmes de compression ne peuvent réellement compresser une chaîne (reduce its length) que si elle possède des motifs définis. Les très courtes chaînes et les chaîne aléatoires peuvent difficilement être compressées.

Exemples

Dim Cz As New Compress
Dim Buf As String

Cz.Type = "bzlib2"

Buf = Cz.String(SourceString,Cz.Max,FALSE)

IF Len(Buf) < Len(SourceString) THEN
    PRINT "Compression terminée avec succès"
ELSE
    PRINT "Impossible de compresser cette chaîne"
END IF