DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: snarv
今日帖子: 11
在线用户: 13
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/2/24 15:48:32
标题:
很奇怪的问题,从来都没有遇到过的,请教!!! 浏览:1273
加入我的收藏
楼主: 我的程序中有个函数的功能是用来下载文件的,我用循环来下载文件,它好像下载十多二十个就停止了,如果手动调试时间上要慢很多,就可以,我的是P4的电脑,OS为2000server!!!+Delphi7.0+KingBase忧闷代码如下:
Function TForm1.DownloadFile(Source,Dest:String):Boolean;
Var
FileStream:TMemoryStream;
Begin
FileStream:=TMemoryStream.Create;
Try
IdHTTP1.Get(Trim(Source),FileStream);
FileStream.SaveToFile(Trim(Dest));
Result:=True;
Except
Result:=False;
End;
FileStream.Free;
End;
谢谢!!请教!!!!
----------------------------------------------
~~
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/2/24 15:52:15
1楼: 哪位大哥指点一下小弟!!有人有这样的事吗???
----------------------------------------------
~~
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/2/24 15:58:05
2楼: 今天为什么没有多少人啊??
----------------------------------------------
~~
作者:
男 liuhongbao (圆梦) ★☆☆☆☆ -
普通会员
2004/2/24 19:20:33
3楼: //不敢肯定是否有错误

Function TForm1.DownloadFile(Source,Dest:String):Boolean;
Var
FileStream:TMemoryStream;
Begin
try
FileStream:=TMemoryStream.Create;
Try
IdHTTP1.Get(Trim(Source),FileStream);
FileStream.SaveToFile(Trim(Dest));
Result:=True;
Except
Result:=False;
End;//end of try..except
finzaly
FileStream.Free;
end; //end of try..finally
End;

----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/24 21:41:18
4楼: 没做过 完全不懂!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 sephil (NAILY Soft) ★☆☆☆☆ -
盒子中级会员
2004/2/25 0:03:15
5楼: 这样看上去代码没什么问题
可能是你循环的时候出错了吧

你试试在每次循环后Sleep一下
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog
作者:
女 qdpingping (ping) ★☆☆☆☆ -
普通会员
2004/2/25 10:15:47
6楼: 呵呵,我也碰到相似的问题,不过程序和你的不一样。在Delphi里调试的时候可以转换完所有的文件,运行可执行程序及就只能转换几个文件。我也正愁着呢。会不会是内存那个地方没释放?不过好像都释放了,晕
----------------------------------------------
-
作者:
男 hfqxfx (~!@) ★☆☆☆☆ -
盒子活跃会员
2004/2/25 10:39:15
7楼: 各位大哥,谢谢,是我自已错了,是这样的,我的网络太慢了,所以下载多了后就要等一会。谢谢大家!!!!因为我一般下载就是1000来个网页。
----------------------------------------------
~~
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS