Files
tsUtilidades/Compresion.vb
2025-05-29 17:58:18 +02:00

15 lines
417 B
VB.net

Public Class Compresion
Public Shared Function ComprimirCadena(Cadena As String) As Byte()
Dim ms As New IO.MemoryStream
Dim gz As New System.IO.Compression.GZipStream(ms, IO.Compression.CompressionMode.Compress)
Dim sw As New IO.BinaryWriter(gz)
sw.Write(System.Text.Encoding.UTF8.GetBytes(Cadena))
sw.Close()
Return ms.ToArray()
End Function
End Class