下载大一点文件如3.56M的执行文件idhttp连结上后 idhttp 反映很快,idhttp马快get了。
try
idhttp1.Connect();
except
end; MyStream:=TMemoryStream.Create;
if idhttp1.Connected then
begin
try IdHTTP1.Get(edit1.text,MyStream); 在这里 filepath:=ExtractFilePath(ParamStr(0));
MyStream.SaveToFile(filepath+'\qiwaProject.exe');
MyStream.Free;
except
showmessage('网络出错未能下载完成!');
MyStream.Free;
Exit;
end;
end;
try
idhttp1.Connect();
except
end; MyStream:=TMemoryStream.Create;
if idhttp1.Connected then
begin
try IdHTTP1.Get(edit1.text,MyStream); 在这里 filepath:=ExtractFilePath(ParamStr(0));
MyStream.SaveToFile(filepath+'\qiwaProject.exe');
MyStream.Free;
except
showmessage('网络出错未能下载完成!');
MyStream.Free;
Exit;
end;
end;
解决方案 »
- delph SQL查询问题,新手请教!谢谢!
- 急,如何读取HTM格式文件内容
- 能够让 TWebBrowser 在编辑状态下显示 DIV 或 Table 的边线吗﹖
- 请教,在CxGrid里输入明细数据的问题?
- 关于窗体的问题
- 如何在蓝屏(死机)的情况下通过程序关闭机器?
- Tedit的Onchange事件问题
- Canvas上的字符串怎么换行?
- 大侠们帮我,如何在delphi中实现将sql中的表导出成.txt文件.急!!!!!!!!!
- 计算
- 有没有办法把delphi获取的一个值放到html页的隐藏域里面?
- 出现"Statement expected,but expression of type'TfrxCustomPreview'found",就如何解决?
它要把文件下完才返回。你先看你说的反应很慢是不是 idhttp 正在下载。