(DataFlex) SOCKS4 and SOCKS5 Proxy for FTP

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.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sLocalFilename
    String sRemoteFilename
    String sTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    Set ComHostname Of hoFtp To "ftp.example.com"
    Set ComUsername Of hoFtp To "login"
    Set ComPassword Of hoFtp To "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:
    Set ComSocksHostname Of hoFtp To "www.mysocksproxyserver.com"
    Set ComSocksPort Of hoFtp To 1080
    Set ComSocksUsername Of hoFtp To "myProxyLogin"
    Set ComSocksPassword Of hoFtp To "myProxyPassword"
    // Set the SOCKS version to 4 or 5 based on the version
    // of the SOCKS proxy server:
    Set ComSocksVersion Of hoFtp To 5
    // Note: SOCKS4 servers only support usernames without passwords.
    // SOCKS5 servers support full login/password authentication.

    // Connect and login to the FTP server.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.
    Get ComChangeRemoteDir Of hoFtp "junk" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Download a file.
    Move "c:/temp/hamlet.xml" To sLocalFilename
    Move "hamlet.xml" To sRemoteFilename

    Get ComGetFile Of hoFtp sRemoteFilename sLocalFilename To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComDisconnect Of hoFtp To iSuccess

    Showln "File Downloaded!"


End_Procedure