(Visual FoxPro) 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

LOCAL loHttp
LOCAL s

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* Set the HTTP proxy domain or IP address.
loHttp.ProxyDomain = "172.16.16.46"
* The proxy port..
loHttp.ProxyPort = 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)
loHttp.ProxyDirectTls = 1

* If the proxy requires a login or password, we can set it here.
* Otherwise comment out these lines.
loHttp.ProxyLogin = "myProxyLogin"
loHttp.ProxyPassword = "myProxyPassword"

* All requests sent on the http object will now go through the proxy.
* Give it a test:
s = loHttp.QuickGetStr("https://www.chilkatsoft.com/helloWorld.html")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* The LastErrorText property also contains information when method call succeeds.
* Have a look to see that the request was sent through the proxy:
? loHttp.LastErrorText

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

RELEASE loHttp