delphi删除文件:用Delphi实现文件下载的几种思路方法来源: 发布时间:星期五, 2008年12月26日 浏览:56次 评论:0
我主页: http://www.tommstudio.com/
笔者最近开发系统中需要写个下载文件功能以前用BCBAPI写很烦琐忽然想起有个API就可以搞定了于是大早就来搜索这个API就是UrlDownloadToFile不仅如此Delphi些Control控件也可以轻松实现下载如NMHTTP指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名指定Get就可以下载了下面是详细代码均出自CSDN我把它们都整理到这儿让大家方便查阅 uses UrlMon; function DownloadFile(Source, Dest: ): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end; end; DownloadFile(''http://www.borland.com/delphi6.zip, ''c:\kylix.zip'') then ShowMessage(''Download succesful'') ShowMessage(''Download unsuccesful'') 例程: Uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: ): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1.Click(Sender: TObject); const // URL Location SourceFile := ''http://www.google.com/l/de/images/home_title.g''; // Where to save the file DestFile := ''c:\temp\google-image.g''; begin 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 ShowMessage(''Error while downloading '' + SourceFile) end; = 加入如下代码: NMHTTP1.InputFileMode := 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 := ''用户名称''; Password := ''用户口令''; End; NMHTTP1.Get(‘http://www.abcdefg.com/software/a.zip''); 试试吧Delphi目录中有TNMHTTPControl控件例子NT4+,Win95+,IE3+,你可以用URL Moniker功能 uses URLMon; ... OleCheck(URLDownloadToFile(nil,''URL'',''Filename'',0,nil)); 其中最后个参数你还可以传入个IBindStatusCallback实现以跟踪下载进度或控制中止下载简单场合句话就搞定了 BTW, URL Moniker封装了大多数URL而不是像NMHTTP那样封装协议因此你可以用URLDownloadToFile下载HTTPFTP甚至本地文件和局域网文件还有其他custom moniker比如MSITSTORE(MSDN Library文档moniker实现) var DownLoadFile:TFileStream; beginio DownLoadFile:=TFileStream.Create(''c:\aa.rar'',fmCreate); IdHTTP1.Get(''http://www.sina.com.cn/download/aa.rar'',DownLoadFile); DownLoadFile.Free; end; //--------------------------- 结束 0
相关文章读者评论发表评论 |