(PureBasic) Send Bytes on a Socket Connection

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkSocket.pb"

Procedure ChilkatExample()

    ; This example requires the Chilkat API to have been previously unlocked.
    ; See Global Unlock Sample for sample code.

    socket.i = CkSocket::ckCreate()
    If socket.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to some host:port
    ssl.i = 0
    maxWaitMillisec.i = 20000
    port.i = 5555
    success.i = CkSocket::ckConnect(socket,"test.com",port,ssl,maxWaitMillisec)
    If success <> 1
        Debug CkSocket::ckLastErrorText(socket)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    ; We wish to send a 0x00 byte followed by the us-ascii string "10800"
    bd.i = CkBinData::ckCreate()
    If bd.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckAppendByte(bd,0)
    CkBinData::ckAppendString(bd,"10800","utf-8")

    ; Send the entire contents of bd.
    success = CkSocket::ckSendBd(socket,bd,0,0)
    If success <> 1
        Debug CkSocket::ckLastErrorText(socket)
        CkSocket::ckDispose(socket)
        CkBinData::ckDispose(bd)
        ProcedureReturn
    EndIf



    CkSocket::ckDispose(socket)
    CkBinData::ckDispose(bd)


    ProcedureReturn
EndProcedure