(PureBasic) Use Explicit FTP over TLS

Demonstrates how to connect to an FTP server using explicit FTP over TLS.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.your-ftp-server.com")
    CkFtp2::setCkUsername(ftp, "ftpAccountLogin")
    CkFtp2::setCkPassword(ftp, "ftpAccountPassword")

    ; Indicate that the "AUTH TLS" command should be use to convert the connection to TLS
    ; after the initial TCP connection to port 21 is established.
    CkFtp2::setCkAuthTls(ftp, 1)

    ; Connect and convert the connection to TLS automatically.
    success.i = CkFtp2::ckConnectOnly(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckLoginAfterConnectOnly(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    Debug "TLS connection established and successfully authenticated."


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure