(Lianja) Send Bytes on a Socket Connection

Demonstrates how to send a mixture of binary (non-text) and text bytes on a socket connection.

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.

loSocket = createobject("CkSocket")

// Connect to some host:port
llSsl = .F.
lnMaxWaitMillisec = 20000
lnPort = 5555
llSuccess = loSocket.Connect("test.com",lnPort,llSsl,lnMaxWaitMillisec)
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    return
endif

// We wish to send a 0x00 byte followed by the us-ascii string "10800"
loBd = createobject("CkBinData")

loBd.AppendByte(0)
loBd.AppendString("10800","utf-8")

// Send the entire contents of bd.
llSuccess = loSocket.SendBd(loBd,0,0)
if (llSuccess <> .T.) then
    ? loSocket.LastErrorText
    release loSocket
    release loBd
    return
endif



release loSocket
release loBd