TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Compacta uma string no formato gzip.

Sintaxe

GzStrComp( < cSource >, < @cTarget >, < @nTargetLen > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cSource

caractere

Indica a string que será compactada.

X

 

cTarget

caractere

Indica a string compactada.

X

X

nTargetLen

numérico

Indica o tamanho da string compactada.

X

X

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se a compactação for realizada com sucesso; falso (.F.) caso contrário.

Observações

  • Essa função compacta no formato gzip (GNU zip).

Exemplos

Exemplo 1
user function exemplo()
  Local lRet := .F.
  Local cUncomp := "", cComp := ""
  Local nLenComp := 0, nLenUncomp := 0
  
  cUncomp := MemoRead( "\myfile.txt" )
  nLenUncomp := Len( cUncomp )
  
  cComp := ""
  nLenComp := 0
  
  lRet := GzStrComp( cUncomp, @cComp, @nLenComp )
  nHandle := FCreate( "\mygzip.gz" )
  FWrite( nHandle, cComp, nLenComp )
  FClose( nHandle )
return

Veja também

  • Sem rótulos