delphi - Indy FTP 上传失败

Question

使用简单的代码，例如:

  procedure TForm1.cxButton1Click(Sender: TObject);
  begin
  ftp.Host := 'domain';
  ftp.Username := 'user';
  ftp.Password := 'password';
  ftp.Connect;
  ftp.Put('C:\_Projects\testpicture.JPG');
  ftp.Quit;
  ftp.Disconnect;
  end;

我得到以下结果:

• 应用程序在上传时卡住(因此无法看到进度栏位置)。
• 上传的文件已损坏(损坏的内容超过几个字节)。

我到底做错了什么？

谢谢。

Answer 1

应用程序卡住是因为 Indy 使用阻塞操作。当代码运行时，主消息循环没有运行，因此在 cxButton1Click() 退出之前不会处理新消息。要解决此问题，请将 TIdAntiFreeze 组件放置到 TForm 上，或者将 TIdFTP 代码移动到单独的工作线程，然后使用 TIdSync 或 TIdNotify 在需要时安全地更新 UI。

如果您以 ASCII 模式而不是二进制模式传输文件，该文件将被“损坏”。确保将 TIdFTP.TransferType 属性设置为 ftBinary。 Indy 9 及更早版本默认为 ftBinary，但 Indy 10 默认为 ftASCII(以匹配 FTP 协议(protocol)规范)。