Compress

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

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 1Local 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, nLenghtOut, cBufferIn, nLenghtIn )//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Exemplo 2user 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            bResp := uncompress( @cResult, @nTamNaoComp, cComp, nTamComp )      If( !bResp )       	Alert( "Falha ao descompactar o Buffer!" )      	return      endif            if( cResult != cNaoComp )      	Alert( "Buffer descompactado diferente do buffer original" )      else      	Alert( "Buffer descompactado igual ao buffer original" )      endif            return .t.