+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات (/showthread.php?tid=21650)
هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات - 0theghost0 - 11-09-17
وجدت لكم كود ضغط القاعدة البيانات او مايسمى
كود :
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اتمنى اني اجد لديكم كود افضل من هذا الكود ويقوم بنفس الوظيفة وبدون تعقيد