IdFTP1.Put上传完了.如何判断是否成功啊

IdFTP1.Host := Edit1.Text;
  IdFTP1.Port := strtoint(Edit2.Text);
  IdFTP1.Username := Edit3.Text;
  IdFTP1.Password := Edit4.Text;

  try
  IdFTP1.Connect;
  IdFTP1.ChangeDir(edit5.Text);
  IdFTP1.Put(ExtractFilePath(paramstr(0)) + 'my.txt','my.txt', false)
  except
  showmessage('连接失败或上传出现错误！');
  end;

IdFTP1.Put上传完了.如何判断是否成功啊

IdFTP1.Put上传完了.如何判断是否成功啊

onworkend应该就是上传完成了

不放心的话 在onwork里累计 AWorkCount在workend里与文件大小做比较 判断是否上传了全部字节

如果失败的话 会出异常 ，

为了 分清楚异常类型

最好把CONNECT 和PUT 分开 这样子就可以知道是连接不上服务器错误还是上传时网络出错等。