Question

我在XP SP3上运行了Delphi 7。

在我的服务器上，我有以下目录：

root / 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 / TESTTEST

为了测试，我做到了：

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);

时出现相同的错误

文件1和文件2进行了相应的I / O调整，True / False切换-无差异，相同错误。

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

说实话，我不知道该怎么办。我该如何工作？

TIdFTP.Put（）和TIdFTP.Get（）提供意外结果

0 个答案: