mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: FTP - load libssh2 library under Unix

Browse source
This commit is contained in:
Alexander Koblov 2017-07-09 15:37:02 +00:00
commit 57bfb3960a
1 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

27
plugins/wfx/ftp/src/sftp/libssh.pas
View file

@ -6,7 +6,7 @@ unit libssh;
interface
uses
Classes, SysUtils, CTypes;
Classes, SysUtils, CTypes, DynLibs;
const
//* Hash Types */
@ -282,10 +282,21 @@ var
function libssh2_sftp_readlink(sftp: PLIBSSH2_SFTP; const path: PAnsiChar; target: PAnsiChar; maxlen: cuint): cint; inline;
function libssh2_sftp_realpath(sftp: PLIBSSH2_SFTP; const path: PAnsiChar; target: PAnsiChar; maxlen: cuint): cint; inline;
implementation
const
LibSSHName =
{$IF DEFINED(MSWINDOWS)}
'libssh2.dll'
{$ELSEIF DEFINED(DARWIN)}
'libssh2.dylib'
{$ELSEIF DEFINED(UNIX)}
'libssh2.so.1'
{$ENDIF}
;
uses
DynLibs;
var
libssh2: TLibHandle = NilHandle;
implementation
function libssh2_session_init: PLIBSSH2_SESSION;
begin
@ -396,9 +407,6 @@ begin
Result:= libssh2_sftp_symlink_ex(sftp, path, strlen(path), target, maxlen, _LIBSSH2_SFTP_REALPATH);
end;
var
libssh2: TLibHandle = NilHandle;
function SafeGetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer;
begin
Result:= GetProcedureAddress(Lib, ProcName);
@ -407,7 +415,7 @@ end;
procedure Initialize;
begin
libssh2:= LoadLibrary('libssh2.dll');
libssh2:= LoadLibrary(LibSSHName);
if (libssh2 <> NilHandle) then
try
//* Session API */
@ -442,8 +450,9 @@ begin
libssh2_sftp_rmdir_ex:= SafeGetProcAddress(libssh2, 'libssh2_sftp_rmdir_ex');
libssh2_sftp_stat_ex:= SafeGetProcAddress(libssh2, 'libssh2_sftp_stat_ex');
libssh2_sftp_symlink_ex:= SafeGetProcAddress(libssh2, 'libssh2_sftp_symlink_ex');
except
FreeLibrary(libssh2);
libssh2:= NilHandle;
end;
end;