EXPAND BLOB
EXPAND BLOB ( BLOB )
| Parámetro | Tipo | Descripción | |
|---|---|---|---|
| Blob | Blob | → | BLOB a descomprimir |
Descripción
El comando EXPAND BLOB descomprime el BLOB blob que fue previamente comprimido utilizando el comando COMPRESS BLOB.
Después de llamar el comando, la variable OK toma el valor 1 si el BLOB ha sido descomprimido. Si no pudo realizar la expansión, la variable OK toma el valor 0.
Si la expansión no se pudo realizar por falta de memoria, no se genera un error y el método reasume su ejecución.
En otros casos, (el BLOB no ha sido comprimido o está dañado), se genera el error -10600. Este error puede interceptarse utilizando el comando ON ERR CALL.
Para verificar si un BLOB ha sido comprimido, utilice el comando BLOB PROPERTIES.
Ejemplo 1
Este ejemplo prueba si el BLOB vxMiBlob está comprimido, si es así lo descomprime:
BLOB PROPERTIES(vxMiBlob;$vlComprimido;$vlTamañoExpandido;$vlTamañoActual)
If($vlComprimido#Is not compressed)
EXPAND BLOB(vxMiBlob)
End if
Ejemplo 2
Este ejemplo le permite seleccionar un documento y descomprimirlo, si está comprimido:
$vhDocRef :=Open document("")
If(OK=1)
CLOSE DOCUMENT($vhDocRef)
DOCUMENT TO BLOB(Document;vxBlob)
If(OK=1)
BLOB PROPERTIES(vxBlob;$vlComprimido;$vlTamañoExpandido;$vlTamañoActual)
If($vlComprimido#Is not compressed)
EXPAND BLOB(vxBlob)
If(OK=1)
BLOB TO DOCUMENT(Document;vxBlob)
End if
End if
End if
End if
Variables y conjuntos del sistema
La variable OK toma el valor 1 si el BLOB ha sido descomprimido con éxito, de lo contrario toma el valor 0.