使用简单的代码,例如:
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;
我得到以下结果:
- 应用程序在上传时卡住(因此无法看到进度栏位置)。
- 上传的文件已损坏(损坏的内容超过几个字节)。
我到底做错了什么?
谢谢。
最佳答案
应用程序卡住是因为 Indy 使用阻塞操作。当代码运行时,主消息循环没有运行,因此在 cxButton1Click()
退出之前不会处理新消息。要解决此问题,请将 TIdAntiFreeze
组件放置到 TForm
上,或者将 TIdFTP
代码移动到单独的工作线程,然后使用 TIdSync
或 TIdNotify
在需要时安全地更新 UI。
如果您以 ASCII 模式而不是二进制模式传输文件,该文件将被“损坏”。确保将 TIdFTP.TransferType
属性设置为 ftBinary
。 Indy 9 及更早版本默认为 ftBinary
,但 Indy 10 默认为 ftASCII
(以匹配 FTP 协议(protocol)规范)。
关于delphi - Indy FTP 上传失败,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8318438/