CTE 4.0 FALHA NA DESCOMPACTAÇÃO
Pessoal, caso alguém tenha passado por essa situação e consiga dar um help. Gero o xml, assino e valido. Após compacto com o gzip e na sequência converto em base64 (conforme manual da nova versão). Envio e recebo o cstat 244-falha na descompactação da área de dados. Problema que não da pra saber exatamente o que é.
Funções testasdas.
Private Function Compress(ByVal raw() As Byte) As Byte()
' Clean up memory with Using-statements.
Using memory As MemoryStream = New MemoryStream()
' Create compression stream.
Using gzip As GZipStream = New GZipStream(memory, CompressionMode.Compress, True)
' Write.
gzip.Write(raw, 0, raw.Length)
End Using
' Return array.
Return memory.ToArray()
End Using
End Function
Public Function convertir64(pCaminhoXML As String) As String
Dim value As String = File.ReadAllText(pCaminhoXML)
Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(value)
Dim byts As Byte() = Compress(byt)
Dim XML As String = Convert.ToBase64String(byts)
Return XML
End Function
Private Function Compress(ByVal raw() As Byte) As Byte()
' Clean up memory with Using-statements.
Using memory As MemoryStream = New MemoryStream()
' Create compression stream.
Using gzip As GZipStream = New GZipStream(memory, CompressionMode.Compress, True)
' Write.
gzip.Write(raw, 0, raw.Length)
End Using
' Return array.
Return memory.ToArray()
End Using
End Function
Public Function convertir64(pCaminhoXML As String) As String
Dim value As String = File.ReadAllText(pCaminhoXML)
Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(value)
Dim byts As Byte() = Compress(byt)
Dim XML As String = Convert.ToBase64String(byts)
Return XML
End Function
Faça seu login para responder