BLOB PROPERTIES

versión 6.0

BLOB PROPERTIES (BLOB; comprimido{; descompTam{; tamañoActual}})

El comando BLOB PROPERTIES devuelve información sobre el BLOB blob.

• El parámetro comprimido indica si el BLOB está comprimido o no, y devuelve uno de los siguientes valores. Nota: 4D ofrece constantes predefinidas.

• Cualquiera que sea el estado de compresión del BLOB, el parámetro descompTam devuelve el tamaño del BLOB cuando no está comprimido.

• El parámetro tamañoActual devuelve el tamaño actual del BLOB. Si el BLOB está comprimido, tamañoActual será menor que descompTam. Si el BLOB no está comprimido, tamañoActual será igual a descompTam.

1. Vea los ejemplos de los comandos COMPRESS BLOB y EXPAND BLOB.

2. Después de que un BLOB ha sido comprimido, el siguiente método de proyecto obtiene el porcentaje de espacio ahorrado por la compresión:

      ` Método de proyecto Espacio ahorrado por compresión
      ` Espacio ahorrado por la compresión (Puntero {; Puntero } ) -> Entero Largo
      ` Espacio ahorrado por la compresión ( -> BLOB {; -> bytesAhorrados } ) -> Porcentaje

   C_POINTER ($1;$2)
   C_LONGINT ($0;$vlComprimido;$vlDescompTam;$vlTamañoActual)

   BLOB PROPERTIES ($1->;$vlComprimido;$vlDescompTam;$vlTamañoActual)
   If ($vlDescompTam=0)
      $0:=0
      If (Count parameters>=2)
         $2->:=0
      End if 
   Else 
      $0:=100-(($vlTamañoActual/$vlDescompTam)*100)
      If (Count parameters>=2)
         $2->:=$vlDescompTam-$vlTamañoActual
      End if 
   End if 

Después de añadir este método a su aplicación, lo puede utilizar de esta manera:

      ` ...
   COMPRESS BLOB (vxBlob)
   $vlPorcentaje:= Espacio ahorrado por compresión  (->vxBlob;->vlTamañoBlob)
   ALERT ("La compresión ahorró "+String (vlBlobSize)+" bytes, "+String ($vlPorcentaje;"#0%")+
         " de espacio.")

COMPRESS BLOB, EXPAND BLOB.