+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لماذا برنامج التحميل يتجمد !! (/showthread.php?tid=2922)
لماذا برنامج التحميل يتجمد !! - gladiator16 - 23-03-2011
السلام عليكم ورحمة الله وبركاته
صنعت برنامج للتحميل لاكن المشكل ان البرنامج يتجمد
يعني مثلا لا استطيع تحريك الفورم او الانتقال الى صفحة ثانية وعند تصغير البرنامج ومحاولة ان اعيد مشاهدة لا يضهر الا بعد التحميل هذا الكود سورس
كود :
procedure tform2.button2click(sender: Tobject);
var fil:tfilestream;
begin
if (copy(edit1.text,0,7)='http://')and (length(edit1.text)>7) then begin //http://
if edit1.text <>'http://' then begin
if edit2.text='c:\' then button1.click ;
tabsheet2.show ;
memo1.lines.add('[ '+datetostr(date) +' | ' +timetostr(time)+ ' ] : '+'download ' +
'file : '+edit1.text+ '....') ;
fil:=tfilestream.create(edit2.text,fmcreate);
try
idhttp1.get(edit1.text,fil);
finally
fil.free;
end;
end else showmessage('please type your http download link !');
end else showmessage('link incorrect ! ') ;
end;لماذا برنامج التحميل يتجمد !! - TF6M - 23-03-2011
و عليكم السلام و رحمة الله و بركاته
راجع هذا الموضوع : [تمرين ]برمجة Updater تحديث للبرنامج عبر الأنترنت
بالتوفيق,,
لماذا برنامج التحميل يتجمد !! - palunix - 23-03-2011
اتوقع اخي الكريم عليك بدراسة الثرد وفهم كيفية استخدامه