[0theghost0]

وجدت لكم كود ضغط القاعدة البيانات او مايسمى

كود :

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

اتمنى اني اجد لديكم كود افضل من هذا الكود ويقوم بنفس الوظيفة وبدون تعقيد