المشاركات : 145
المواضيع 41
:
: 74
الإنتساب : Mar 2017
السلام عليكم و رحمة الله تعالى و بركاته
أريد عمل برنامج يقوم بتحميل ملف من رابط مباشر من دروبكس أو مديا فاير
فكيف أستطيع عمل ذلك
المشاركات : 145
المواضيع 41
:
: 74
الإنتساب : Mar 2017
لقد تمكنت من الوصول إلى الحل و هو كالتالي:
نضيف العناصر التالية للنموذج:
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;
المشاركات : 76
المواضيع 15
:
: 0
الإنتساب : Sep 2010
02-07-2020, 04:29 PM
(آخر تعديل لهذه المشاركة: 02-07-2020, 04:36 PM بواسطة وليد غديري.)
Stream.position:=0;
وبعدها
Stream.savetofile
بامكانك وضع progressebarليظهر عملية التحميل بالنسبه المئوية
نسيت شيئا مهما وهو استعمال tfilestream بدلmemorystreamلانه اذا كان حجم الملف كبير سيجهد الذاكرة
المشاركات : 145
المواضيع 41
:
: 74
الإنتساب : Mar 2017
المشاركات : 551
المواضيع 48
:
: 298
الإنتساب : Dec 2008
السلام عليكم
شكرا لمشاركة تجربتك
اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر
المشاركات : 145
المواضيع 41
:
: 74
الإنتساب : Mar 2017
إقتباس :[size=small]اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر[/size]
شكرا جزيلا أخي سوف أطلع عليها