(DataFlex) HTTPS Requests over Squid Proxy Direct TLS Connection

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.

For more information, see https://wiki.squid-cache.org/Features/HTTPS#Direct_TLS_connection

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

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