15 lines
417 B
VB.net
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
|