EXPAND BLOB

4D v20 R7

BLOB

EXPAND BLOB


EXPAND BLOB ( blob )

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

Description

EXPAND BLOB décompresse le BLOB blob préalablement compressé à l'aide de la commande COMPRESS 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 ON ERR CALL.

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

Exemple 1

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

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

 If($vlCompressé#Is not compressed)

    EXPAND BLOB(vxMonBlob)

 End if

Exemple 2

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

 $vhDocRef :=Open document("")

 If(OK=1)

    CLOSE DOCUMENT($vhDocRef)

    DOCUMENT TO BLOB(Document;vxBlob)

    If(OK=1)

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

       If($vlCompressé#Is not compressed)

          EXPAND BLOB(vxBlob)

          If(OK=1)

             BLOB TO DOCUMENT(Document;vxBlob)

          End if

       End if

    End if

 End if

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.

Voir aussi

BLOB PROPERTIES
COMPRESS BLOB