كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة

السلام عليكم ورحمة الله وبركاته

اليوم بإذن الله سنقوم بصنع برنامج لتحميل الملفات عن طريق النت بالدلفي

سأحاول تسهيل الموضوع بقدر الإمكان

وأي إستفسار أنا هنا

وأحاول تطوير البرنامج مرحلة مرحلة ليسهل الفهم

أولا سنقوم بإضافة المكونات التالية للفورم

2 label

2 edit

2 button

1 Save dialog

1 Id http ستجدونه في indy Client كما توضح الصورة

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة Httpr

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة Httpr

هذه صورة للمكونات مع إعادة تمسيتها Download , Save File As

.....

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 60032751

الآن ننتقل إلى الكود
أولا الكود الموجود في الزر Save File As

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 96806115

-----------------------------
شرح الكود
------------------------------
أولا قمنا بالتصريح عن متغير تحت إسم DelimeterPos
ومن ثم قمنا بإعطاء هذا المتغير قيمة هذه القيمة هي مرتبة الحرف '/' في سلسة من الحروف
بعد الحصول على هذا المتغير نستعين بالدالة Copy من أجل تقطيع إسم الملف
ونعطي إسم الملف لنافذة الحوار المخصصة لحفظ الملف Save dialog
وبعد هذا نجد دالة شرطية if ..then لإختيار مكان حفظ الملف المراد تحميله
وبعد ذلك يظهر إسم الملف في الـ edit1 كما في الصورة

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 14655166

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 14655166

------------------------------
الآن سنشرح الجزء الثاني الخاص بالزر Download
------------------------------

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 85949735

نقوم بالتصريح عن TMemoryStream
الميموري ستريم يمكنك من إنشاء ملفات والقيام بإضافة بيتات لها وهو الذي سينفعنا هن
نقوم بإنشاءه في السطر الأول و السطر الثاني نقوم بإستدعاء الدالة get المسؤولة عن تحميل البايتات إلى الملف
وفي السطر الثالث نقوم بحفظ البايتات في الملف
وفي الأخير نحرر الميموري ستريم

-----------------------
لتشغيل البرنامج نضع رابط الملف في الـ edit التي توجد أمام URL
ونضغط على زر Save File
ومن تم نختار إسما للملف وصيغة له وبعد ذلك نضعط على enregistrer
ونضغط تحميل Download ستلاحظون ثقل في عملية التحميل
سأطرح لكم كيفية حل هذا المشكل لاحقا

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 55668523

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 55668523

الآن ننتقل إلى مرحلة تطوير برنامجنا وإضافة بعض اللمسات الفنية

أولا سنحاول القضاء على الثقل الرهيب الموجود أثناء تحميل الملفات ولهذا الصدد سنقوم بإضافة مكون إسمه idAntiFreeze ستجدونه في خانة Indy Misc كما توضح الصورة التالية :

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 52774017

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 52774017

بعد إضافته للفورم نقوم بتغيير الخاصية IdleTimeout إلى
قيمة صغيرة لأن هذه الخاصية هي المسؤولة عن تخفيف التحميل , لكي نستطيع في
نفس وقت التحميل التحكم بحجم البرنامج تصغيره أو تكبيره أو إنهاء التحميل
أو ما إلى ذلك ..
سنقوم بتغييرها للقيمة 10 كما توضح الصورة

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 70536279

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 70536279

بعد ذلك نقوم بتشغيل برنامجنا وتجريبه هل فعلا أصبح خفيف في التحميل
وذلك على الزر F9
والآن هي نضيف بعض الإحترافية لبرنامجنا
أولا سنذهب إلى مكون الـ id http
ونختار حدث OnWork هذا الحدث سيساعدنا لأنه يملك برامتر بعد البايتات التي تم إستقبالها من السيرفر
وإسم البرامتر AWorkCount وهو من نوع متغير integer
سنقوم أولا بإضافة Label ثالثة للفورم ونجعلها فارغة
ونضيف الكود التالي في حدث OnWork كما توضح الصورة

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 10dm

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 10dm

--------------------------
شرح الكود
----------------------------
أولا قمنا بالتصريح عن متغيرين File_Size و Received_Bytes وكلاهما من نوع متغير integer
في السطر الأول قمنا بإعطاء متغير الـ File_Size حجم الملف
وفي السطر الثاني قمنا بإعطاء المتغير Received_Bytes حجم البايتات المستقبلة أي كما ذكرنا سابقا AworkCount
وفي السطر الثالث طلبنا من الـ label التي أضفنها في الفورم
أن تظهر لنا المعلومات عن الحالة وذلك بتغيير كلا المتغيرين إلى سلسلة حرفية حتي تتمكن الـ label من قرائتها
وفي حدث OnWorkEnd طلبنا من label أن تظهر لنا بأن التحميل إنتهى
نقوم بالعودة الآن إلى الزر Save File ونضيف بعد الدالة الشرطية
تفريغ الـ label
lbl3.Caption:=''

وهذه بعض الصور
بداية تحميل الملف

كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة 71310598