(Visual FoxPro) TCP Socket Connect through HTTP Proxy

Demonstrates how to connect through an HTTP proxy server.

Download Chilkat Socket ActiveX

LOCAL loSocket
LOCAL lnSuccess
LOCAL lcHostname
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lcReceivedMsg

loSocket = CreateObject('Chilkat.Socket')

lnSuccess = loSocket.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    QUIT
ENDIF

*  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.
loSocket.HttpProxyHostname = "www.my-http-proxy.com"
loSocket.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.

lcHostname = "192.168.1.108"

lnSsl = 0

lnMaxWaitMillisec = 20000
lnSuccess = loSocket.Connect(lcHostname,5555,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    QUIT
ENDIF

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

*  The ficticious server (in this example) is going to send a "Hello World!"
*  message.  Read it:

lcReceivedMsg = loSocket.ReceiveString()
IF (lcReceivedMsg = NULL ) THEN
    ? loSocket.LastErrorText
    QUIT
ENDIF

*  Close the connection with the server
*  Wait a max of 20 seconds (20000 millsec)
loSocket.Close(20000)

=MESSAGEBOX(lcReceivedMsg)