Xojo Plugin

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. Xojo Plugin

Dim success As Boolean
success = False

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

Dim socket As New 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".
Dim ssl As Boolean
ssl = False
Dim maxWaitMillisec As Int32
maxWaitMillisec = 20000
success = socket.Connect("localhost",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

// 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>
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)