+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : موضوع مهم جدا جدا ( فك ضغط ملف zip ) (/showthread.php?tid=10099)
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - الشاكي لله - 17-08-13
تفضل كتبت لك طلبك على شكل دالتين
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
والمكتبة الي اعطاها اياك الاخ عبودي <
الشكر له ولاتشكرني انا
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
ممتاز فعلا
جزاك الله خيرا
ارسلت ليك رسالة على الخاص
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - الشاكي لله - 17-08-13
ali.alfoly كتب :ممتاز فعلا
جزاك الله خيرا
ارسلت ليك رسالة على الخاص
تم الرد :d
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 17-08-13
[COLOR="#000080"]نعم اخي الشاكي لله جزاك الله خيرآ
لكن انتبه لايتم اطلاق استثناء في حالة الملف معطوب فقط ايضآ في حالة يحتوي على كلمة سر[/COLOR]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 17-08-13
هذا مثال راح يفي بالغرض
وضعت لك لكل خطأ رسالة خاصة
[ATTACH=CONFIG]3786[/ATTACH]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
بعد اذنك اخى 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]
ورجاء من كل الاخوة اريد ان نتعاون فى شرح معظم الدوال الموجودة فى المكتبه لتحصل اقصى استفادة منها
وبعد كده يتم تجميع جميع الشروحات فى كتاب ويتم طرحه للجميع يستفسد منه
على فكرة والله ياجماعة من فترة كبيرة جدا وانا ايحث عن ذلك ( هذه المكتبه كنز حقيقى )
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
بسم الله
التحقق من سلامة ملف 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 فى حالة تلف الملف
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
بسم الله
التحقق من الرقم السرى
كود :
[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 فى حالة الفشل او اختلاف الرقم السرى
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب
كود :
[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]موضوع مهم جدا جدا ( فك ضغط ملف zip ) - الشاكي لله - 17-08-13
ali.alfoly كتب :شؤال هل هذه الدالة تقوم باصلاح الملف المعطوب
ولو حد عنده ملف معطوب ياريت يجربهاكود :
[color=#000000]Ionic.Zip.[/color][color=#2B91AF]ZipFile[/color][color=#000000].FixZipDirectory([/color][color=#A31515]"C:\tst.zip"[/color][color=#000000])[/color]
تقدر تسوي ملف معطوب بسهولة
افتح الارشيف بواسطة النوت باد
واحذف لك كم حرف واحفظ
طريقة تقليدية ههههههه