16-06-2020, 11:28 PM
20-06-2020, 08:21 PM
لقد تمكنت من الوصول إلى الحل و هو كالتالي:
نضيف العناصر التالية للنموذج:
IdHTTP
Button
IdAntiFreeze
و نضع الكود التالي خلف زر الأمر:
نضيف العناصر التالية للنموذج:
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;
02-07-2020, 04:29 PM
Stream.position:=0;
وبعدها
Stream.savetofile
بامكانك وضع progressebarليظهر عملية التحميل بالنسبه المئوية
نسيت شيئا مهما وهو استعمال tfilestream بدلmemorystreamلانه اذا كان حجم الملف كبير سيجهد الذاكرة
وبعدها
Stream.savetofile
بامكانك وضع progressebarليظهر عملية التحميل بالنسبه المئوية
نسيت شيئا مهما وهو استعمال tfilestream بدلmemorystreamلانه اذا كان حجم الملف كبير سيجهد الذاكرة
02-07-2020, 10:49 PM
بارك الله فيك أخي الكريم
05-07-2020, 10:16 PM
السلام عليكم
شكرا لمشاركة تجربتك
اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر
شكرا لمشاركة تجربتك
اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر
06-07-2020, 07:49 AM
إقتباس :[size=small]اظن ان مجلة دلفي للحرب تحوي موضوع مثل هذا راجعها ان كنت مهتم اكثر[/size]شكرا جزيلا أخي سوف أطلع عليها