Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

andersonleme

Comprimir arquivo .TXT em GZIP

Por , em ASP Clássico

Recommended Posts

andersonleme    1

andersonleme
Postado

Boa tarde!

tenho um sistema em asp que pega dados do bd cria um arquivo de remessa ".TXT" para ser importado em outro sistema, só que o sistema esta pedindo para comprimir em "GZIP", tem como fazer isso no asp, pelo que eu sei .ZIP tem como, ... mais em GZIP eu nunca vi, alias GZIP pra mim só servidor que comprimia pra enviar ao navegador.
será que alguem pode me ajudar, nisso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set gzip = Server.CreateObject("Chilkat.Gzip")


success = gzip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write gzip.LastErrorText & "<br>"

End If



s = "Procurando procrastinação? Aqui vai uma lista com sites que te ajudam a gastar tempo com coisas não muito úteis. Clique em cada um e veja"
s = s & " como seu dia pode passar depressa demais sem que você perceba"
s = s + s
s = s + s



cs = gzip.DeflateStringENC(s,"windows-1252","base64")
Response.Write Server.HTMLEncode( cs) & "<br>"



s2 = gzip.InflateStringENC(cs,"windows-1252","base64")
Response.Write Server.HTMLEncode( s2) & "<br>"
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

andersonleme    1

andersonleme
Postado

 

faz assim:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set gzip = Server.CreateObject("Chilkat.Gzip")


success = gzip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write gzip.LastErrorText & "<br>"

End If



s = "Procurando procrastinação? Aqui vai uma lista com sites que te ajudam a gastar tempo com coisas não muito úteis. Clique em cada um e veja"
s = s & " como seu dia pode passar depressa demais sem que você perceba"
s = s + s
s = s + s



cs = gzip.DeflateStringENC(s,"windows-1252","base64")
Response.Write Server.HTMLEncode( cs) & "<br>"



s2 = gzip.InflateStringENC(cs,"windows-1252","base64")
Response.Write Server.HTMLEncode( s2) & "<br>"
%>
</body>
</html>

 

O problema é o componente, estou testando em um server meu interno, eu eu gerar um arquivo zip e mudar a extensão para .gz funcionaria?

Eu peguei uma lib sua que tem um zipar.asp e mudei a class para gerar o arquivo gz .. acho que deu certo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tem uma classe também no fórum que postei, dá uma olhada.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito