Devart Forums

Code: Select all

procedure TForm1.ScSSHClientServerKeyValidate(Sender: TObject; NewServerKey: TScKey; var Accept: Boolean);
begin
  Accept := True;
end;

procedure TForm1.ScSFTPClientDirectoryList(Sender: TObject; const Path: string;
const Handle: TBytes; FileInfo: TScSFTPFileInfo; EOF: Boolean);
begin
  if (FileInfo = nil) or (FileInfo.Filename = '.') then
    Exit;

  if (Length(FileInfo.Longname) > 0) and (FileInfo.Longname[1] = 'd') then
    MemoDirs.Lines.Add(FileInfo.Filename)
  else
    MemoFiles.Lines.Add(FileInfo.Filename);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ScSSHClient: TScSSHClient;
  ScFileStorage: TScFileStorage;
  ScSFTPClient: TScSFTPClient;
  Handle: TScSFTPFileHandle;
begin
  ScFileStorage := TScFileStorage.Create(nil);
  ScSSHClient := TScSSHClient.Create(nil);
  ScSSHClient.KeyStorage := ScFileStorage;
  ScSSHClient.OnServerKeyValidate := ScSSHClientServerKeyValidate;
  ScSSHClient.HostName := 'host';
  ScSSHClient.User := 'user';
  ScSSHClient.Password := 'pass';
  ScSSHClient.Connect;

  ScSFTPClient := TScSFTPClient.Create(nil);
  ScSFTPClient.SSHClient := ScSSHClient;
  ScSFTPClient.OnDirectoryList := ScSFTPClientDirectoryList;
  ScSFTPClient.Initialize;
  Handle := ScSFTPClient.OpenDirectory('.');
  try
    MemoDirs.Lines.Clear;
    MemoFiles.Lines.Clear;
    repeat
      ScSFTPClient.ReadDirectory(Handle);
    until ScSFTPClient.EOF;
  finally
    ScSFTPClient.CloseHandle(Handle);
  end;
end;