procedure TForm1.Button2Click(Sender: TObject);
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
//下载我站点的一个ZIP文件
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:\Mp3ToExe.zip');
MyStream.Free;
Showmessage('OK');
end;
如果网站需要验证,并已知用户名和密码,怎么解决
var
MyStream:TMemoryStream;
begin
IdAntiFreeze1.OnlyWhenIdle:=False;//设置使程序有反应.
MyStream:=TMemoryStream.Create;
try
//下载我站点的一个ZIP文件
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);
except//INDY控件一般要使用这种try..except结构.
Showmessage('网络出错!');
MyStream.Free;
Exit;
end;
MyStream.SaveToFile('c:\Mp3ToExe.zip');
MyStream.Free;
Showmessage('OK');
end;
如果网站需要验证,并已知用户名和密码,怎么解决
解决方案 »
- DBGridEh1 控件的求和的列表(在数据底部的)如何实现的,
- 从EXCEL 导入记录后,如何释放?否则另外打开一个EXCEL文件得重启电脑.
- delphi6的ado怎么只能支持4位小数点?
- fastreport钟crosstab怎么实现一页纸仅仅就打固定的行!!不足的话加上空行并加上文字 问题解决给分
- 请教各位高手:如何把单机版程序升为C/S结构的应用程序?
- 请问DELPHI6与DELPHI7有什么区别?区别大吗?如果我装DELPHI7,使用起来会不会不方便?
- 如何提取ListView里的内容!
- 调用dll出错,请指点!
- 验证有无重复值
- 高分请教,高手们请进来帮助小弟一把。
- 請教:多客戶端用同一程式向同一網絡目錄下寫同一文件
- 求助:关于一个listview的小问题
HTTP.Request.Password := edPassword.Text;
IdHTTP1.Request.Username := edUsername.Text;
IdHTTP1.Request.Password := edPassword.Text;
IdHTTP1.Get('http://www.138soft.com/download/Mp3ToExe.zip',MyStream);