(Xojo Plugin) TCP Socket Connect through HTTP Proxy

Demonstrates how to connect through an HTTP proxy server.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim socket As New Chilkat.Socket

// To connect through an HTTP proxy, set the HttpProxyHostname
// and HttpProxyPort properties to the hostname (or IP address)
// and port of the HTTP proxy.  Typical port numbers used by
// HTTP proxy servers are 3128 and 8080.
socket.HttpProxyHostname = "www.my-http-proxy.com"
socket.HttpProxyPort = 3128

// Important:  Your HTTP proxy server must allow non-HTTP
// traffic to pass.  Otherwise this does not work.

// Connect (via the HTTP proxy) to port 5555 of 192.168.1.108.
// hostname may be a domain name or IP address.
Dim hostname As String
hostname = "192.168.1.108"
Dim ssl As Boolean
ssl = False
Dim maxWaitMillisec As Int32
maxWaitMillisec = 20000
Dim success As Boolean
success = socket.Connect(hostname,5555,ssl,maxWaitMillisec)
If (success <> True) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

// Set maximum timeouts for reading an writing (in millisec)
socket.MaxReadIdleMs = 10000
socket.MaxSendIdleMs = 10000

// The ficticious server (in this example) is going to send a "Hello World!" 
// message.  Read it:
Dim receivedMsg As String
receivedMsg = socket.ReceiveString()
If (socket.LastMethodSuccess <> True) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

// Close the connection with the server
// Wait a max of 20 seconds (20000 millsec)
success = socket.Close(20000)

System.DebugLog(receivedMsg)