[الماجيك مسعد]

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

[silverlight]

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

[الماجيك مسعد]

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

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

[silverlight]

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

[الماجيك مسعد]

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

[silverlight]

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

[الماجيك مسعد]

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

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

[silverlight]

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

[الماجيك مسعد]

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

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

كود :

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 وهو ليس مسجل بالمنتدى

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

[silverlight]

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

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

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