(Visual FoxPro) FTPS / Implicit SSL

Demonstrates how to connect using implicit SSL on port 990. The FTP component connects using SSL on port 990, which is the de-facto standard FTP SSL port. Not all FTP servers support implicit SSL. An alternative is to use AUTH SSL (also called AUTH TLS).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loFtp
LOCAL lnSuccess

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2')
loFtp = CreateObject('Chilkat.Ftp2')

* If this example does not work, try using passive mode
* by setting this to 1.
loFtp.Passive = 0
loFtp.Hostname = "ftp.something.com"
loFtp.Username = "test"
loFtp.Password = "test"
loFtp.Port = 990

* We don't want AUTH SSL:
loFtp.AuthTls = 0

* We want Implicit SSL:
loFtp.Ssl = 1

* Connect and login to the FTP server.
lnSuccess = loFtp.Connect()
IF (lnSuccess <> 1) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ELSE
    * LastErrorText contains information even when
    * successful. This allows you to visually verify
    * that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

? "FTPS Channel Established!"

* Do whatever you're doing to do ...
* upload files, download files, etc...

lnSuccess = loFtp.Disconnect()

RELEASE loFtp