Подключение к SFTP-серверу из Delphi без сторонних компонентов

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

SFTP (SSH File Transfer Protocol) — протокол передачи файлов по SSH, который используется для безопасной передачи файлов между хостом и удаленным сервером. В этом руководстве мы рассмотрим, как подключиться к SFTP-серверу из Delphi без использования сторонних компонентов.

Подключение к SFTP-серверу с помощью Indy

Indy — это набор компонентов для работы с сетью в Delphi, который включает в себя поддержку SFTP. Чтобы подключиться к SFTP-серверу с помощью Indy, выполните следующие шаги:

1. Установите Indy в свой проект Delphi. Для этого откройте менеджер компонентов (Component Palette) и перейдите на вкладку "Indy" (если она не отображается, нажмите "Componets" в верхнем меню и выберите "Install Indy Components").
2. Добавьте компоненты TIdSFTP и TIdSSL на форму вашего проекта. TIdSFTP будет использоваться для подключения к SFTP-серверу, а TIdSSL — для установки безопасного соединения.
3. Настройте компонент TIdSFTP следующим образом:
   • Host: Адрес SFTP-сервера.
   • Port: Порт SFTP-сервера (по умолчанию 22).
   • Username: Имя пользователя для подключения к SFTP-серверу.
   • Password: Пароль пользователя.
   • SSL: Установите в True, чтобы использовать защищенное соединение.
4. Добавьте следующий код в ваш проект для подключения к SFTP-серверу и загрузки файла:

procedure TForm1.Button1Click(Sender: TObject);
var
  SFTP: TIdSFTP;
  FileStream: TIdSSLStream;
  FileName: string;
begin
  SFTP := TIdSFTP.Create(nil);
  try
    SFTP.Host := 'your_sftp_host';
    SFTP.Port := 22;
    SFTP.Username := 'your_username';
    SFTP.Password := 'your_password';
    SFTP.SSL := True;

    SFTP.Connect;

    FileName := 'path/to/your/file.txt';
    FileStream := TIdSSLStream.Create(nil);
    try
      SFTP.Get(FileName, FileStream);
      // Сохраните содержимое файла в переменную или сохраните его на локальном диске
      // ...
    finally
      FileStream.Free;
    end;

  finally
    SFTP.Free;
  end;
end;

Замените 'your_sftp_host', 'your_username' и 'your_password' соответствующими данными вашего SFTP-сервера. Также не забудьте изменить 'path/to/your/file.txt' на путь к файлу, который вы хотите загрузить.

Теперь, когда вы нажмете кнопку на форме, Delphi подключится к SFTP-серверу и загрузит указанный файл.

Вывод

Хотя Delphi не включает в себя встроенную поддержку SFTP, вы можете использовать Indy для подключения к SFTP-серверу без необходимости покупать сторонние компоненты. Indy — это мощный набор компонентов для работы с сетью, который поможет вам решить эту задачу без лишних затрат.

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

В данном контексте рассматривается процесс подключения к SFTP-серверу из Delphi без использования сторонних компонентов, с помощью встроенного компонента Indy.

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

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

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