4D Doc Center : DECOMPRESSER BLOB

4D v14.3

BLOB

DECOMPRESSER BLOB


DECOMPRESSER BLOB ( blob )

Paramètre	Type	Description
blob	BLOB	BLOB à décompresser

Description

DECOMPRESSER BLOB décompresse le BLOB blob préalablement compressé à l'aide de la commande COMPRESSER BLOB.

Après l'appel de la commande, la variable système OK prend la valeur 1 si le BLOB a été correctement décompressé.

Si la décompression n'a pas pu être effectuée, OK prend la valeur 0.
Dans ce cas, si l'erreur provient du fait que la mémoire disponible est insuffisante pour effectuer l'opération, aucune erreur n'est générée et la méthode poursuit son exécution.
En revanche, si l'erreur est causée par un problème plus important (le BLOB n'avait pas été compressé ou le BLOB est endommagé), l'erreur -10600 est générée. Cette erreur peut être interceptée à l'aide d'une méthode installée par la commande APPELER SUR ERREUR.

De manière générale, il est préférable d'appeler la commande LIRE PROPRIETES BLOB pour savoir si le BLOB a été compressé avant d'exécuter DECOMPRESSER BLOB.

Exemple 1

L'exemple suivant teste si le BLOB vxMonBlob est compressé et, si oui, le décompresse :

 LIRE PROPRIETES BLOB(vxMonBlob;$vlCompressé;$vlTailleDécompressée;$vlTailleCourante)

 Si($vlCompressé#Non compressé)

    DECOMPRESSER BLOB(vxMonBlob)

 Fin de si

Exemple 2

L'exemple suivant vous permet de sélectionner un document et puis de le décompresser s'il était compressé :

 $vhDocRef :=Ouvrir document("")

 Si(OK=1)

    FERMER DOCUMENT($vhDocRef)

    DOCUMENT VERS BLOB(Document;vxBlob)

    Si(OK=1)

       LIRE PROPRIETES BLOB(vxBlob;$vlCompressé;$vlTailleDécompressée;$vlTailleCourante)

       Si($vlCompressé#Non compressé)

          DECOMPRESSER BLOB(vxBlob)

          Si(OK=1)

             BLOB VERS DOCUMENT(Document;vxBlob)

          Fin de si

       Fin de si

    Fin de si

 Fin de si

Variables et ensembles système

La variable OK prend la valeur 1 si le BLOB a été correctement décompressé, sinon elle prend la valeur 0.