delphi - TIdFTP.Put() 和 TIdFTP.Get() 给出了意想不到的结果

Question

我在 XP SP3 上运行了 Delphi 7。

在我的服务器上，我有这个目录：

根/public_html/TESTTEST

当我这样做时：

procedure TForm1.Button3Click(Sender: TObject);     // connect
begin
  ftp.Host := 'URL';
  ftp.port := 21;
  ftp.Username := 'xxxxxxx';
  ftp.password := 'pppppp';
  ftp.Connect;    
  ...

该TIdFTP组件连接得很好。

当我将代码扩展为：

  ...
  ftp.ChangeDir('/public_html');
  ftp.ChangeDir('/public_html/TESTTEST');
  ShowMessage(ftp.RetrieveCurrentDir);
  ...

它向我展示了：

public_html/测试

只是为了测试，我这样做了：

FTP.makedir('TESTDIR');

并且该目录确实存在。

public_html/TESTTEST/TESTDIR

回到public_html/TESTTEST，如果我尝试使用，ftp.Put(file1,file2,true);我会收到以下错误消息：

我不会打开与 100.126.38.39 的连接（仅 77.106.146.15）

我尝试时同样的错误ftp.Get(file1,file2,true);

File1 和 2 根据 I/O 进行相应调整，True/False 切换 - 没有区别，相同的错误。

当我调用ftp.Get(...)时，会创建结果文件，但它是 EMPTY。

老实说，我不知道该怎么办。我怎样才能使这项工作？

标签： delphiftpdelphi-7indy