Xbase++

Multiple Hop SSH to SFTP

See more SFTP Examples

Demonstrates how to SFTP through an intermediate SSH server (multiple hop). The scheme looks like this:

Application => ServerSSH1 => ServerSFtp

The ConnectThroughSsh method is added in Chilkat version 9.5.0.55 to accomplish this task.

Xbase++

LOCAL nSuccess
LOCAL oSsh1
LOCAL cHostname
LOCAL cPort
LOCAL oSftp
LOCAL cRemoteFilePath
LOCAL cLocalFilePath

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oSsh1 := CreateObject("Chilkat.Ssh")

//  Hostname may be an IP address or domain name:
cHostname := "192.168.1.111"
cPort := 22

//  Connect directly to the 1st SSH server:
nSuccess := oSsh1:Connect(cHostname, cPort)
IF (nSuccess != 1)
    ? oSsh1:LastErrorText
    oSsh1:destroy()
    RETURN
ENDIF

//  Authenticate using login/password:
nSuccess := oSsh1:AuthenticatePw("myLogin", "myPassword")
IF (nSuccess != 1)
    ? oSsh1:LastErrorText
    oSsh1:destroy()
    RETURN
ENDIF

//  Connect through the 1st SSH connection to reach a 2nd SSH server (for SFTP)
//  Note: Any number of connections may be simultaneously tunneled through a single
//  existing SSH connection.
oSftp := CreateObject("Chilkat.SFtp")

//  Connect to some SSH/SFTP server through ssh1.
nSuccess := oSftp:ConnectThroughSsh(oSsh1, "sftp.someremoteserver.com", 22)
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oSsh1:destroy()
    oSftp:destroy()
    RETURN
ENDIF

//  Authenticate with the SFTP server. 
nSuccess := oSftp:AuthenticatePw("myLogin", "myPassword")
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oSsh1:destroy()
    oSftp:destroy()
    RETURN
ENDIF

//  After authenticating, the SFTP subsystem must be initialized:
nSuccess := oSftp:InitializeSftp()
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oSsh1:destroy()
    oSftp:destroy()
    RETURN
ENDIF

//  Upload from the local file to the SSH server.
//  Important -- the remote filepath is the 1st argument,
//  the local filepath is the 2nd argument;
cRemoteFilePath := "hamlet.xml"
cLocalFilePath := "c:/temp/hamlet.xml"

nSuccess := oSftp:UploadFileByName(cRemoteFilePath, cLocalFilePath)
IF (nSuccess != 1)
    ? oSftp:LastErrorText
    oSsh1:destroy()
    oSftp:destroy()
    RETURN
ENDIF

? "Success."

//  Close the connection with the SFTP server.(This closes the the tunnel through ssh1.)
//  The connection with ssh1 is still alive, and may be used for more connections.
oSftp:Disconnect()

//  ...
//  ...
//  ...

oSsh1:Disconnect()

oSsh1:destroy()
oSftp:destroy()