Loading... <p><font face="Courier New">用HTTP从网站下载文件 <br /><br /><strong><font color="#ff0000">方法一，用IdHttp：</font></strong> <br />procedure TForm1.Button1Click(Sender: TObject); <br />var <br />fs: TFileStream; <br />begin <br />fs := TFileStream.Create('c:\aaa.htm', fmCreate); <br />IdHTTP1.Get('http://www.abc.com/aaa.shtml', fs); <br />fs.Free; <br />end; <br /></font></p><p><font face="Courier New"><strong><font color="#ff0000">方法二，用UrlMon：</font></strong> <br />uses <br /><font style="BACKGROUND-COLOR: #0a246a" color="#ffffff">UrlMon</font> </font></p><font face="Courier New"><p dir="ltr" style="MARGIN-RIGHT: 0px"><br />function DownloadFile(Source, Dest: string): Boolean; <br />begin <br />try <br /> Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; <br />except <br /> Result := False; <br />end; <br />end;</p><p> <br />procedure TForm1.Button1Click(Sender: TObject); <br />begin <br />if DownloadFile(edit1.Text, edit2.Text) then <br /> ShowMessage('下载成功') <br />else ShowMessage('下载失败'); <br />end; </p></font> 相关文章 无相关文章 Last modification：August 16th, 2009 at 12:30 pm © 允许规范转载