PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Tunnel
string ls_SshHostname
integer li_SshPort
integer li_ListenPort
integer li_WaitForThreadExit

li_Success = 0

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

li_Success = 0

loo_Tunnel = create oleobject
li_rc = loo_Tunnel.ConnectToNewObject("Chilkat.SshTunnel")
if li_rc < 0 then
    destroy loo_Tunnel
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_SshHostname = "sftp.example.com"
li_SshPort = 22

// Connect to an SSH server and establish the SSH tunnel:
li_Success = loo_Tunnel.Connect(ls_SshHostname,li_SshPort)
if li_Success <> 1 then
    Write-Debug loo_Tunnel.LastErrorText
    destroy loo_Tunnel
    return
end if

// Authenticate with the SSH server via a login/password
// or with a public key.  
// This example demonstrates SSH password authentication.
li_Success = loo_Tunnel.AuthenticatePw("mySshLogin","mySshPassword")
if li_Success <> 1 then
    Write-Debug loo_Tunnel.LastErrorText
    destroy loo_Tunnel
    return
end if

// 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.
loo_Tunnel.DestPort = 1433
loo_Tunnel.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.
li_ListenPort = 3316
li_Success = loo_Tunnel.BeginAccepting(li_ListenPort)
if li_Success <> 1 then
    Write-Debug loo_Tunnel.LastErrorText
    destroy loo_Tunnel
    return
end if

// 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:
li_WaitForThreadExit = 1
li_Success = loo_Tunnel.StopAccepting(li_WaitForThreadExit)
if li_Success <> 1 then
    Write-Debug loo_Tunnel.LastErrorText
    destroy loo_Tunnel
    return
end if

// Close the SSH tunnel (would also kick any remaining connected clients).
li_Success = loo_Tunnel.CloseTunnel(li_WaitForThreadExit)
if li_Success <> 1 then
    Write-Debug loo_Tunnel.LastErrorText
    destroy loo_Tunnel
    return
end if



destroy loo_Tunnel