高手请进，Indy9的tIDFtp的上传问题

Question

小弟用Delphi7自带的indy的tidftp控件写一个TXT文件上传程序，上传那一块的代码:
  with idFtp do
  begin
    Host:=_FtpHost;
    Port:=StrToInt(_FtpPort);
    UserName:=_FtpUser;
    Password:=_FtpPwd;
    Connect(True);
    Put(StxtFName,_CompCode+FSTime+'.txt');
    Disconnect;
  end;
这个代码在我在局域网的另一台电脑上用iis的FTP服务架设了一个FTP服务器，测试了N次都能成功上传
但是在通过VPN连接的FTP服务器上老是显示程序未响应，能过测试跟跟踪可以确定程序执行Connect(True)
是成功的,就是说跟服务器的连接，用户名和密码都是正确的,就是执行  Put(StxtFName,_CompCode+FSTime+'.txt')这一句时
程序一直未响应，而且用LeapFTP3.0工具又可以上传,这到底是怎么回事，有没有哪们兄弟遇到过这种情况
麻烦指点迷经.
     

Answer 1

未响应是不是因为上传家私呢，idftp是可以捕捉进度的，你在那个事件中看看是否还在进行