11-09-17, 12:58 PM
وجدت لكم كود ضغط القاعدة البيانات او مايسمى
الكود :
اتمنى اني اجد لديكم كود افضل من هذا الكود ويقوم بنفس الوظيفة وبدون تعقيد
كود :
GZip
الكود :
كود :
Public Shared Function Decompress(data As Byte()) As Byte()
Dim input As New IO.MemoryStream()
input.Write(data, 0, data.Length)
input.Position = 0
Dim gzip As New IO.Compression.GZipStream(input, IO.Compression.CompressionMode.Decompress, True)
Dim output As New IO.MemoryStream()
Dim buff As Byte() = New Byte(63) {}
Dim read As Integer = -1
read = gzip.Read(buff, 0, buff.Length)
While read > 0
output.Write(buff, 0, read)
read = gzip.Read(buff, 0, buff.Length)
End While
gzip.Close()
Return output.ToArray()
End Function
اتمنى اني اجد لديكم كود افضل من هذا الكود ويقوم بنفس الوظيفة وبدون تعقيد