//Exemplo 1cBufferIn1
cBufferIn := xBuffer // (Buffer gerado pela função compress)
nLenghtIn := Len( cBufferIn ) // Tamanho do buffer compactadocBufferOutcompactado
cBufferOut := "" // Variável que receberá o buffer descompactadonLenghtOutdescompactado
nLenghtOut := 0 // Tamanho do buffer descompactado
// Descompacta o buffer gerado pela função Compress()
UnCompress(cBufferOut, 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 return
endif
bResp := uncompress( @cResult, @nTamNaoComp, cComp, nTamComp )
If( !bResp )
Alert( "Falha ao descompactar o Buffer!" )
return return
endif
if( cResult != cNaoComp )
Alert( "Buffer descompactado diferente do buffer original" )
else
Alert( "Buffer descompactado igual ao buffer original" )
endif endif
return .t.