COMPRESS BLOB
COMPRESS BLOB ( BLOB {; compressão} )
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| Blob | Blob | → | BLOB a ser comprimido |
| compressão | Integer | → | 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(vxMeuBlob;$vlComprimido;$vlTamanhoExpandido;$vlTamanhoAtual)
If($vlComprimido=Is not compressed)
COMPRESS BLOB(vxMeuBlob)
End if
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)
var $vEncoding : Text
$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.