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

Delphi7实现网络文件Http下载

最新推荐文章于 2021-08-11 15:24:40 发布

原创最新推荐文章于 2021-08-11 15:24:40 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #网络 #integer #button

本文介绍了使用Delphi7通过Indy控件实现网络文件的Http下载。在Form1中添加IdAntiFreeze1、IdHTTP1、Button1和ProgressBar1控件，给出了按钮点击事件的代码，实现文件下载及保存，还展示了下载开始和接收数据时进度条的设置代码。

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;