(Lianja) TCP/IP Socket Connect to Remote Host:Port

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loSocket = createobject("CkSocket")

// 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".
llSsl = .F.
lnMaxWaitMillisec = 20000
llSuccess = loSocket.Connect("localhost",5555,llSsl,lnMaxWaitMillisec)
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
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:
// http://www.cknotes.com/?p=302
lcReceivedMsg = loSocket.ReceiveString()
if (loSocket.LastMethodSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

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

? lcReceivedMsg


release loSocket