DataFlex

HTTPS Requests over Squid Proxy Direct TLS Connection

See more HTTP Examples

Demonstrates how to send HTTP requests through an HTTP proxy that supports Direct TLS Connections. (Chilkat tests with a squid 4.11 proxy.)

A direct TLS connection to an HTTP proxy is where the initial connection to the proxy server is TLS.

Note: This example requires Chilkat v9.5.0.83 or greater.

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String s
    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(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Set the HTTP proxy domain or IP address.
    Set ComProxyDomain Of hoHttp To "172.16.16.46"
    // The proxy port..
    Set ComProxyPort Of hoHttp To 3128

    // Indicate that we are to use a direct TLS connection with the HTTP proxy
    // (we use a Squid Cache: Version 4.11 for testing)
    Set ComProxyDirectTls Of hoHttp To True

    // If the proxy requires a login or password, we can set it here.
    // Otherwise comment out these lines.
    Set ComProxyLogin Of hoHttp To "myProxyLogin"
    Set ComProxyPassword Of hoHttp To "myProxyPassword"

    // All requests sent on the http object will now go through the proxy.
    // Give it a test:
    Get ComQuickGetStr Of hoHttp "https://www.chilkatsoft.com/helloWorld.html" To s
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The LastErrorText property also contains information when method call succeeds.
    // Have a look to see that the request was sent through the proxy:
    Get ComLastErrorText Of hoHttp To sTemp1
    Showln sTemp1

    Showln "---"
    Showln s
    Showln "---"
    Showln "Success for TLS destination over direct TLS HTTP proxy."


End_Procedure