DELPHI如何下载网络文件的例子


Http下载: (Delphi7)使用设计Indy控件下载网络文件  //
在Form1中添加控件:
  两个Indy控件:IdAntiFreeze1,IdHTTP1;
  一个按钮    :Button1;
  一个进度条  :ProgressBar1 显示下载速度
procedure TForm1.Button1Click(Sender: TObject);
var
  MyStream:TMemoryStream;
begin
  IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
  MyStream:=TMemoryStream.Create;
  try
    IdHTTP1.Get('http://www.appcontrols.com/demos/exe/HTTPDemo.exe',MyStream);
  except
    Showmessage('没有下载成功!');
    MyStream.Free;
    Exit;
  end;
  MyStream.SaveToFile(ExtractFilePath(paramstr(0))+'HTTPDemo.zip');
  MyStream.Free;
  Showmessage('OK');
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  //开始下载前,将ProgressBar1的最大值设置为需要接收的数据大小.
  ProgressBar1.Max:=AWorkCountMax;
  ProgressBar1.Min:=0;
  ProgressBar1.Position:=0;
end;

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  //接收数据的时候,进度将在ProgressBar1显示出来.
  ProgressBar1.Position:=ProgressBar1.Position+AWorkCount;
end;


 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值