Xbase++

SSH Tunnel for Database Connection (such as ADO, ODBC, JDBC, etc.)

See more SSH Tunnel Examples

Demonstrates how to create an SSH tunneling client in a background thread of your application. This makes it possible to SSH tunnel database connections without the need for separate software (such as PuTTY) to be running. Xbase++

LOCAL nSuccess
LOCAL oTunnel
LOCAL cSshHostname
LOCAL nSshPort
LOCAL nListenPort
LOCAL nWaitForThreadExit

nSuccess := 0

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

nSuccess := 0

oTunnel := CreateObject("Chilkat.SshTunnel")

cSshHostname := "sftp.example.com"
nSshPort := 22

//  Connect to an SSH server and establish the SSH tunnel:
nSuccess := oTunnel:Connect(cSshHostname, nSshPort)
IF (nSuccess != 1)
    ? oTunnel:LastErrorText
    oTunnel:destroy()
    RETURN
ENDIF

//  Authenticate with the SSH server via a login/password
//  or with a public key.  
//  This example demonstrates SSH password authentication.
nSuccess := oTunnel:AuthenticatePw("mySshLogin", "mySshPassword")
IF (nSuccess != 1)
    ? oTunnel:LastErrorText
    oTunnel:destroy()
    RETURN
ENDIF

//  The destination host/port is the database server.
//  The DestHostname may be the domain name or 
//  IP address (in dotted decimal notation) of the database
//  server.
oTunnel:DestPort := 1433
oTunnel:DestHostname := "myDbServer.com"

//  Start accepting connections in a background thread.
//  The SSH tunnels are autonomously run in a background
//  thread.  There is one background thread for accepting
//  connections, and another for managing the tunnel pool.
nListenPort := 3316
nSuccess := oTunnel:BeginAccepting(nListenPort)
IF (nSuccess != 1)
    ? oTunnel:LastErrorText
    oTunnel:destroy()
    RETURN
ENDIF

//  At this point the app may connect to the database server through
//  the SSH tunnel.  The database connection string would
//  use "localhost" for the hostname and 3316 for the port.
//  We're not going to show the database coding here,
//  because it can vary depending on the API you're using
//  (ADO, ODBC, OLE DB, etc. )

//  This is where the application's database code would go...

//  Stop the background listen/accept thread:
nWaitForThreadExit := 1
nSuccess := oTunnel:StopAccepting(nWaitForThreadExit)
IF (nSuccess != 1)
    ? oTunnel:LastErrorText
    oTunnel:destroy()
    RETURN
ENDIF

//  Close the SSH tunnel (would also kick any remaining connected clients).
nSuccess := oTunnel:CloseTunnel(nWaitForThreadExit)
IF (nSuccess != 1)
    ? oTunnel:LastErrorText
    oTunnel:destroy()
    RETURN
ENDIF

oTunnel:destroy()