(DataFlex) Socket/SSL/TLS through SOCKS5 / SOCKS4 Proxy

Demonstrates how to use the Chilkat Socket/SSL/TLS component/library with a SOCKS5 or SOCKS4 proxy server.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSocket
    String sHostname
    Boolean iSsl
    Integer iMaxWaitMillisec
    Boolean iSuccess
    String sReceivedMsg
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatSocket)) To hoSocket
    If (Not(IsComObjectCreated(hoSocket))) Begin
        Send CreateComObject of hoSocket
    End

    // To use a SOCKS4 or SOCKS5 proxy, simply set the following
    // properties prior to calling Connect.  The connection may be SSL/TLS or 
    // non-secure - both will work with a SOCKS proxy.
    // The SOCKS hostname may be a domain name or 
    // IP address:
    Set ComSocksHostname Of hoSocket To "www.mysocksproxyserver.com"
    Set ComSocksPort Of hoSocket To 1080
    Set ComSocksUsername Of hoSocket To "myProxyLogin"
    Set ComSocksPassword Of hoSocket To "myProxyPassword"
    // Set the SOCKS version to 4 or 5 based on the version
    // of the SOCKS proxy server:
    Set ComSocksVersion Of hoSocket To 5
    // Note: SOCKS4 servers only support usernames without passwords.
    // SOCKS5 servers support full login/password authentication.

    // Connect to port 5555 of 192.168.1.108.
    // hostname may be a domain name or IP address.
    Move "192.168.1.108" To sHostname
    Move False To iSsl
    Move 20000 To iMaxWaitMillisec
    Get ComConnect Of hoSocket sHostname 5555 iSsl iMaxWaitMillisec To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Set maximum timeouts for reading an writing (in millisec)
    Set ComMaxReadIdleMs Of hoSocket To 10000
    Set ComMaxSendIdleMs Of hoSocket To 10000

    // The server (in this example) is going to send a "Hello World!" 
    // message.  Read it:
    Get ComReceiveString Of hoSocket To sReceivedMsg
    Get ComLastMethodSuccess Of hoSocket To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Close the connection with the server
    // Wait a max of 20 seconds (20000 millsec)
    Get ComClose Of hoSocket 20000 To iSuccess

    Showln sReceivedMsg


End_Procedure