delphi软件编程培训班第21节

1、Delphi软件编程培训班第21节介绍：用Delphi实现文件下载的几种方法说明：有个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自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 := 代理服务器的IP地址; NMHTTP1.ProxyPort := 代理服务器的端口号; 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); 其中最后一个参数你还可以传入一个IBindStatusCallback的实现以跟踪下载进度或控制中止下载。简单的场合一句话就搞定了。 BTW, URL Moniker封装了大多数URL，而不是像NMHTTP那样封装协议，因此你可以用URLDownloadToFile下载HTTP，FTP甚至本地文件和局域网文件，还有其他的custom moniker，比如MSITSTORE（MSDN Library的文档moniker实现）。 var DownLoadFile:TFileStream; beginio DownLoadFile:=TFileS