1 2 下一页
笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。我把它们都整理到这儿，让大家方便查阅。
uses UrlMon;
function DownloadFile(Source, Dest:
string): Boolean;
begin
try
Result := UrlDownloadToFile(nil,
PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
if DownloadFile('http:
//www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')
========================
例程：
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.Button1.Click(Sender: TObject);
const
// URL Location
SourceFile := 'http://www.google.com/intl/de/images/home_title.gif';
// Where to save the file
DestFile := 'c:\temp\google-image.gif';
begin
if 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;
上一篇： 用Delphi 2005和DUnit搭建敏捷开发平台 （1）
下一篇： Delphi程序实现下载进程的动态显示 （1）
1 2 下一页
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
