|
Delphi實(shí)現(xiàn)文件下載UrlDownloadToFile UrlDownloadToFile是一個(gè)非常不錯(cuò)的函數(shù)，我們可以用它來(lái)下載各種格式的圖片、音樂(lè)、文件等等。 Uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); const // URL Location SourceFile:='http://www.0523www.como/images/logo.gif'; // Where to save the file DestFile := 'c:\3k2.gif'; begin if DownloadFile(SourceFile, DestFile) then begin ShowMessage('下載成功!'); // Show downloaded image in your browser ShellExecute(Application.Handle,PChar('open'),PChar(DestFile),PChar(''),nil,SW_NORMAL) end else ShowMessage(SourceFile+'下載出錯(cuò)!') end; 如果涉及批量下載，那么在上例中Button1Click我們可以這樣寫(xiě)： procedure TForm1.Button1Click(Sender: TObject); //---自己定義一個(gè)URL List和文件命名的List---// begin if DownloadFile(URLList, FileName) then begin ShowMessage('下載成功!'); ShellExecute(Application.Handle,PChar('open'),PChar('路徑'+FileName+'.exe'),PChar(''),nil,SW_NORMAL) //這句用不上，就閃掉，只做下載測(cè)試用。 end else ShowMessage(URLList+'下載出錯(cuò)!') end; |
|
|
來(lái)自： 遠(yuǎn)在南非 > 《IDhttp》
