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

عزيزي الزائر/عزيزتي الزائرة ، مرحبا بك في منتديات هوفو نت.
لتتمكن من الإستمتاع بكافة ما يوفره لك هذا المنتدى من خصائص, يجب عليك أن تسجل الدخول الى حسابك في المنتدى. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه فهو مجاني.
شكرا.
إدارة المنتدى.

منتديات ستار أوت

كــــل ما تحتـــاجه موجـــــــــــــــــــــود هنـــــــــــــــــــــــــــا
 
الرئيسيةالرئيسية  البوابةالبوابة  اليوميةاليومية  التسجيلالتسجيل  دخولدخول  
<

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
فارس ستار
المدير العام للمنتدى
المدير العام للمنتدى
avatar

عدد المساهمات : 374
تاريخ التسجيل : 29/03/2011
الموقع : www.starout.alafdal.net

مُساهمةموضوع: كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة   الثلاثاء فبراير 28, 2012 11:02 pm


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

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

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

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

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

2 label

2 edit

2 button

1 Save dialog

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



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

.....




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






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


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


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

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





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

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



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


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


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

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



نهاية التحميل



ولمن أراد إضافة البروغراس بار وتقسيم الملف فليجتهد هههه


وأخيراً البرنامج التنفيذي لمن أراد التجريب + السورس
sendspace.com kknlb6

تحياتي أخوكم مصطفى



 هوفو نتالموضوعالأصلي : كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة  المصدر : منتديات هوفو نتhofonet.com
آخر مواضيع :فارس ستار

فارس ستار; توقيع العضو




منتديات ستار أوت

لشكواكم ضد منتدانا الحبيب أو أعضاء المنتدى يرجى الاتصال بالدارة أو طلح شكواكم هنا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
الاشواق
عضو أساسي
عضو أساسي
avatar

عدد المساهمات : 889
تاريخ التسجيل : 19/06/2011
العمر : 27

مُساهمةموضوع: رد: كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة   الأربعاء مارس 07, 2012 4:29 pm



 هوفو نتالموضوعالأصلي : كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة  المصدر : منتديات هوفو نتhofonet.com
آخر مواضيع :الاشواق

الاشواق; توقيع العضو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
mazen audi
مشرف عام
مشرف عام
avatar

عدد المساهمات : 320
تاريخ التسجيل : 06/03/2012
العمر : 28

مُساهمةموضوع: رد: كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة   الثلاثاء أبريل 03, 2012 6:42 pm

عنجد روووووعة مرسي كتير يا غااالي tue


 هوفو نتالموضوعالأصلي : كـيـفيـــة صنع برنامج لتحميـــل الملفــــــــات مثــل Idman خطوة خطوة  المصدر : منتديات هوفو نتhofonet.com
آخر مواضيع :mazen audi

mazen audi; توقيع العضو
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات ستار أوت :: إشهار المواقع والمنتديات :: لغات البرمجة-