منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت (/showthread.php?tid=20959)

الصفحات: 1 2


ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - الماجيك مسعد - 07-07-17

ازاى افك ضغط ملف مضاف للريسورس
مثل costura.libcurl.net.dll.zip
Embedded-Resource
يريت كود #c او vb


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - silverlight - 07-07-17

بأي طريقة ضغطت الملف؟


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - الماجيك مسعد - 08-07-17

مثل موضوعك هذا
http://vb4arb.com/vb/showthread.php?tid=20883

ولكن هو يحفظ الملف فى الذاكرة وليس فى مكان على الجهاز


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - silverlight - 08-07-17

إعكس عملية التشفير
وأخبرني بالنتائج


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - الماجيك مسعد - 09-07-17

معرفتش للاسف يريت لو كود يعمل كدا او تجرب على الملف الى بعتهولك وتقلى الطريقة


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - silverlight - 09-07-17

مافيش ملفات وصلت لي
و اللينك اللي انت ارسلته يعطي خطأ


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - الماجيك مسعد - 09-07-17

(09-07-17, 04:31 PM)silverlight كتب : مافيش ملفات وصلت لي
و اللينك اللي انت ارسلته يعطي خطأ

اتفضل الملف فى المرفقات


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - silverlight - 10-07-17

إدرس الكود الموجود في الرابط التالي
الرابط


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - الماجيك مسعد - 10-07-17

شكرا لكم جميعا
تم حل المشكلة

وهذا هو الكود ليستفيد الجميع

كود :
Private Sub Decompress(ByVal fi As FileInfo)
        Using inFile As FileStream = fi.OpenRead()
            Dim curFile As String = fi.FullName
            Dim origName = curFile.Remove(curFile.Length - fi.Extension.Length)
            Using outFile As FileStream = File.Create(origName)
                Using Decompress As DeflateStream = New DeflateStream(inFile,
                                                        CompressionMode.Decompress)
                    Dim buffer As Byte() = New Byte(4096) {}
                    Dim numRead As Integer
                    numRead = Decompress.Read(buffer, 0, buffer.Length)
                    Do While numRead <> 0
                        outFile.Write(buffer, 0, numRead)
                        numRead = Decompress.Read(buffer, 0, buffer.Length)
                    Loop
                    Console.WriteLine("Decompressed: {0}", fi.Name)

                End Using
            End Using
        End Using
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim dirpath As String = "D:\dlls"
            Dim di As DirectoryInfo = New DirectoryInfo(dirpath)
            For Each fi As FileInfo In di.GetFiles("*.zip")
                Decompress(fi)
            Next
        Catch ex As Exception
        End Try
    End Sub
الكود من شخص يدعى Abd Samad وهو ليس مسجل بالمنتدى

شكرا للجميع مرة اخرى


RE: ازاى افك ضغط ملف مضاف للريسورس مثل costura.libcurl.net.dll.zip Embedded-Resource يريت - silverlight - 11-07-17

الحمد لله ان مشكلتك اتحلت
مش مهم مين الللي كتب الكود

عموما انا انتهيت من الكود خاصة اني وعدتك اني أساعدك

وكتبته بشكل مختلف قليلا عن الاسلوب الذي تعتمده انت في دمج الملفات معا ثم فصلها بعد ذلك
وان شاء الله أضعه في قسم المقالات ليستفيد منه الأخرين