delphi连接ftp的问题

[salut]

我用ftp上传一个文件到ftp服务器上，前几天都用的好好的，后面一直到现在连不上ftp了
-------------------------------------
IdHTTP1:=TIdHTTP.Create(GetIP); //为防止断网后idhttp无法启动起来,所以每次都创建一个新的
IdHTTP1.AllowCookies:=True;
IdHTTP1.ReadTimeout:=3000;
flag4:=0;
//以ftp格式上传上去
if idFTP1.Connected then
try
IdFTP1.Quit;
finally
end
else
with IdFTP1 do try
Username:='hztfdt';
Password:='20080512';
Host:='www.hztianfu.com.cn';
Connect(True,5);
finally
end;
flag4:=1;//flag4=1说明上传到服务器成功
-------------------------
测试显示flag4一直是0没有变成过1；地址密码都没有改过，不知道是哪里出来问题是在找不到，请大侠帮忙！！！

[salut]

把 Connect(True,5); 调成 Connect(True,3000);就好了。

[bdmh]

应该可以肯定不是代码问题，因为之前是好的，找环境原因吧