Delphi UrlDownloadToFile 實現(xiàn)文件下載

遠在南非 2010-08-18

展開全文

Delphi實現(xiàn)文件下載UrlDownloadToFile
UrlDownloadToFile是一個非常不錯的函數(shù)，我們可以用它來下載各種格式的圖片、音樂、文件等等。
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+'下載出錯!')
end;

如果涉及批量下載，那么在上例中Button1Click我們可以這樣寫：
procedure TForm1.Button1Click(Sender: TObject);
//---自己定義一個URL List和文件命名的List---//
begin
if DownloadFile(URLList, FileName) then
begin
ShowMessage('下載成功!');
ShellExecute(Application.Handle,PChar('open'),PChar('路徑'+FileName+'.exe'),PChar(''),nil,SW_NORMAL) //這句用不上，就閃掉，只做下載測試用。
end
else
ShowMessage(URLList+'下載出錯!')
end;