حالة الموضوع:
مغلق
  1. FLASH

    FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    3
    الإقامة:
    Ksa
    السلام عليكم ورحمه الله وبركاته

    كيفكم اعضاء عراق تيم
    اليوم اول مشاركه لي ف المنتدى

    اتيت اليكم ب شرح عمل برنامج تحويل السيرفر الى خورازميات

    رابط الشرح على اليوتيوب

    الخورازميه gzip

    كود:
    Imports System.IO.Compression
    Imports System.IO
    
    Public Class Compression
    
        Public Shared Function Compress(ByVal bytData() As Byte) As Byte()
            Using oMS As New MemoryStream()
                'GZip object that compress the file
                Using oGZipStream As New GZipStream(oMS, CompressionMode.Compress)
                    'Write to the Stream object from the buffer
                    oGZipStream.Write(bytData, 0, bytData.Length)
                    oGZipStream.Close()
                    ReDim bytData(oMS.ToArray.Length - 1)
                    bytData = oMS.ToArray
                End Using
                oMS.Close()
            End Using
            Return bytData
        End Function
    
        Public Shared Function Decompress(ByVal bytData() As Byte) As Byte()
            Using oMS As New MemoryStream(bytData)
                Using oGZipStream As New GZipStream(oMS, CompressionMode.Decompress)
                    Const CHUNK As Integer = 1024
                    Dim intTotalBytesRead As Integer = 0
                    Do
                        ' Enlarge the buffer.
                        ReDim Preserve bytData(intTotalBytesRead + CHUNK - 1)
                        ' Read the next chunk.
                        Dim intBytesRead As Integer = oGZipStream.Read(bytData, intTotalBytesRead, CHUNK)
                        intTotalBytesRead += intBytesRead
                        ' See if we're done.
                        If intBytesRead < CHUNK Then
                            ' We're done. Make the buffer fit the data.
                            ReDim Preserve bytData(intTotalBytesRead - 1)
                            Exit Do
                        End If
                    Loop
                    oGZipStream.Close()
                End Using
                oMS.Close()
            End Using
            Return bytData
        End Function
    
    End Class
    اهداء الى
    Screeam
    Dr.srag
     
  2. FLASH

    FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    3
    الإقامة:
    Ksa
  3. Mira

    Mira .::|| Tale of Remorse ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    657
    الإعجابات المتلقاة:
    119
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    عاشت ايدك شرح واضح
     
  4. FLASH

    FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    3
    الإقامة:
    Ksa
    نورتي
     
  5. Ameer Eagle

    Ameer Eagle V • I • P

    الأنتساب:
    ‏7 يونيو 2014
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,779
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    عاشت الايادي :D
     
  6. FLASH

    FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    3
    الإقامة:
    Ksa
    تعيش ايامك حبيبي
     
  7. مسہہٰتہہٰر بٰٰرايہٰمر

    مسہہٰتہہٰر بٰٰرايہٰمر ᎿᎻᎬ ᏞᎥᏫᏁ موقوف لمخالفة الشروط

    الأنتساب:
    ‏1 فبراير 2016
    المشاركات:
    288
    الإعجابات المتلقاة:
    67
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق
    عاشت الايادي شرح رائع
     
  8. FLASH

    FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    3
    الإقامة:
    Ksa
    تعيش ايامك ياعيني
     
  9. Dr.SYMLINK

    Dr.SYMLINK Developer

    الأنتساب:
    ‏4 يناير 2015
    المشاركات:
    29
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    مجهوود رائع بارك الله فيك ياغالي
     
  10. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    479
    الإعجابات المتلقاة:
    163
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    مبدع موضوع متعوب عليه
    شكرا لك على مجهودك يغالي
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة