用 URL 下載檔案

bestlong

在 uese 宣告 URLMon
然後加入下列函數

1. function DownloadFile(Source, Dest: string): Boolean;
   
2. begin
   
3.   try
   
4.     Result :=  UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
   
5.   except
   
6.     Result := False;
   
7.   end;
   
8. end;
   
9. 
   
10. // Example:
    
11. procedure TForm1.Button1Click(Sender: TObject);
    
12. begin
    
13.   if DownloadFile  ('http://www.delphi3000.com/index.htm, 'c:\index.htm') then
    
14.    ShowMessage('Download successful')
    
15.   else
    
16.    ShowMessage('Download unsuccessful')
    
17. end;

複製代碼