Lianja

TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method. Lianja

llSuccess = .F.

// 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 a byte.
loSock.SendByte(96)

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

// The echo server will echo back whatever is sent to it.
// We should be able to read the same byte back..
// After successfully reading, the byte value is available in the ReceivedInt property.
llTreatAsUnsignedInt = .T.
llSuccess = loSock.ReceiveByte(llTreatAsUnsignedInt)
if (llSuccess = .F.) then
    ? loSock.LastErrorText
    release loSock
    return
endif

// Let's look at the value of the byte received.  It should be 96.
? str(loSock.ReceivedInt)

// The echo server also echoed the LF back.
llSuccess = loSock.ReceiveByte(llTreatAsUnsignedInt)
// Assuming success..

// Should be decimal 10.
? str(loSock.ReceivedInt)


release loSock