COMPRESS BLOB

4D v16.3

BLOB

COMPRESS BLOB


COMPRESS BLOB ( BLOB {; compressão} )

Parâmetro	Tipo	Descrição
BLOB	BLOB	BLOB a ser comprimido
compressão	Inteiro longo	Se não se omite: 1, compressão máxima possível 2, velocidade de compressão máxima

Descrição

O comando COMPRESS BLOB comprime o BLOB blob usando o algoritmo de compressão interno de 4D. Este comando só comprime o BLOB cujo tamanho é superior a 255 bytes.

O parâmetro de compressão opcional permite definir a forma como o BLOB é compactado: Passe neste parâmetro uma das seguintes constantes, localizadas no tema BLOB:

Constante	Tipo	Valor	Comentário
Compact compression mode	Inteiro longo	1	Comprimido tanto quanto possível (á custa da velocidade das operações de compressão e descompressão). Método padrão.
Fast compression mode	Inteiro longo	2	Comprimido tão rápido quanto possível (e será descomprimido tão rápido quanto possível), à custa da taxa de compressão (o BLOB comprimido será maior).
GZIP best compression mode	Inteiro longo	-1	Compressão GZIP mais compacta
GZIP fast compression mode	Inteiro longo	-2	Compressão GZIP mais rápida

Se passar outro valor ou se ignorar o parametro compressão, o método de compressão 1 é utilizado (algoritmo interno compacto).

Após a chamada, a variável OK é definida como 1 se o BLOB foi bem compactado. Se a compressão não pôde ser executada, a variável OK é definida como 0. Se a compressão não pôde ser realizada devido à falta de memória ou porque o real tamanho do blob é menor que 255 bytes, nenhum erro é gerado e o método continua a sua execução.

Nos demais casos (isto é, o BLOB estiver danificado), o erro -10600 é gerado. Esse erro pode ser tratado usando o comando ON ERR CALL.

Depois que um BLOB foi compactado, você pode expandi-lo usando o comando ON ERR CALL.

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

Advertência: O BLOB comprimido ainda é um BLOB, então não há nada para impedi-lo de modificar o seu conteúdo. No entanto, se você fizer isso, o comando EXPAND BLOB não será capaz de descompactar o BLOB corretamente.

Exemplo 1

Este exemplo testa se o BLOB vxMeuBlob é comprimido e, se não for, comprime-o:

 BLOB PROPERTIES(<span class="rte4d_prm">vxMeuBlob</span><gen9>;$vlComprimido;$vlTamanhoExpandido;$vlTamanhoAtual)

 If($vlComprimido=Is not compressed)

    COMPRESS BLOB(vxMeuBlob)

 End if

 </gen9>

Note, no entanto, que se você aplicar COMPRESS BLOB para um BLOB já compactado, o comando detecta-o e não faz nada.

Exemplo 2

Este exemplo permite que você selecione um documento e, em seguida, comprima-o:

 $vhDocRef :=Open document("")

 If(OK=1)

    CLOSE DOCUMENT($vhDocRef)

    DOCUMENT TO BLOB(Document;vxBlob)

    If(OK=1)

       COMPRESS BLOB(vxBlob)

       If(OK=1)

          BLOB TO DOCUMENT(Document;vxBlob)

       End if

    End if

 End if

Exemplo 3

Envio de dados HTTP "brutos" comprimidos usando GZIP:

 COMPRESS BLOB($blob;GZIP Best compression mode)

 C_TEXT($vEncoding)

 $vEncoding:="Content-encoding: gzip"

 WEB SET HTTP HEADER($vEncoding)

 WEB SEND RAW DATA($blob ;*)

Variáveis e conjuntos do sistema

A variável OK é definida como 1 se o BLOB foi compactado com sucesso, caso contrário, ela é definido como 0.

Ver também

BLOB PROPERTIES
EXPAND BLOB