ALGUEM PODE ME AJUDAR COM ESSA FUNÇÃO

 Tópico anterior Próximo tópico Novo tópico

ALGUEM PODE ME AJUDAR COM ESSA FUNÇÃO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482196 - 10/06/2018 16:01:59

MALA
RONDONOPOLIS
Cadast. em:Janeiro/2004


Public Shared Function Descompacta(ByVal compressedText As String) As String
    Dim gzBuffer As Byte() = Convert.FromBase64String(compressedText)

    Using ms As MemoryStream = New MemoryStream()
        Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
        ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
        Dim buffer As Byte() = New Byte(msgLength - 1) {}
        ms.Position = 0

        Using zip As GZipStream = New GZipStream(ms, CompressionMode.Decompress)
            zip.Read(buffer, 0, buffer.Length)
        End Using

        Return Encoding.UTF8.GetString(buffer)
    End Using
End Function

Erro : O número mágico no cabeçalho GZip não está correto. Verifique se você está transmitindo um fluxo GZip.


CLESIO SANTOS


#482197 - 10/06/2018 16:27:57

MALA
RONDONOPOLIS
Cadast. em:Janeiro/2004


resolvi assim pessoal, mas muito obrigado pela atenção

Public Function descompactar(ByVal conteudo As Byte()) As String
        Using memory = New MemoryStream(conteudo)

            Using compression = New GZipStream(memory, CompressionMode.Decompress)

                Using reader = New StreamReader(compression)
                    Return reader.ReadToEnd()
                End Using
            End Using
        End Using
    End Function


CLESIO SANTOS


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MALA em 10/06/2018 16:28:16