Решение проблемы с TIdFTP в Delphi 7 на XP SP3

Delphi , Интернет и Сети , FTP

Решение проблемы с TIdFTP в Delphi 7 на XP SP3

При работе с компонентом TIdFTP в Delphi 7 на XP SP3 пользователи могут столкнуться с неожиданными результатами при использовании методов TIdFTP.Put() и TIdFTP.Get(). В данной статье мы рассмотрим проблему, которая заключается в том, что при попытке передачи или получения файлов с помощью этих методов возникает ошибка, а полученные файлы оказываются пустыми.

Описание проблемы

Пользователь столкнулся со следующей проблемой:

1. Успешно подключается к серверу с помощью TIdFTP:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ftp.Host := 'URL';
  ftp.Port := 21;
  ftp.Username := 'xxxxxxx';
  ftp.Password := 'pppppp';
  ftp.Connect;
  ...
end;

1. Успешно перемещается в нужную директорию:

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

1. Успешно создает директорию с помощью ftp.Makedir('TESTDIR').
2. При попытке передачи или получения файла с помощью ftp.Put(file1, file2, True) или ftp.Get(file1, file2, True) получает ошибку:

I won't open connection to 100.126.38.39 (only 77.106.146.15)

При этом полученный файл оказывается пустым.

Причина проблемы

Проблема связана с режимом передачи данных в протоколе FTP. По умолчанию TIdFTP работает в активном режиме, в котором сервер устанавливает второе подключение к клиенту. Однако, некоторые серверы не поддерживают активный режим или отказываются устанавливать второе подключение из соображений безопасности. В таком случае необходимо переключиться на пассивный режим, в котором клиент устанавливает второе подключение к серверу.

Подтвержденный ответ

Решением проблемы является установка свойства TIdFTP.Passive в значение True. Это переключает компонент в пассивный режим, что позволяет обойти проблему с отказом сервера устанавливать второе подключение в активном режиме. После применения этого решения пользователь успешно передавал и получал файлы с помощью TIdFTP.Put() и TIdFTP.Get().

Альтернативный ответ

Если переключение на пассивный режим не решает проблему или по каким-то причинам нежелательно, можно попробовать другие способы устранения неполадок. Например, проверить настройки брандмауэра и сетевого экрана на сервере и клиенте, убедиться в правильности настроек портов и адресов, а также проверить, не блокируются ли какие-либо порты или адреса сетевым оборудованием или провайдером.

Заключение

При работе с компонентом TIdFTP в Delphi 7 на XP SP3 важно учитывать режим передачи данных в протоколе FTP. Если при передаче или получении файлов возникают ошибки или полученные файлы оказываются пустыми, скорее всего, проблема связана с режимом передачи данных. В таком случае следует переключить компонент на пассивный режим, установив свойство TIdFTP.Passive в значение True. Это простое решение позволяет успешно работать с файлами через TIdFTP даже на старых версиях Delphi и операционных системах.

Создано по материалам из источника по ссылке.

Решение проблемы с TIdFTP в Delphi 7 на XP SP3 связано с переключением режима передачи данных с активного на пассивный, чтобы обойти отказ сервера устанавливать второе подключение.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: FTP ::