Visual FoxPro

TCP/IP Socket Connect to Remote Host:Port

See more Socket/SSL/TLS Examples

Demonstrates how to create a TCP/IP socket, connect to a remote host:port, and receive a "Hello World!" message. Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL lnSsl
LOCAL lnMaxWaitMillisec
LOCAL lcReceivedMsg

lnSuccess = 0

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

loSocket = CreateObject('Chilkat.Socket')

* Connect to port 5555 of localhost.
* The string "localhost" is for testing on a single computer.
* It would typically be replaced with an IP hostname, such
* as "www.chilkatsoft.com".
lnSsl = 0
lnMaxWaitMillisec = 20000
lnSuccess = loSocket.Connect("localhost",5555,lnSsl,lnMaxWaitMillisec)
IF (lnSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

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

* Pretend, for the sake of the example, that the
* ficticious server is going to send a "Hello World!" 
* after accepting the connection.  
* Note: Technically, the ReceiveString may not receive the
* complete string, although it's highly probable given the short
* length of the "Hello World!" message. 
* See this Chilkat blog post for more information:
* <a href="http://www.cknotes.com/?p=302">http://www.cknotes.com/?p=302</a>
lcReceivedMsg = loSocket.ReceiveString()
IF (loSocket.LastMethodSuccess <> 1) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

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

? lcReceivedMsg

RELEASE loSocket