PureBasic

SOCKS4 and SOCKS5 Proxy for FTP

See more FTP Examples

Demonstrates how to connect to an FTP server through a SOCKS4 or SOCKS5 proxy. Both SSL/TLS and non-secure FTP communications may use SOCKS4 and SOCKS5 proxies. PureBasic

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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.example.com")
    CkFtp2::setCkUsername(ftp, "login")
    CkFtp2::setCkPassword(ftp, "password")

    ; To use a SOCKS4 or SOCKS5 proxy, simply set the following
    ; properties prior to connecting:
    ; The SOCKS hostname may be a domain name or 
    ; IP address:
    CkFtp2::setCkSocksHostname(ftp, "www.mysocksproxyserver.com")
    CkFtp2::setCkSocksPort(ftp, 1080)
    CkFtp2::setCkSocksUsername(ftp, "myProxyLogin")
    CkFtp2::setCkSocksPassword(ftp, "myProxyPassword")
    ; Set the SOCKS version to 4 or 5 based on the version
    ; of the SOCKS proxy server:
    CkFtp2::setCkSocksVersion(ftp, 5)
    ; Note: SOCKS4 servers only support usernames without passwords.
    ; SOCKS5 servers support full login/password authentication.

    ; Connect and login to the FTP server.
    success = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Change to the remote directory where the file is located.
    ; This step is only necessary if the file is not in the root directory
    ; for the FTP account.
    success = CkFtp2::ckChangeRemoteDir(ftp,"junk")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Download a file.
    localFilename.s = "c:/temp/hamlet.xml"
    remoteFilename.s = "hamlet.xml"

    success = CkFtp2::ckGetFile(ftp,remoteFilename,localFilename)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug "File Downloaded!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure