我用idhttp控件下载文件,多次下载后它就会下载不下来,在http.get那发生异常,这是什么原因啊?代码如下:
http := TIdhttp.Create(nil);
souradd:= 'http://'+hostaddress+'/test/'+filename;;
destadd:= ExeDirect+'\temp\'+filename;
http.Host:=hostaddress;
http.Port:=80;
MyStream:=TFileStream.Create(destadd,fmCreate);
try
begin
http.Get(souradd,MyStream);
Result:=0;
end;
except
Result :=-1;
end;
MyStream.Free;
http := TIdhttp.Create(nil);
souradd:= 'http://'+hostaddress+'/test/'+filename;;
destadd:= ExeDirect+'\temp\'+filename;
http.Host:=hostaddress;
http.Port:=80;
MyStream:=TFileStream.Create(destadd,fmCreate);
try
begin
http.Get(souradd,MyStream);
Result:=0;
end;
except
Result :=-1;
end;
MyStream.Free;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货