EXPAND BLOB

Version 6.0

EXPAND BLOB (Blob)

Der Befehl EXPAND BLOB entkomprimiert Blob, das zuvor mit dem Befehl COMPRESS BLOB komprimiert wurde.

Die Variable OK hat nach dem Aufruf den Wert 1, wenn das BLOB entkomprimiert wurde.

Konnte keine Entkomprimierung durchgeführt werden, hat die Variable OK den Wert 0. Dann gibt es zwei Möglichkeiten:

1- Der Fehler ist unwichtig (Speicherproblem, Blobgröße). Es wird kein Fehler generiert. Die aufrufende Methode wird weiter ausgeführt.

2- Der Fehler ist wichtig, d.h. BLOB ist beschädigt. Der Fehler -10600 wird generiert. Sie können ihn mit der Projektmethode ON ERR CALL verwalten.

Mit dem Befehl BLOB PROPERTIES können Sie feststellen, ob ein BLOB komprimiert wurde.

1. Dieses Beispiel prüft, ob das BLOB vxMyBlob komprimiert ist und entkomprimiert es gegebenenfalls:

   BLOB PROPERTIES (vxMyBlob;$vlCompressed;$vlExpandedSize;$vlCurrentSize)
   If ($vlCompressed#Is not compressed)
      EXPAND BLOB (vxMyBlob)
   End if

2. Dieses Beispiel wählt ein Dokument aus und entkomprimiert es, sofern es komprimiert ist:

   $vhDocRef := Open document ("")
   If (OK=1)
      CLOSE DOCUMENT ($vhDocRef)
      DOCUMENT TO BLOB (Document;vxBlob)
      If (OK=1)
         BLOB PROPERTIES (vxBlob;$vlCompressed;$vlExpandedSize;$vlCurrentSize)
         If ($vlCompressed#Is not compressed)
            EXPAND BLOB (vxBlob)
            If (OK=1)
               BLOB TO DOCUMENT (Document;vxBlob)
            End if
         End if
      End if
   End if

BLOB PROPERTIES, COMPRESS BLOB.

Die Variable OK hat den Wert 1, wenn das BLOB erfolgreich entkomprimiert wurde, andernfalls hat sie den Wert 0.