برنامج بسيط للتحميل من النت

tahasit شكرا على الموضوع الجيد

لما لا تشارك معنا في الموسوع نريد تقديم درس عن كل المكوناة indy

مع اعطاء امثلة وستجدنب معك ان شاء الله

لما لا أخي الكريم زكيري أنا معكم إن شاء الله

اذا توكل على الله

مقدمت عن indy

اهم المكونات تعاريف بسطة + امثلة

هذا كلما الموضوع

و ان شاء الله ساقدم لك رابط بها دروس او تعاريف ان شاء الله .

سأجمع أكبر قدر ممكن من المعلومات عن مكونات indy وأجعلها على شكل دروس

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

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

لقد حاولت حل الاشكال المشكلة اني على ما اضن وصلت الى نصف الحل

عذرا قد يكون الكود خاطئ لان دلفي ليس معي الآن :wub:

var s,f : string; s:=Edit1.Text;f := Copy (s,LastDelimiter('/',S),Length(S));يمكن استبدال '/' بـ '.' للحصول على الامتداد فقط

المهم الكود مني و حقيقة الامر لست متأكد منه الا انه فعاليته 100% المشكلة الآن هي أني لا اعرف كيف ادرج اسم الملف في الـ SaveDialog

سلامي

tahasit كتب:

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

هذه طريقة بسيطة تستخدم مكونين من مكونات Indy وهما

IdAntiFreeze و IdHTTP1

من أجل تحميل ملف من عنوان URL تقوم أنت بإدخاله

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

تبقى المشكلة أن الملف المنزل لا يحتفظ بإمتداده لذا يجب عليك أن تكتب إمتداده بنفسك مثلا : AA.rar - AA.exe

هذه صورة المثال المرفق :

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

كل من لديه فكرة عن الموضوع يساعد في حل هذا الإشكال

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