Lianja

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. 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 26 bytes contained in a Chilkat BinData
loBdToSend = createobject("CkBinData")
i = 0
lnByteVal = 65
do while i < 26
    loBdToSend.AppendByte(lnByteVal)
    lnByteVal = lnByteVal + 1
    i = i + 1
enddo
// Send the contents of the BinData
// Pass zero's in the 2nd and 3rd arguments to send the entire contents of the BinData.
loSock.SendBd(loBdToSend,0,0)

// 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 bytes back..
loBdRecv = createobject("CkBinData")
// Receive the 26 bytes previously sent, plus the LF char.
llSuccess = loSock.ReceiveBdN(27,loBdRecv)
if (llSuccess = .F.) then
    ? loSock.LastErrorText
    release loSock
    release loBdToSend
    release loBdRecv
    return
endif

// Show the contents of bdRecv in hex format
? loBdRecv.GetEncoded("hex")

// Output:  4142434445464748494A4B4C4D4E4F505152535455565758595A0A


release loSock
release loBdToSend
release loBdRecv