delphi軟件編程培訓(xùn)班第21節(jié)

1、Delphi軟件編程培訓(xùn)班第21節(jié)介紹：用Delphi實現(xiàn)文件下載的幾種方法說明：有個API就是UrlDownloadToFile。不僅如此，Delphi的一些控件也可以輕松實現(xiàn)下載，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body為本地文件名，指定Get就可以下載了。下面是詳細(xì)代碼，均出自CSDN。我把它們都整理到這兒，讓大家方便查閱。 uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(n

2、il, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; if DownloadFile(/delphi6.zip, c:kylix.zip) then ShowMessage(Download succesful) else ShowMessage(Download unsuccesful) = 例程： Uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try R

3、esult := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1.Click(Sender: TObject); const / URL Location SourceFile := /intl/de/images/home_title.gif; / Where to save the file DestFile := c:tempgoogle-image.gif; begin if

4、 DownloadFile(SourceFile, DestFile) then begin ShowMessage(Download succesful!); / Show downloaded image in your browser ShellExecute(Application.Handle,PChar(open),PChar(DestFile),PChar(),nil,SW_NORMAL) end else ShowMessage(Error while downloading + SourceFile) end; = 加入如下代碼： NMHTTP1.InputFileMode

5、:= ture; NMHTTP1.Body := 本地文件名; NMHTTP1.Header := Head.txt; NMHTTP1.OutputFileMode := FALSE; NMHTTP1.ReportLevel := Status_Basic; NMHTTP1.Proxy := 代理服務(wù)器的IP地址; NMHTTP1.ProxyPort := 代理服務(wù)器的端口號; With NMHTTP1.HeaderInfo do Begin Cookie := ; LocalMailAddress := ; LocalProgram := ; Referer := ; UserID := 用

6、戶名稱; Password := 用戶口令; End; NMHTTP1.Get(/software/a.zip); 試試吧，Delphi的目錄中有TNMHTTP控件的例子。NT4+,Win95+,IE3+,你可以用URL Moniker的功能。 uses URLMon; . OleCheck(URLDownloadToFile(nil,URL,Filename,0,nil); 其中最后一個參數(shù)你還可以傳入一個IBindStatusCallback的實現(xiàn)以跟蹤下載進度或控制中止下載。簡單的場合一句話就搞定了。 BTW, URL Moniker封裝了大多數(shù)URL，而不是像NMHTTP那樣封裝協(xié)議，因此你可以用URLDownloadToFile下載HTTP，F(xiàn)TP甚至本地文件和局域網(wǎng)文件，還有其他的custom moniker，比如MSITSTORE（MSDN Library的文檔moniker實現(xiàn)）。 var DownLoadFile:TFileStream; beginio DownLoadFile:=TFileS