Histórico da Página

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css
Portuguese

Pagetitle

	GzStrComp
	GzStrComp

Compacta uma string no formato gzip.

Sintaxe

Bloco de código

collapse	false

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

cpp

Bloco de código

language	cpp
theme	Eclipse

language


title	Exemplo 1
linenumbers	true
collapse	false

#include "TOTVS.ch"
user function

exemplo

Exemplo()

Local lRet := .F.


  Local cUncomp := "", cComp := ""
  Local nLenComp := 0,

nLenUncomp

nHandle :=

0

-1
  Local cText := ""

cUncomp

Local cTxtFile :=

MemoRead( "\myfile.txt" ) nLenUncomp := Len( cUncomp ) cComp

 "", cGzFile := ""
  Local cEnvPath := ""

  cText := "Teste da funcao GzStrComp."
  
  cTxtFile := "\file.txt"
  cGzFile := "\file.gz"

nLenComp

nHandle := FCreate( cTxtFile

0 lRet :=

)
  FWrite( nHandle, cText )
  FClose( nHandle )

  GzStrComp(

cUncomp

cText, @cComp, @nLenComp )

  nHandle := FCreate( cGzFile )

"\mygzip.gz" ) FWrite( nHandle, cComp, nLenComp ) FClose( nHandle ) return

FWrite( nHandle, cComp )
  FClose( nHandle )

  if isSrvUnix() 
    cEnvPath := GetSrvProfString( "RootPath", "" )
    GzDecomp( cGzFile, cEnvPath )
  else
    GzDecomp( cGzFile, "\" )
  endif 

  GzStrDecom( cComp, nLenComp, @cUncomp )
  
  FErase( cTxtFile )
  FErase( cGzFile )
  
  ConOut(cUncomp) // Resultado: "Teste da funcao GzStrComp."
  
return

Abrangência

Application Server 13.0.0.0

Veja também

GzStrDecomp

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave