(Xojo Plugin) Socket Receive String Until Specific Byte Value is Received

Demonstrates the Chilkat Socket ReceiveStringUntilByte method.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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
Dim success As Boolean
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