Histórico da Página

user function exemplo#include "TOTVS.ch"
User Function Exemplo()

  Local lRet      := .F.
  Local cComp cDataText := ""
  Local cCompText := "", cUncomp
  Local cDecText  := ""
  Local nDataLen  := 0
  Local nLenCompnCompLen  := 0, nLenUncomp
  Local nDecLen   := 0

  cDataText := "Testing function GzStrDecomp..."
  cCompnDataLen  := MemoRead( "\mygzip.gz Len( cDataText )

  ConOut( "cDataText [" + cDataText                  + "]" )
  ConOut( "nDataLen  [" + AllTrim( Str( nDataLen ) ) + "]" )

  nLenComplRet := LenGzStrComp( cCompcDataText, @cCompText, @nCompLen )
  If ( lRet == .F. )
   cUncomp :=ConOut( "GzStrComp   call NOK" )
  Else
  nLenUncomp := 0  ConOut( "GzStrComp   call OK" )
  EndIf

  lRet := GzStrDecomp( cCompcCompText, nLenComp, @cUncomp )
  nLenUncomp := Len( cUncomp )
  nHandle := FCreate( "\myfile.txt" )
  FWrite( nHandle, cUncomp, nLenUncomp )
  FClose( nHandle )
return

nCompLen, @cDecText )
  If ( lRet == .F. )
    ConOut( "GzStrDecomp call NOK" )
  Else
    ConOut( "GzStrDecomp call OK" )
  EndIf

  nDecLen  := Len( cDecText )

  ConOut( "cDecText  [" + cDecText                   + "]" )
  ConOut( "nDecLen   [" + AllTrim( Str( nDecLen  ) ) + "]" )

  If ( cDecText <> cDataText )
    ConOut( "cDecText <> cDataText" )
    lRet := .F.
  Else
    ConOut( "cDecText == cDataText" )
  EndIf

  If ( nDecLen <> nDataLen )
    ConOut( "nDecLen  <> nDataLen" )
    lRet := .F.
  Else
    ConOut( "nDecLen  == nDataLen" )
  EndIf

  If ( lRet == .F. )
    ConOut( "GzStrDecomp NOK" )
  Else
    ConOut( "GzStrDecomp OK" )
  EndIf

Return