منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > موضوع مهم جدا جدا ( فك ضغط ملف zip )
نسخة كاملة : موضوع مهم جدا جدا ( فك ضغط ملف zip )
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4 5

الشاكي لله

17-08-13, 05:36 AM
تفضل كتبت لك طلبك على شكل دالتين

PHP كود :
Function IsFileCorrupted(ByVal zipPath As String) As Boolean
        Try
            Using zip As ZipFile = ZipFile.Read(zipPath)
                Return False
            End Using
        Catch ex As Exception
            Return True
        End Try
    End Function

    Function IsPasswordValid(ByVal Password As String, ByVal zipPath As String) As Boolean
        Return IIf(ZipFile.CheckZipPassword(zipPath, Password), True, False)
    End Function 


لاتنسى اضافة مجال الاسماء Imports Ionic.Zip

والمكتبة الي اعطاها اياك الاخ عبودي <

الشكر له ولاتشكرني انا

ali.alfoly

17-08-13, 05:40 AM
ممتاز فعلا
جزاك الله خيرا
 ارسلت ليك رسالة على الخاص

الشاكي لله

17-08-13, 05:44 AM
ali.alfoly كتب :ممتاز فعلا
جزاك الله خيرا
 ارسلت ليك رسالة على الخاص

تم الرد :d

3booody

17-08-13, 11:58 AM
[COLOR="#000080"]نعم اخي الشاكي لله جزاك الله خيرآ
لكن انتبه لايتم اطلاق استثناء في حالة الملف معطوب فقط ايضآ في حالة يحتوي على كلمة سر[/COLOR]

3booody

17-08-13, 12:45 PM
هذا مثال راح يفي بالغرض
وضعت لك لكل خطأ رسالة خاصة

[ATTACH=CONFIG]3786[/ATTACH]

ali.alfoly

17-08-13, 04:02 PM
بعد اذنك اخى 3booody واخى الحبيب [url="http://vb4arb.com/vb/member.php?454-%D8%A7%D9%84%D8%B4%D8%A7%D9%83%D9%8A-%D9%84%D9%84%D9%87"]الشاكي لله
[/url]
ورجاء من كل الاخوة اريد ان نتعاون فى شرح معظم الدوال الموجودة فى المكتبه لتحصل اقصى استفادة منها

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

على فكرة والله ياجماعة من فترة كبيرة جدا وانا ايحث عن ذلك ( هذه المكتبه كنز حقيقى )

ali.alfoly

17-08-13, 04:10 PM
بسم الله

التحقق من سلامة ملف ZIP

كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button4_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button4.Click[/color]

        [color=#0000FF]Dim[/color][color=#000000] Check_Zip [/color][color=#0000FF]As[/color] [color=#0000FF]Boolean[/color][color=#000000] = [/color][color=#0000FF]False[/color]

        [color=#0000FF]Try[/color]
            [color=#008000]' التحقق من سلامة الملف[/color]
[color=#000000]            Check_Zip = Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].CheckZip([/color][color=#A31515]"مسار الملف"[/color][color=#000000])[/color]
        [color=#0000FF]Catch[/color][color=#000000] ex [/color][color=#0000FF]As[/color] [color=#2B91AF]Exception[/color]
            [color=#008000]' اذا حدث خطاء[/color]
[color=#000000]            MsgBox(ex.Message)[/color]
        [color=#0000FF]End[/color] [color=#0000FF]Try[/color]

        [color=#0000FF]If[/color][color=#000000] Check_Zip [/color][color=#0000FF]Then[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الملف جيد"[/color][color=#000000])[/color]
        [color=#0000FF]Else[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الملف تالف"[/color][color=#000000])[/color]
        [color=#0000FF]End[/color] [color=#0000FF]If[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]


هذه الدالة على شكلين

الشكل الاول انظر الصورة
[ATTACH=CONFIG]3795[/ATTACH]
وهى تقبل معامل برمتر واحد وهو مسار الملف


الشكل الثانى انظر الصورة
[ATTACH=CONFIG]3796[/ATTACH]
وهو يقبل 3 معاملات برمترات
الاول : هو مسار الملف
الثانى :هو إصلاح الملف إذا لزم الأمر ويكون اما True للاصلاح او False لعدم الاصلاح
الثالث: لا اعرف

رجاء من الاخوة تجربة الدالة على ملف معطوب وشرح البرمتر الثالث للدالة الثانية

الدالتين يرجعو بقيمه بولونيه
ام True فى حالة سلامة الملف او False فى حالة تلف الملف

ali.alfoly

17-08-13, 04:14 PM
بسم الله

التحقق من الرقم السرى

كود :
[color=#0000FF]Private[/color] [color=#0000FF]Sub[/color][color=#000000] Button4_Click(sender [/color][color=#0000FF]As[/color] [color=#0000FF]Object[/color][color=#000000], e [/color][color=#0000FF]As[/color] [color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles[/color][color=#000000] Button4.Click[/color]

        [color=#0000FF]Dim[/color][color=#000000] Check_Zip_Password [/color][color=#0000FF]As[/color] [color=#0000FF]Boolean[/color][color=#000000] = [/color][color=#0000FF]False[/color]

        [color=#0000FF]Try[/color]
            [color=#008000]' التحقق من سلامة الرقم السرى[/color]
[color=#000000]            Check_Zip_Password = Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].CheckZipPassword([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000], [/color][color=#A31515]"12345"[/color][color=#000000])[/color]
        [color=#0000FF]Catch[/color][color=#000000] ex [/color][color=#0000FF]As[/color] [color=#2B91AF]Exception[/color]
            [color=#008000]' عند حدوث خطاء[/color]
[color=#000000]            MsgBox(ex.Message)[/color]
        [color=#0000FF]End[/color] [color=#0000FF]Try[/color]

        [color=#0000FF]If[/color][color=#000000] Check_Zip_Password [/color][color=#0000FF]Then[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الرقم السرى صحيح"[/color][color=#000000])[/color]
        [color=#0000FF]Else[/color]
[color=#000000]            MsgBox([/color][color=#A31515]"الرقم السرى غير صحيح"[/color][color=#000000])[/color]
        [color=#0000FF]End[/color] [color=#0000FF]If[/color]

    [color=#0000FF]End[/color] [color=#0000FF]Sub[/color]


هذه الدالة لها شكل واحد فقط انظر الصورة
[ATTACH=CONFIG]3797[/ATTACH]

وهى تقبل معاملان برمتران
المعامل الاول : مسار الملف
المعامل الثانى : الرقم السرى

الداله ترجع بقيمه بولونيه
ام True فى حالة النجاح وتوافق الرقم السرى او False فى حالة الفشل او اختلاف الرقم السرى

ali.alfoly

17-08-13, 04:20 PM
شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب
كود :
[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]
ولو حد عنده ملف معطوب ياريت يجربها

الشاكي لله

17-08-13, 07:07 PM
ali.alfoly كتب :شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب
كود :
[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]
ولو حد عنده ملف معطوب ياريت يجربها


تقدر تسوي ملف معطوب بسهولة

افتح الارشيف بواسطة النوت باد

واحذف لك كم حرف واحفظ

طريقة تقليدية ههههههه
الصفحات : 1 2 3 4 5
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > موضوع مهم جدا جدا ( فك ضغط ملف zip )