PureBasic

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.

PureBasic

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