用Delphi实现文件下载的几种方法

最新推荐文章于 2021-10-08 13:55:43 发布

落幕年代

最新推荐文章于 2021-10-08 13:55:43 发布

阅读量9.3k

点赞数

分类专栏：网络通信/分布式开发文章标签： delphi download 附件文件

本文链接：https://blog.csdn.net/lailai186/article/details/38661597

版权

本文介绍了如何使用Delphi实现文件下载，包括利用UrlDownloadToFile API、NMHTTP控件和IDHTTP组件的方式，提供了详细代码示例，适用于HTTP、FTP等下载场景。

摘要由CSDN通过智能技术生成

笔者最近开发的系统中需要写一个下载文件的功能。以前用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'')

=======================&