+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود تحميل ملف من رابط مباشر (/showthread.php?tid=10911)
كود تحميل ملف من رابط مباشر - صالح حمادي - 16-06-2020
السلام عليكم و رحمة الله تعالى و بركاته
أريد عمل برنامج يقوم بتحميل ملف من رابط مباشر من دروبكس أو مديا فاير
فكيف أستطيع عمل ذلك
RE: كود تحميل ملف من رابط مباشر - صالح حمادي - 20-06-2020
لقد تمكنت من الوصول إلى الحل و هو كالتالي:
نضيف العناصر التالية للنموذج:
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;
RE: كود تحميل ملف من رابط مباشر - وليد غديري - 02-07-2020
Stream.position:=0;
وبعدها
Stream.savetofile
بامكانك وضع progressebarليظهر عملية التحميل بالنسبه المئوية
نسيت شيئا مهما وهو استعمال tfilestream بدلmemorystreamلانه اذا كان حجم الملف كبير سيجهد الذاكرة
RE: كود تحميل ملف من رابط مباشر - صالح حمادي - 02-07-2020
بارك الله فيك أخي الكريم
RE: كود تحميل ملف من رابط مباشر - mobile - 05-07-2020
السلام عليكم
شكرا لمشاركة تجربتك
اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر
RE: كود تحميل ملف من رابط مباشر - صالح حمادي - 06-07-2020
إقتباس :[size=small]اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر[/size]شكرا جزيلا أخي سوف أطلع عليها