TIdFTP.Put () и TIdFTP.Get () дают неожиданные результаты - PullRequest
Новая
       41

TIdFTP.Put () и TIdFTP.Get () дают неожиданные результаты

0 голосов
/ 20 октября 2018

У меня Delphi 7 работает на XP SP3.

На моем сервере у меня есть этот каталог:

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

File1 и 2 настроены соответственно на I / O, переключено True / False - без разницы, та же ошибка.

Когда я звоню ftp.Get(...), результирующий файл создается, но он ПУСТО.

Если честно, я не знаю, что делать.Как я могу сделать эту работу?

...