كود تحميل ملف من رابط مباشر

[صالح حمادي]

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

[صالح حمادي]

لقد تمكنت من الوصول إلى الحل و هو كالتالي:
نضيف العناصر التالية للنموذج:
IdHTTP
Button
IdAntiFreeze
و نضع الكود التالي خلف زر الأمر:

PHP كود :

var
stream: TMemoryStream ;
link_file, locate_file : string;
begin
     stream :=TMemoryStream.Create ;
      link_file:= 'https://...';  // عنوان التحميل المباشر
      locate_file := 'f:\programme.accdb' ; // العنوان الكامل لمكان حفظ الملف
     try
       IdHTTP1.Get(link_file,stream );
       stream.SaveToFile(locate_file);
       ShowMessage('complete');
     finally
      stream.Free ;
     end;

end; 


[وليد غديري]

Stream.position:=0;
وبعدها
Stream.savetofile
بامكانك وضع progressebarليظهر عملية التحميل بالنسبه المئوية

---

نسيت شيئا مهما وهو استعمال tfilestream بدلmemorystreamلانه اذا كان حجم الملف كبير سيجهد الذاكرة

[صالح حمادي]

بارك الله فيك أخي الكريم

[mobile]

السلام عليكم
شكرا لمشاركة تجربتك
اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر

[صالح حمادي]

[size=small]اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر[/size]

شكرا جزيلا أخي سوف أطلع عليها