Установка SFTP с помощью SecureBridge в Delphi

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

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

В этом руководстве мы рассмотрим, как установить и использовать SecureBridge для установки SFTP-соединения в Delphi.

Шаг 1: Установка SecureBridge

1. Перейдите на веб-сайт SecureBridge: https://www.devart.com/sbridge/
2. Загрузите и установите последнюю версию SecureBridge для вашей версии Delphi.
3. После установки перейдите в пакетный менеджер Delphi (GetIt Package Manager) и убедитесь, что компоненты SecureBridge установлены.

Шаг 2: Подключение к SFTP с помощью SecureBridge

1. Создайте новое проект в Delphi.
2. Перетащите компонент TScSSHClient на форму из пакета SecureBridge.SSH.
3. Добавьте компонент TScFileStorage на форму из пакета SecureBridge.SSH.
4. Добавьте компонент TScSFTPClient на форму из пакета SecureBridge.SFTP.
5. Назначьте TScFileStorage как KeyStorage для TScSSHClient.
6. Напишите код для подключения к серверу SFTP, как показано в приведенном ниже примере:

procedure TForm1.Button1Click(Sender: TObject);
var
  ScSSHClient: TScSSHClient;
  ScFileStorage: TScFileStorage;
  ScSFTPClient: TScSFTPClient;
begin
  ScFileStorage := TScFileStorage.Create(nil);
  ScSSHClient := TScSSHClient.Create(nil);
  ScSSHClient.KeyStorage := ScFileStorage;
  ScSSHClient.HostName := 'your_server_ip';
  ScSSHClient.User := 'your_username';
  ScSSHClient.Password := 'your_password';
  try
    ScSSHClient.Connect;
    ScSFTPClient := TScSFTPClient.Create(nil);
    ScSFTPClient.SSHClient := ScSSHClient;
    ScSFTPClient.Initialize;
    // Здесь вы можете выполнить операции SFTP, например, загрузить или скачать файл
    ScSSHClient.Disconnect;
    ShowMessage('Соединение установлено!');
  except
    on E: Exception do
      ShowMessage('Соединение не установлено...' + #10#10 + E.Message);
  end;
end;

Примечание: Не забудьте заменить 'your_server_ip', 'your_username' и 'your_password' своими собственными данными.

Шаг 3: Загрузка файла с SFTP-сервера

После установления соединения с SFTP-сервером вы можете загрузить файл с помощью TScSFTPClient. Вот пример кода для загрузки файла:

procedure TForm1.Button2Click(Sender: TObject);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create('C:\temp\downloaded_file.txt', fmCreate);
  try
    ScSFTPClient.Get('path/to/remote/file.txt', FS, True);
  finally
    FS.Free;
  end;
end;

Примечание: Не забудьте заменить 'path/to/remote/file.txt' путем к удаленному файлу на SFTP-сервере.

С помощью этих шагов вы можете установить SFTP-соединение и загрузить файл с помощью SecureBridge в Delphi. Для получения более подробной информации обратитесь к документации SecureBridge: https://www.devart.com/sbridge/docs/

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

Руководство по установке SFTP с помощью SecureBridge в Delphi для подключения к серверу SFTP и загрузки файлов.

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

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

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