Xojo Plugin

Socket Receive String Until Specific Byte Value is Received

Demonstrates the Chilkat Socket ReceiveStringUntilByte method. 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 sock As New Chilkat.Socket

// --------------------------------------------------------------------
// This example uses the public TCP echo service at https://tcpbin.com/
// --------------------------------------------------------------------

Dim useTls As Boolean
useTls = False
Dim port As Int32
port = 4242
Dim maxWaitMs As Int32
maxWaitMs = 5000
success = sock.Connect("tcpbin.com",port,useTls,maxWaitMs)
If (success = False) Then
    System.DebugLog(sock.LastErrorText)
    Return
End If

// Wait a max of 2 seconds for a response..
sock.MaxReadIdleMs = 2000

// Send some strings, each terminated by a 0 byte.
success = sock.SendString("This is the 1st string")
success = sock.SendByte(0)
success = sock.SendString("This is string number 2")
success = sock.SendByte(0)

// The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
success = sock.SendByte(10)

// Now let's receive what is echoed back....
// Receive each string and the NULL byte.
// The call to ReceiveStringUntilByte will receive incoming data until the lookForByte is encountered.
// The lookForByte is receive and discarded (it is not returned in the string)
Dim lookForByte As Int32
lookForByte = 0
Dim s1 As String
s1 = sock.ReceiveStringUntilByte(lookForByte)
If (sock.LastMethodSuccess = False) Then
    System.DebugLog(sock.LastErrorText)
    Return
End If

System.DebugLog(s1)

Dim s2 As String
s2 = sock.ReceiveStringUntilByte(lookForByte)
If (sock.LastMethodSuccess = False) Then
    System.DebugLog(sock.LastErrorText)
    Return
End If

System.DebugLog(s2)

// The echo server will also echo back the final LF
success = sock.ReceiveByte(True)
maxWaitMs = 100
success = sock.Close(100)

// Output:
// This is the 1st string
// This is string number 2