TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css
Portuguese

Pagetitle
GzStrComp
GzStrComp

Compacta uma string no formato gzip.

Sintaxe

Bloco de código
collapsefalse
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;

...

caso contrário, retorna .F.

...

.

Observações

  • Essa função compacta no formato gzip (GNU zip).
  • Caso cSource seja uma string vazia, é gerada uma exceção com a mensagem: "Error in GzStrComp(): String is empty.".
  • Caso haja um erro na compactação, é definido em cTarget uma string vazia ("") e em nTargetLen o valor 0 (zero).

Exemplos

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
user function exemplo()
  Local lRet := .F.
  Local cUncomp := "", cComp := ""
  Local nLenComp := 0,
nLenUncomp
nHandle :=
0
-1
  
  cUncomp := MemoRead( "\myfile.txt"
) nLenUncomp := Len( cUncomp
 )
  
  cComp := ""
  nLenComp := 0
  
  lRet := GzStrComp( cUncomp, @cComp, @nLenComp )
  if lRet == .F.
    return
  endif
  
  nHandle := FCreate( "\mygzip.gz" )
  if nHandle < 0
    return
  endif
  
  FWrite( nHandle, cComp, nLenComp )
  FClose( nHandle )
return

Veja também