(Lianja) Socket Receive String Until Specific Byte Value is Received

Demonstrates the Chilkat Socket ReceiveStringUntilByte method.

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.

loSock = createobject("CkSocket")

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

llUseTls = .F.
lnPort = 4242
lnMaxWaitMs = 5000
llSuccess = loSock.Connect("tcpbin.com",lnPort,llUseTls,lnMaxWaitMs)
if (llSuccess = .F.) then
    ? loSock.LastErrorText
    release loSock
    return
endif

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

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

// The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
loSock.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)
lnLookForByte = 0
lcS1 = loSock.ReceiveStringUntilByte(lnLookForByte)
if (loSock.LastMethodSuccess = .F.) then
    ? loSock.LastErrorText
    release loSock
    return
endif

? lcS1

lcS2 = loSock.ReceiveStringUntilByte(lnLookForByte)
if (loSock.LastMethodSuccess = .F.) then
    ? loSock.LastErrorText
    release loSock
    return
endif

? lcS2

// The echo server will also echo back the final LF
loSock.ReceiveByte(.T.)
lnMaxWaitMs = 100
loSock.Close(100)

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


release loSock