EXPAND BLOB

4D v20.1

BLOB

EXPAND BLOB


EXPAND BLOB ( BLOB )

Parâmetro	Tipo	Descrição
BLOB	BLOB	BLOB a expandir

Descrição

O comando EXPAND BLOB expande o BLOB blob que anteriormente foi compactado usando o comando COMPRESS BLOB.

Após a chamada, a variável OK é definida como 1 se o BLOB foi expandido. Se a expansão não pode ser realizada, a variável OK é definido como 0.

Se a expansão não pôde ser realizada devido à falta de memória, nenhum erro é gerado e o método continua a sua execução.
Em qualquer outro caso (ou seja, o BLOB não tenha sido comprimido ou está danificado), o erro -10600 é gerado. Esse erro pode ser tratado usando o comando ON ERR CALL.

Para verificar se o BLOB foi compactado, use o comando BLOB PROPERTIES.

Exemplo 1

Este exemplo testa se o BLOB vxMyBlob é comprimido e, em caso afirmativo, expande-lo:

 BLOB PROPERTIES(vxMiBlob;$vlComprimido;$vlTamanhoExpandido;$vlTamanhoActual)

 If($vlComprimido#Is not compressed)

    EXPAND BLOB(vxMiBlob)

 End if

Exemplo 2

Este exemplo testa se o BLOB vxMyBlob é comprimido e, em caso afirmativo, expande-lo:

 $vhDocRef :=Open document("")

 If(OK=1)

    CLOSE DOCUMENT($vhDocRef)

    DOCUMENT TO BLOB(Document;vxBlob)

    If(OK=1)

       BLOB PROPERTIES(vxBlob;$vlComprimido;$vlTamanhoExpandido;$vlTamahoActual)

       If($vlComprimido#Is not compressed)

          EXPAND BLOB(vxBlob)

          If(OK=1)

             BLOB TO DOCUMENT(Document;vxBlob)

          End if

       End if

    End if

 End if

Variáveis e conjuntos do sistema

A variável OK é definida como 1 se o BLOB foi expandido com êxito, caso contrário, é definido como 0.

Ver também

BLOB PROPERTIES
COMPRESS BLOB