Base de conhecimento
Encontre respostas para suas dúvidas em quatro fontes de conhecimento diferentes ao mesmo tempo, simplificando o processo de pesquisa.
  1. Central de Atendimento TOTVS
  2. Cross Segmentos
  3. TOTVS Backoffice (Linha Protheus)
  4. Customizações (ADVPL)
  5. ADVPL - Classe e Função
Central do Cliente

Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Descompactar string .gZip que está em base64Binary

time.pngTempo aproximado para leitura: 00:02:00 min

Dúvida
Preciso descompactar uma string .gZip em base64Binary, e gerar o resultado em um arquivo texto.

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.8

Solução
Utilize a função GzStrDecomp juntamente com a função Decode64.

KCS_gZip.gif

Exemplo:

user function TGzStrDecomp()

Local lRet :=.F.
Local cComp :="", cUncomp :=""
Local nLenComp :=0, nLenUncomp :=0

cComp := MemoRead( "\testdir\string.gz" )
cDecode64 := Decode64(cComp)
nLenComp := Len( cComp )

cUncomp := ""
nLenUncomp := 0

lRet := GzStrDecomp( cDecode64, nLenComp, @cUncomp )

nLenUncomp := Len( cUncomp )
nHandle := FCreate( "\testdir\string.txt" )
FWrite( nHandle, cUncomp, nLenUncomp )
FClose( nHandle )

return


Saiba mais
GzStrDecomp
Decode64

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
Como podemos ajudar?
Entre em contato e fale conosco!
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _

NC#o encontrou o que procura?