Xbase++

Upgrade an FTP Control Channel to TLS (ConvertToTls)

Demonstrates the Chilkat Ftp2.ConvertToTls method, which upgrades an already-connected clear FTP control channel to explicit TLS. It takes no arguments and is used with a manually staged connection created by ConnectOnly while Ssl is disabled.

Background: This exposes the explicit-FTPS AUTH TLS upgrade as a discrete step for the rare case where you need to do something on the clear connection first — inspect the greeting, apply a workaround — before securing it. In the normal case you simply set AuthTls and let Connect perform the upgrade automatically; this manual path exists for staged control.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oFtp

nSuccess := 0

//  Demonstrates the Ftp2.ConvertToTls method, which upgrades an already-connected clear FTP control
//  channel to explicit TLS.  It takes no arguments.  It is used with a manually staged connection
//  created by ConnectOnly while Ssl is disabled.

oFtp := CreateObject("Chilkat.Ftp2")

oFtp:Hostname := "ftp.example.com"
oFtp:Port := 21

//  Connect in clear text first (Ssl is false).
nSuccess := oFtp:ConnectOnly()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Upgrade the control channel to explicit TLS (AUTH TLS).
nSuccess := oFtp:ConvertToTls()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Now authenticate over the encrypted control channel.
oFtp:Username := "myFtpLogin"
oFtp:Password := "myPassword"
nSuccess := oFtp:LoginAfterConnectOnly()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

? "Control channel upgraded to TLS and logged in."

nSuccess := oFtp:Disconnect()
IF (nSuccess == 0)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

oFtp:destroy()