Проблема загрузки файла с FTP-сервера: почему 'GetFileFromFTP' не работает с IP-адресом сервера

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

Проблема загрузки файла с FTP-сервера: почему GetFileFromFTP не работает с IP-адресом сервера

При работе с FTP-серверами в Delphi часто используются функции из модуля IdGlobal для подключения к серверу и загрузки файлов. Одной из таких функций является FtpGetFile. Однако, пользователи могут столкнуться с проблемой, когда попытка загрузить файл с сервера по IP-адресу не удается, в то время как использование 'localhost' работает нормально.

Рассмотрим пример кода, в котором используется функция GetFileFromFTP для загрузки файла с FTP-сервера:

function GetFileFromFTP(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
  good: boolean;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  good := FtpGetFile(hconnect, pchar(remotefile), pchar(localfile), false, 0, FTP_TRANSFER_TYPE_UNKNOWN or INTERNET_FLAG_DONT_CACHE, 0);
  InternetCloseHandle(hconnect);
  Result := good;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  server: string;
begin
  server := 'ftp://192.168.1.1/XDIRECTORY/'; // Не удается загрузить файл
  // server := 'localhost'; // Удается загрузить файл

  if GetFileFromFTP(server, '', '', 'upx2.exe', 'upx.exe') then
    Caption := 'Успешная установка'
  else
    Caption := 'Неуспешная установка';
end;

Проблема заключается в том, что при указании IP-адреса сервера в переменной server функция GetFileFromFTP не может загрузить файл, в то время как использование 'localhost' работает нормально.

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

Причина заключается в том, что переменная server ожидает строку, содержащую имя хоста или IP-адрес сервера, а не полный URI (Uniform Resource Identifier). В данном случае, при указании IP-адреса с путями к директориям, функция GetFileFromFTP не может правильно интерпретировать предоставленные данные.

Решение проблемы

Чтобы правильно использовать функцию GetFileFromFTP, необходимо отделять компоненты URI, как того требует документация MSDN. В данном случае, имя сервера и имя файла на сервере должны быть переданы как отдельные параметры функции.

Пример правильного использования функции GetFileFromFTP:

procedure TForm1.btn1Click(Sender: TObject);
var
  server, username, password, localfile, remotefile: string;
  port: word;
begin
  server := '192.168.1.1';
  username := '';
  password := '';
  localfile := 'upx2.exe';
  remotefile := 'upx.exe';
  port := 21;

  if GetFileFromFTP(server, username, password, localfile, remotefile, port) then
    Caption := 'Успешная установка'
  else
    Caption := 'Неуспешная установка';
end;

В данном примере, имя сервера передается как отдельная строка server, а имя файла на сервере передается как отдельная строка remotefile. Также, порт сервера передается как отдельная переменная port.

Используя этот подход, вы сможете правильно работать с функцией GetFileFromFTP и загружать файлы с FTP-серверов по IP-адресам.

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

Проблема загрузки файла с FTP-сервера: почему GetFileFromFTP не работает с IP-адресом сервера связана с неверной интерпретацией данных в функции GetFileFromFTP, когда в качестве параметра передается IP-адрес сервера вместе с путями к директориям. Для прав

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

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

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