导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
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; 谢谢!!请教!!!!
----------------------------------------------
~~
作者:
2004/2/24 15:52:15
1楼:
哪位大哥指点一下小弟!!有人有这样的事吗???
----------------------------------------------
~~
作者:
2004/2/24 15:58:05
2楼:
今天为什么没有多少人啊??
----------------------------------------------
~~
作者:
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楼:
没做过 完全不懂!
----------------------------------------------
作者:
2004/2/25 10:15:47
6楼:
呵呵,我也碰到相似的问题,不过程序和你的不一样。在Delphi里调试的时候可以转换完所有的文件,运行可执行程序及就只能转换几个文件。我也正愁着呢。会不会是内存那个地方没释放?不过好像都释放了,晕
----------------------------------------------
-
作者:
2004/2/25 10:39:15
7楼:
各位大哥,谢谢,是我自已错了,是这样的,我的网络太慢了,所以下载多了后就要等一会。谢谢大家!!!!因为我一般下载就是1000来个网页。
----------------------------------------------
~~