+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : تحميل ملف من النت وحفظه في مكان انت تحدده (/showthread.php?tid=13148)
تحميل ملف من النت وحفظه في مكان انت تحدده - أبو عمر - 06-09-15
يعني اذا حابب برنامجك
وفق شرط معين
مثلا اختلاف الاصدارات
مضي وقت على الاصدار الخ....
كود :
[code]
'لجعل الماوس تبان على البرنامج مشغول بعملية
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
Try
' تعمل مستضيف
Dim web_client As WebClient = New WebClient
'تحميل الملف.
web_client.DownloadFile("http://xxx/xx.zip", _
"c:/zzz.zip")
MessageBox.Show("تم تحميل الملف")
Catch ex As Exception
MessageBox.Show(ex.Message, "فشل تحميل الملف", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End Try
Me.Cursor = Cursors.DefaultRE: تحميل ملف من النت وحفظه في مكان انت تحدده - أبو عمر - 06-09-15
(06-09-15, 02:39 PM)Amir_alzubidy كتب : رائع جدا يا حبذا لو كان على ال vb6استاذي العزيز
ونطور الكود اكثر بحيث انه النسخة ترفع الى حقل في قاعدة البيانات sql ويتم استخراجها
جزاك الله خير اخوي ابو عمر وبارك الله فيك
بالنسبة لرفع الملف الى حقل في جدول في قاعدة بيانات
ليس بالامر الصعب لكن المشكلة تكمن في الحجم
لكن ارى ان يتم رفع الملف في مجلد خاص لتحديث البرنامج
وفي حال وجود تحديث اعلى للنسخة بعد عملية الاتصال ما بين البرنامج
وقاعدة البيانات واخذ مثلا قيمة من حقل بالاصدار فاذا كان اعلى نجعل البرنامج ينفذ الكود اعلى
او ببساطة نجعل البرنامج دايما في كل مرة يحاول تنزيل التحديث مباشرة ونترك المجلد فارغ
وعندما نريد التحديث فقط نرفع النسخة الجدلدة للسيرفر
وعند فتح المستخدم للبرنامج لديه يتم اشعارة بوجود تحديث الطرق كثرة
وكلها بتودي لروما