DataFlex

TCP Socket Connect through HTTP Proxy

See more Socket/SSL/TLS Examples

Demonstrates how to connect through an HTTP proxy server. DataFlex

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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 connect through an HTTP proxy, set the HttpProxyHostname
    // and HttpProxyPort properties to the hostname (or IP address)
    // and port of the HTTP proxy.  Typical port numbers used by
    // HTTP proxy servers are 3128 and 8080.
    Set ComHttpProxyHostname Of hoSocket To "www.my-http-proxy.com"
    Set ComHttpProxyPort Of hoSocket To 3128

    // Important:  Your HTTP proxy server must allow non-HTTP
    // traffic to pass.  Otherwise this does not work.

    // Connect (via the HTTP proxy) 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 ficticious 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