1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : FLASH | المشاهدات : 331 | الردود : 22
حالة الموضوع:
مغلق
  1. FLASH New Developer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    15
    الإقامة:
    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 New Developer

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

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    148
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    عاشت ايدك شرح واضح
     
  4. FLASH New Developer

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

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

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    20
    الإعجابات المتلقاة:
    10
    نقاط الجائزة:
    15
    الإقامة:
    Ksa
    تعيش ايامك حبيبي
     
  7. مسہہٰتہہٰر بٰٰرايہٰمر ᎿᎻᎬ ᏞᎥᏫᏁ موقوف لمخالفة الشروط

    الأنتساب:
    ‏1 فبراير 2016
    المشاركات:
    288
    الإعجابات المتلقاة:
    67
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    عاشت الايادي شرح رائع
     
  8. FLASH New Developer

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

    الأنتساب:
    ‏4 يناير 2015
    المشاركات:
    30
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Python
    مجهوود رائع بارك الله فيك ياغالي
     
  10. ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    578
    الإعجابات المتلقاة:
    465
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    مبدع موضوع متعوب عليه
    شكرا لك على مجهودك يغالي
     
حالة الموضوع:
مغلق

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