(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set the HTTP proxy domain or IP address.
    CkHttp::setCkProxyDomain(http, "172.16.16.46")
    ; The proxy port..
    CkHttp::setCkProxyPort(http, 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)
    CkHttp::setCkProxyDirectTls(http, 1)

    ; If the proxy requires a login or password, we can set it here.
    ; Otherwise comment out these lines.
    CkHttp::setCkProxyLogin(http, "myProxyLogin")
    CkHttp::setCkProxyPassword(http, "myProxyPassword")

    ; All requests sent on the http object will now go through the proxy.
    ; Give it a test:
    s.s = CkHttp::ckQuickGetStr(http,"https://www.chilkatsoft.com/helloWorld.html")
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; The LastErrorText property also contains information when method call succeeds.
    ; Have a look to see that the request was sent through the proxy:
    Debug CkHttp::ckLastErrorText(http)

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


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure