用 Delphi 下载网

时间： 2021-07-31 作者：daque

兴建一个工程,放上一个tidhttp控件，一个tidantifreeze控件，一个tprogressbar用来表露载入进度。结果放上一个tbutton用来发端实行咱们的吩咐。代码如次：

procedure tform1.button2click(sender: tobject);var mystream:tmemorystream;begin idantifreeze1.onlywhenidle:=false;//树立使步调有反馈. mystream:=tmemorystream.create; try //载入我站点的一个zip文献 idhttp1.get('http://www.138soft.com/download/mp3toexe.zip',mystream); except//indy控件普遍要运用这种try..except构造. showmessage('搜集堕落!'); mystream.free; exit; end; mystream.savetofile('c:\mp3toexe.zip'); mystream.free; showmessage('ok');end;procedure tform1.idhttp1workbegin(sender: tobject; aworkmode: tworkmode; const aworkcountmax: integer);begin progressbar1.max:=aworkcountmax; progressbar1.min:=0; progressbar1.position:=0;end;

idhttp1的get再有一种情势即是获得字符串：比方，上头的步调不妨改写成：procedure tform1.button1click(sender: tobject);var mystr:string;begin idantifreeze1.onlywhenidle:=false;//树立使步调有反馈. try mystr:=idhttp1.get('http://www.138soft.com/default.htm'); except showmessage('搜集堕落!'); exit; end; showmessage(mystr);end;

用 Delphi 下载网

相关推荐

推荐下载

热门阅览

最新排行