I'm just checking out the code and noticed that there is the interface iHashManager for fingerprint checks, but I could not find any implementation.
Are you aware of an implementation for the hash manager?

SHA256 is also missing as a hash type. This has been implemented in lbssh2 but did not find its way into the delphi incarnation.

In module: uMySFTPClient.pas
Line:StoredFingerprint := FHashMgr.GetFingerprint(FHost, FPort);
Error:
[dcc32 Error] uMySFTPClient.pas(1103): E2010 Incompatible types: 'Dynamic array' and 'Pointer'

Delphi 10.2 Berlin.

Is it possible to create an SSH tunnel, that is, pass parameters when connecting to the server?
For example, via the command line I can map a local port pointing to the server:

ssh -L 5454:localhost:5454 -L 6379:localhost:6379 user@host

in this example, I am mapping my local ports, to ports on the linux server
Thanks

Thanks to the original author and @pult for improving this library!

Does the SFTP component support connecting through Socks5 proxy? If yes, how?

Thank you!

uMySftpClient exits with "Could not get user auth list.", when the ssh server supports authentication method NONE.
According to libssh2_userauth_list, a server accepting NONE as authentication returns nil. Therefore, we need to check libssh2_userauth_authenticated(FSession) after the call to libssh2_userauth_list.

Suggested change in line 1125:

    UserAuthList := libssh2_userauth_list(FSession, PAnsiChar(AnsiString(FUserName)), Length(AnsiString(FUserName)));
    if (libssh2_userauth_authenticated(FSession) = 0) then
    begin
      if UserAuthList = nil then
      begin
        Disconnect;
        RaiseSSHError('Could not get user auth list.');
      end;

    auth:

      AuthOK := False;
      AuthMode := ParseAuthList(UserAuthList);
      if amTryAll in AuthMode then
        AuthOK := UserAuthTryAll
      else
      begin
        if amPassword in AuthMode then
          AuthOK := UserAuthPassword;
        if not AuthOK and (amKeyboardInteractive in AuthMode) then
          AuthOK := UserAuthKeyboardInteractive;
        if not AuthOK and (amPublicKey in AuthMode) then
          AuthOK := UserAuthPKey;
        if not AuthOK and (amPublicKeyViaAgent in AuthMode) then
          AuthOK := UserAuthPKeyViaAgent;
      end;

      if not (AuthOK and (libssh2_userauth_authenticated(FSession) > 0)) then
      begin
        B := True;
        if Assigned(FOnAuthFail) then
          FOnAuthFail(Self, B);
        if not B then
        begin
          Disconnect;
          Exit;
        end
        else
          goto auth;
      end;
    end;

Hi,

I encounter a problem when I send some files.

During the Put command, after some seconds,
the error "A non-blocking socket operation could not be completed immediately" appears.
(In french : "Une opération non bloquante sur un socket n’a pas pu être achevée immédiatement")

I performed the test on 2 SFTP servers with the same result.

Interesting thing, the problem does not occur if the file is small enough (<6MB on the first server, <40MB on the second).
Other precisions :

• the connection with these servers is not very fast (~100ko/s)
• I have test this with the client demo include in the sources

Have you ever encountered this problem?

why in libssh2.pas length = length (string)-1. I had to remove "1"
For Example
libssh2_channel_open_ex(session, SSession, Length(SSession) - 1, ...); libssh2_channel_process_startup(channel, 'shell', Length('shell') - 1, nil, 0);

libssh2.dll does not load on Windows 10

Delphi 10.2
When executing the demo, the following error appears:

First chance exception at $744908B2. Exception class ELoadLibrary with message 'Could not load library "libssh2.dll"'. Process Project1.exe (15488)

When I call TSFTPClient.Create, an exception is thrown in the constructor of TSSH2Client at:
if InterlockedIncrement(GSSH2Init) = 1 then
The error is:

Module not found
Library: libssh2.dll
Function: libssh2_exit

I'm using the libssh2.dll from the bin directory (Version from 2016-11-02).
Also, the 32bit example Project1_d11.exe throws an error "Could not find the library: "libssh2.dll" (%1 is not a valid Win32 application).

Ola,

Estou com problema de envio de arquivos usando o comando PSFTP.UploadStream, ele so aceita arquivos textos com mesmo de 64kb, como podemos solucionar esta situação ?

  UploadStream := TFileStream.Create(APath, fmOpenRead);
  PSFTP.UploadStream(System.UTF8Encode(lArquivo), UploadStream, False);