BLOB PROPERTIES

BLOB PROPERTIES ( BLOB ; comprimido {; descompTam {; tamanhoAtual}} )

Parâmetro	Tipo		Descrição
Blob	Blob	→	BLOB do qual obter informação
comprimido	Integer	←	0 = BLOB não está comprimido 1 = BLOB comprimido modo compacto 2 = BLOB comprimido modo rápido
descompTam	Integer	←	Tamanho do BLOB (em bytes) quando não está comprimido
tamanhoAtual	Integer	←	Tamanho atual do BLOB (em bytes)

Descrição

O comando BLOB PROPERTIES retorna informações sobre o blob BLOB.diz se o BLOB é comprimido ou não, e retorna um dos seguintes valores.

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
Is not compressed	Inteiro longo	0	Sem compressão

• Seja qual for o estado de compressão do BLOB, o parâmetro expandedSize retorna o tamanho do BLOB quando não é comprimido.
• O parâmetro tamanhoAtual retorna o tamanho atual do BLOB. Se o BLOB estiver compactado, você normalmente irá obter tamanhoAtual menor que descompTam. Se o BLOB não está compactado, você vai sempre obter tamanhoAtual igual descompTam.

Exemplo 1

Veja os exemplos para os comandos COMPRESS BLOB e EXPAND BLOB.

Exemplo 2

Depois que um BLOB foi comprimido, o método de projeto obtém a porcentagem de espaço salvo por compressão:

  // Método de projeto Espaço economizado por compressão
  // Espaço economizado pela compressão (Ponteiro {; Ponteiro } ) -> Inteiro Longo
  // Espaço economizado pela compressão ( -> BLOB {; -> bytesEconomizados } ) -> Porcentagem
 
 var $1;$2 : Pointer
 var $0;$vlComprimido;$vlDescompTam;$vlTamanhoAtual : Integer
 
 BLOB PROPERTIES($1->;$vlComprimido;$vlDescompTam;$vlTamanhoAtual)
 If($vlDescompTam=0)
    $0:=0
    If(Count parameters>=2)
       $2->:=0
    End if
 Else
    $0:=100-(($vlTamanhoAtual/$vlDescompTam)*100)
    If(Count parameters>=2)
       $2->:=$vlDescompTam-$vlTamanhoAtual
    End if
 End if

Depois que este método tenha sido adicionado à sua aplicação, você pode usá-lo desta maneira:

  // ...
 COMPRESS BLOB(vxBlob)
 $vlPorcentaje:=Espaço economizado pela compressão(->vxBlob;->vlTamanhoBlob)
 ALERT("A compressão economizou "+String(vlBlobSize)+" bytes, "+String($vlPorcentagem;"#0%")+
 " de espaço.")

Ver também

COMPRESS BLOB
EXPAND BLOB

Propriedades

Número do comando	536
Thread-seguro	✓