Delphi下载指定网址(URL)的文件,带进度条显示

主要使用的是Delphi自带的TIdhttp控件。

一、界面设置

在窗体上放置两个TEdit控件,一个用于输入要下载的文件URL,一个用于输入要保存到本地的文件路径;放置两个TLabel控件,一个显示文件总大小,一个显示当前已下载大小;放置一个按钮TButton,一个TIdhttp控件(在Indy Clients面板)和一个TIdAntiFreeze控件(放置该控件可避免下载过程中程序无响应,在Indy Misc面板)。

二、主要代码

//1. 字节数转换为KB或MB字符串
function BytesToStr(iBytes: Integer): String;
var
  iKb: Integer;
begin
  iKb := Round(iBytes / 1024);
  if iKb > 1000 then
    Result := Format('%.2f MB', [iKb / 1024])
  else
    Result := Format('%d KB', [iKb]);
end;

//2.  Idhttp1控件的OnWorkBegin事件代码,用于获取文件总大小
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := aWorkCountMax;
  Label2.Caption := BytesToStr(iWorkCountMax);
  Update;
end;

//3. Idhttp1控件的OnWork事件响应代码,用于更新文件下载进度
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Label1.Caption := BytesToStr(aWorkCount);
  ProgressBar1.Position := aWorkCount;
  Update;
end;

//4. 按钮Button1的点击事件代码
procedure TForm1.Button1Click(Sender: TObject);
var 

  tStream: TMemoryStream;
begin
  tStream := TMemoryStream.Create;
  try
    IdHTTP1.Get(Edit1.Text, tStream); //保存到内存流
    tStream.SaveToFile(Edit2.Text); //保存为文件
    ShowMessage('下载成功!');

  except
    ShowMessage('下载失败!');
  end;
  tStream.Free;
  end;

以上代码在Delphi7编译环境下测试通过。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值