+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 ) - ali.alfoly - 16-08-13
جزاك الله خيرا وجعله فى موازين حسناتك
فعلا انا اصلا مكنتش اعرف الاداة BackgroundWorker
وقدرا انتا استخدمتها وفى موضوع اخر اخونا سعود ايضا استخدمها فعملتلى كركبا فكرت انكم متفقدين عليا ههههههههه
ولاكن اليوم كان يوم جميل جدا تعلمت فيه اشياء كثيرة ومن اهما التعرف على الاداة BackgroundWorker
الان انا ما زلت اتفحص المكتبه بها مجموعة دوال روعه باذن الله بعد ما افهم كل شئ فيها ساقوم بعمل موضوع اشرحها فيه
ولى سؤال الان الدالة zip.ExtractAll تقبل معاملان برمتران 1 - هو المسار 2 - ما هو
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - Abdullah0991 - 16-08-13
البارمتر الثاني هو لتحديد فيما اذا كان هناك ملفات تحمل نفس الاسم هل سيسألك عن الاستبدال او سيقوم بالاستبدال فوراً بدون سؤال Overwrite Mode
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
[COLOR="#800000"]بالنسبة للثاني تستخدم عند الاستخراج فوق ملف موجود
الاول DoNotOverwrite اذا كان الملف موجود عدم الانتزاع فوقه
الثاني InvokeExtractProgressEvent اقتناص حدث خاص تابع للأداة
الثالث OverwriteSilently انتزاع وتبديل الملف الموجود
الرابع Throw رمي استثناء(خطأ)[/COLOR]
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - 3booody - 16-08-13
Abdullah0991 كتب :البارمتر الثاني هو لتحديد فيما اذا كان هناك ملفات تحمل نفس الاسم هل سيسألك عن الاستبدال او سيقوم بالاستبدال فوراً بدون سؤال Overwrite Mode
تحرجني معك عدم وجود ازرار الشكر والاعجاب
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - Abdullah0991 - 16-08-13
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
جزاكم الله خيرا
وجعله فى موازين حسناتكم
لى استفسار
اريد اتحقق من سلامة الملف والتحقق من الرقم السرى
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - الشاكي لله - 17-08-13
ali.alfoly كتب :جزاكم الله خيرا
وجعله فى موازين حسناتكم
لى استفسار
اريد اتحقق من سلامة الملف والتحقق من الرقم السرى
يبدو ان المكتبة الي اعطاها اياك اخي عبوودي جميلة جدا
قمت بدراستها قليلا ووجدت بعض الخصائص الي تحتاجها
خاصية كشف الاخطاء : ZipErrorAction
خاصية التحقق من وجود رقم سري على الملف : Encryption
اعتقد هذا كل الي تحتاجه
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
نعم بالفعل انا مش قادر انام والله فرحان بيها جدا جدا
وياريت لو حدرتك تشرح بعض الدوال الى فيها فى موضوع مستقل حتى يستفيد منه الاخوة
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - الشاكي لله - 17-08-13
ali.alfoly كتب :نعم بالفعل انا مش قادر انام والله فرحان بيها جدا جدا
وياريت لو حدرتك تشرح بعض الدوال الى فيها فى موضوع مستقل حتى يستفيد منه الاخوة
بالتعديل على مشروع الاخ عبوودي
PHP كود :
Private Sub UnzipFile(ByVal sender As Object, ByVal e As DoWorkEventArgs)
Dim extractCancelled As Boolean = False
Dim args() As String = e.Argument
Try
Using zip As ZipFile = ZipFile.Read(txt_ZipFile.Text)
zip.ExtractAll(Save.Text, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
End Using
Catch ex As Exception
MsgBox(ex.Message) 'سيتم اطلاقه اذا الملف خربان'
End Try
End Sub
Function IsPasswordValid(ByVal Password As String, ByRef zipObject As ZipFile) As Boolean
Return IIf(ZipFile.CheckZipPassword(zipObject.Name, Password), True, False)
End Function
اسم الدالة الي تجرب الباسوورد .CheckZipPassword
ولاتحتاج الى خاصية لتجلب لك الاخطاء
في قناص الاخطاء catch سيطلق لو كان الملف معطوب
موضوع مهم جدا جدا ( فك ضغط ملف zip ) - ali.alfoly - 17-08-13
ممتاز فعلا
جزاك الله خيرا
ارسلت ليك رسالة على الخاص