[تمرين]برنامج لتقسـيم وجمع الملفات File Splitter & Joiner

[B.M.AbdelAziZ]

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

تمرين برنامج لتقسـيم وجمع الملفات File Splitter & Joiner
انشا برنامج لتقسيم الملفات الكبيرة الى عدة ملفات اخرى والعكس جمع عدة ملفات بملف واحد

البرنامج يقوم:
تقسيم ملف الى عدة ملفات حسب حجم معين
تقسيم ملف الى عدد معين من الملفات
جمع عدد من الملفات الى ملف واحد
مثال برنامج FFSJ: The Fastest File Splitter and Joiner
http://www.delphi4arab.com/images/File Splitter & Joiner V3.3.gif
الموقع

http://www.jaist.ac.jp/~hoangle/filesj/

التمرين ليس انشاء برنامج مشابه 100% بل فقط برنامج مشابه دون تشفير أو ضغط أو هاش MD5
لاحقة الملفات المقسمة اما تكون من الشكل .001 .002 .003 ... يمكن تجربة برنامج FFSJ كمثال

مدة التمرين: 10 ايام (بعدها ان لم يكن هناك حل صحيح اضع حل)

ملاحظة: الصورة فوق وجدتها بالبحث في google فلا تهتمو لكلمة ضغط فهذا خارج عن التمرين للتبسيط

[paix144]

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

[B.M.AbdelAziZ]

وعليكم السلام ورحمة الله
الحل ناقص،
للمستخدم حرية اختيار حجم الملفات أو عددها

[syscall]

السلام عليكم

اخي B.M.AbdelAziZ الحل موجود ولا حاجه للتعب :)
برنامج صنعه شخص يدعى Yavuz Ertem وهو مكتب بالدلفي الاصدار 7
وهذا الرابط
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=2054&lngWId=7
يبدو انني اخذت العلامة كاملة بدون مااكتب سطر شيفرة واحد :)

تحياتي للجميع

[B.M.AbdelAziZ]

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

[syscall]

السلام عليكم

من اهداف التمرين قيام المشارك بالحل بنفسه وليس وضع حلول غيره
أنا معك في هذا ولكن لو كنت استخدمت شيفرته مع بعض التعديل على الواجهه هل كنت سوف اخذ العلامة كامله وهل هذا لا يعتبر غش
يعني اغلب الذين يقومون بحل مسألة ما يقومون بالبحث عن الحل في حال لم يجدوا الحل يقومون بابتكاره
وأنا اعتبر التمارين السابقه التي قمت بطرحها كانت رائعة لانها تقوم بتحفيز المبرمج على ان يقوم بكتابة بعض الشيفرة حتى وان نقل بعض الحلول من اطراف اخرى لكن أضاف لمسته اليها
ولكن هذا التمرين لا استطيع اضافة اي شيء عليه لان الفكرة موجوده ولاحاجه لإضافة اي شيء عليه
أسف للاطاله ومقبوله منك علامة الصفر لانني لست أنا من حلها ولكن حلها Yavuz Ertem وهو الذي اخذ العلامة الكامله بدون ان يدري
والسلام ختام

[TF6M]

- قوة/أداء المبرمج من من يملك إحتمالات أكبر (The Power Of Imagination) لحل الـ Problems .
مسألة نقل الحلول و البحث في غوغل أمر نسبي , لا يمكن القياس عليه , أظن أن التمرين موجه لمن يملك الإظافة :)

[paix144]

يمكن الاستعانة ببعض المكونات
مثل TFileSplitter
http://www.sedlan.com/download.php?7split.zip
http://sedlan.tripod.com

[B.M.AbdelAziZ]

وعليكم السلام ورحمة الله
لو كنت استخدمت شيفرته مع بعض التعديل على الواجهه هل كنت سوف اخذ العلامة كامله وهل هذا لا يعتبر غش...هذا التمرين لا استطيع اضافة اي شيء عليه لان الفكرة موجوده ولاحاجه لإضافة
التمرين تحدي بين المشارك ونفسه وليس بينه وغيره من المشاركين
الحل نفسه ليس غاية بل وسيلة تحث الاعضاء على المشاركة والتفكير و تعلم اساليب مختلفة
أنظر مسالة التعامل مع الملفات
مثلا paix144 استخدم Stream (لاحظ يمكن لاحد ان يستخدم MemoryStream واخر FileStream وهذا فرق)
واخر ان يستخدم اسلوب Pascal القديم في دوال مثل AssignFile
وأخر FileOpen
وأخر طليع بدوال API ان يستخدم دوال مثل CreateFile
واخر...
من يشارك بالتمرين يستمتع بايجاد حل مختلف عما طرحه غيره
من لا يسارك بالتمرين يكتشف اساليب وطرق جديدة يتعلم منها
يمكن الاستعانة ببعض المكونات
من استطاع العمل دون مكونات احسن
من لم يستطع لا باس

[cargem]

هذا نصف حل من تأليفي
نود تشجيعكم
تحياتي

[hanipino]

السلام عليكم

محاولتى :)

[cargem]

هذه محاولتي ( 300kb )

[cargem]

الحل النهائي
http://img31.imageshack.us/img31/3934/picture0001p.png

[paix144]

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

[delphiwin2007]

بارك الله فيكم جميعا ، هذا مشوق.

[hanipino]

السلام عليكم

بعد تجريب محاولتى الاولى تبين انه تحدث اخطاء عند التعامل مع ملفات كبيرة الحجم
اعدت محاولتى للتصحيح ... وكتبت قليلا بال asm :)

بالتوفيق

[B.M.AbdelAziZ]

السلام عليكم ورحمة الله
اعتذر للاخوة المشاركين بالموضوع كوني صاحب التمرين
لم يسمح لي الوقت بفحص المشاركات و حلول التمارين
الى ذلك الحين يبقى التمرين مفتوح...

[cargem]

اعدت محاولتى للتصحيح ... وكتبت قليلا بال asm
لو تكرمت حولة للدلفي
تحياتي