Решение проблемы с FtpOpenFile в Delphi: передача файлов по FTP

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

При передаче файлов по FTP в Delphi может возникнуть проблема, когда функция FtpOpenFile возвращает nil вместо дескриптора файла, который нужно загрузить. В этой статье мы рассмотрим причину этой проблемы и предложим решение.

Описание проблемы При передаче файла по FTP в Delphi с помощью функции FtpOpenFile возвращается nil, а не дескриптор файла, который нужно загрузить. При этом подключение к учетной записи FTP проходит успешно, и файл можно загрузить без проблем с помощью клиента FTP.

Пример кода, вызывающего проблему:

hintfile := FtpOpenFile(hintconnect, PChar(tgtfn), GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0);

Причина проблемы Проблема может быть связана с известной ошибкой IIS FTP, связанной с номерами портов канала обратной связи.

Подтвержденное решение Чтобы решить эту проблему, попробуйте получить последнюю ошибку, как указано в документации:

"Возвращает дескриптор, если успешный, или NULL в противном случае. Чтобы получить конкретное сообщение об ошибке, вызовите GetLastError."

Документация по FtpOpenFile

Альтернативное решение Вы также можете попробовать добавить флаг INTERNET_FLAG_PASSIVE в свой вызов InternetOpen, как описано в этой статье:

WinInet: File Transfer Protocol (FTP)

Пример кода с альтернативным решением:

hInternet := InternetOpen('MyBrowser', INTERNET_OPEN_TYPE_DIRECT, nil, nil, INTERNET_FLAG_PASSIVE);
if hInternet <> 0 then
begin
  hintconnect := InternetConnect(hInternet, PChar(url), INTERNET_DEFAULT_FTP_PORT, PChar(user), PChar(pass), INTERNET_SERVICE_FTP, 0, 0);
  // ... (код, использующий hintconnect)
  InternetCloseHandle(hInternet);
end;

Обратите внимание, что в примере выше мы также добавили проверку дескриптора hInternet перед его использованием.

Надеемся, что эти решения помогут вам решить проблему с FtpOpenFile в Delphi и успешно передавать файлы по FTP.

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

Статья описывает проблему с функцией FtpOpenFile в Delphi при передаче файлов по FTP и предлагает решения для ее устранения.

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

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

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