Lianja

Send BinData Contents over a Socket

Demonstrates Socket.SendBd, which sends bytes from a BinData beginning at an offset. A numBytes of 0 sends from the offset through the end of the data.

Background. The BinData receive methods accumulate raw bytes in a BinData object. A single receive returns only what is currently available, whereas the counted receive waits for an exact number of bytes.

Chilkat Lianja Downloads

Download Chilkat for Lianja

Lianja

llSuccess = .F.

loSocket = createobject("CkSocket")

//  Connect to the server using TLS.
llBTls = .T.
lnMaxWaitMs = 5000
llSuccess = loSocket.Connect("example.com",5000,llBTls,lnMaxWaitMs)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

//  Place some bytes into a BinData to be sent.
loBd = createobject("CkBinData")
loBd.AppendString("message payload","utf-8")

//  Send bytes from the BinData starting at the given offset.  A numBytes of 0 sends from the offset
//  through the end of the data.
llSuccess = loSocket.SendBd(loBd,0,0)
if (llSuccess = .F.) then
    ? loSocket.LastErrorText
    release loSocket
    release loBd
    return
endif

? "Sent " + str(loBd.NumBytes) + " bytes."


release loSocket
release loBd