Histórico da Página

Compress ( < @cBufferOut>, < @nLenghtOut>, < cBufferIn>, < nLenghtIn> ) --> lRet

(logico)
• Retorna verdadeiro (.T.), se o buffer for compactado com sucesso; caso contrário, falso (.F.).

• Quando o buffer original for muito pequeno (menor que 128 bytes), o buffer de saída poderá ser maior.
• Essa função aceita e retorna caracteres especiais ( ASCII < 32 e ASCII > 128 ), incluindo o zero binário ( ASCII 0 ) .
• O resultado dessa função pode conter caracteres especiais, e não deve ser gravado diretamente em banco de dados, especialmente no TOTVSDBAccess. -- EXCETO se utilizado um tipo de campo que permita conteúdo com caracteres especiais 
   

//Exemplo 1Local1
Local cBuffer := ""
Local nX := 0  
// Monta linha para teste de compressão  
for nX := 1 to 200
    cBuffer += "Linha do buffer de Teste "  
next nX               
cBufferIn  := cBuffer  
nLenghtIn  := Len( cBufferIn )  
cBufferOut := ""   
nLenghtOut := 0  
Compress( cBufferOut@cBufferOut, nLenghtOut@nLenghtOut, cBufferIn, nLenghtIn )
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Exemplo 2user
//Exemplo 2
user function TSTComp 
     Local cNaoComp := replicate( 'A', 1024 )    
  Local cComp := '', cResult := ''
      Local nTamNaoComp := len( cNaoComp )  
    Local nTamComp := 0
      Local bResp 
           bResp := compress( @cComp, @nTamComp, cNaoComp, nTamNaoComp )
      If( bResp )  
     	Alert( "Buffer Compactado - Tamanho Compactado" + str( nTamComp ) )    
  else  
    	Alert( "Falha ao compactar o Buffer!" )
      	return 
     endif    endif
        bResp := uncompress( @cResult, @nTamNaoComp, cComp, nTamComp )  
    If( !bResp )   
    	Alert( "Falha ao descompactar o Buffer!" )  
    	return
      endif          endif
  if( cResult != cNaoComp )
      	Alert( "Buffer descompactado diferente do buffer original" )  
    else  
    	Alert( "Buffer descompactado igual ao buffer original" )   
   endif            endif
return .t.