FTPS / Implicit SSL

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

LOCAL loFtp
LOCAL lnSuccess

loFtp = CreateObject('Chilkat.Ftp2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loFtp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ENDIF

*  You may use this account for testing.
*  This account allows for directory listings and files
*  to be downloaded.  However, file uploads are not allowed.
loFtp.Hostname = "ftp.secureftp-test.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
    =MESSAGEBOX(loFtp.LastErrorText)
    QUIT
ELSE
    *  LastErrorText contains information even when
    *  successful. This allows you to visually verify
    *  that the secure connection actually occurred.
    ? loFtp.LastErrorText
ENDIF

=MESSAGEBOX("FTPS Channel Established!")

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

loFtp.Disconnect()