23-03-2011, 07:23 PM
السلام عليكم ورحمة الله وبركاته
صنعت برنامج للتحميل لاكن المشكل ان البرنامج يتجمد
يعني مثلا لا استطيع تحريك الفورم او الانتقال الى صفحة ثانية وعند تصغير البرنامج ومحاولة ان اعيد مشاهدة لا يضهر الا بعد التحميل
هذا الكود سورس
صنعت برنامج للتحميل لاكن المشكل ان البرنامج يتجمد
يعني مثلا لا استطيع تحريك الفورم او الانتقال الى صفحة ثانية وعند تصغير البرنامج ومحاولة ان اعيد مشاهدة لا يضهر الا بعد التحميل هذا الكود سورس
كود :
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;