用Delphi下载网络文件用Delphi下载网络文件
procedureTForm1.Button2Click(Sender:TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create; try
//下载我站点的一个ZIP文件
IdHTTP1.Get('',MyStream);
except//INDY控件一般要使用这种try..except结...
用Delphi下载网络文件
procedureTForm1.Button2Click(Sender:TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create; try
//下载我站点的一个ZIP文件
IdHTTP1.Get('',MyStream);
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:\Mp3ToExe.zip'); MyStream.Free;
Showmessage('OK');
end;
procedureTForm1.IdHTTP1WorkBegin(Sender:TObject;AWorkMode:TWorkMode;
constAWorkCountMax:Integer);
begin
ProgressBar1.Max:=AWorkCountMax; ProgressBar1.Min:=0;
ProgressBar1.Position:=0;
end;
IdHTTP1的Get还有一种形式就是获取字符串:例如,上面的程序可以改写成:
procedureTForm1.Button1Click(Sender:TObject);
var
MyStr:String;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应. try
MyStr:=IdHTTP1.Get('');
except
Showmessage('网络出错!');
Exit;
end;
Showmessage(MyStr);
end;
本文档为【用Delphi下载网络文件】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。