PureBasic

Socket Send and Receive BinData

Demonstrates the Chilkat Socket ReceiveBdN and SendBd methods. PureBasic

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

Procedure ChilkatExample()

    success.i = 0

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

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

    ; --------------------------------------------------------------------
    ; This example uses the public TCP echo service at https://tcpbin.com/
    ; --------------------------------------------------------------------

    useTls.i = 0
    port.i = 4242
    maxWaitMs.i = 5000
    success = CkSocket::ckConnect(sock,"tcpbin.com",port,useTls,maxWaitMs)
    If success = 0
        Debug CkSocket::ckLastErrorText(sock)
        CkSocket::ckDispose(sock)
        ProcedureReturn
    EndIf

    ; Wait a max of 2 seconds for a response..
    CkSocket::setCkMaxReadIdleMs(sock, 2000)

    ; Send 26 bytes contained in a Chilkat BinData
    bdToSend.i = CkBinData::ckCreate()
    If bdToSend.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    i.i = 0
    byteVal.i = 65
    While i < 26
        CkBinData::ckAppendByte(bdToSend,byteVal)
        byteVal = byteVal + 1
        i = i + 1
    Wend
    ; Send the contents of the BinData
    ; Pass zero's in the 2nd and 3rd arguments to send the entire contents of the BinData.
    CkSocket::ckSendBd(sock,bdToSend,0,0)

    ; The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
    CkSocket::ckSendByte(sock,10)

    ; The echo server will echo back whatever is sent to it.
    ; We should be able to read the same bytes back..
    bdRecv.i = CkBinData::ckCreate()
    If bdRecv.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Receive the 26 bytes previously sent, plus the LF char.
    success = CkSocket::ckReceiveBdN(sock,27,bdRecv)
    If success = 0
        Debug CkSocket::ckLastErrorText(sock)
        CkSocket::ckDispose(sock)
        CkBinData::ckDispose(bdToSend)
        CkBinData::ckDispose(bdRecv)
        ProcedureReturn
    EndIf

    ; Show the contents of bdRecv in hex format
    Debug CkBinData::ckGetEncoded(bdRecv,"hex")

    ; Output:  4142434445464748494A4B4C4D4E4F505152535455565758595A0A


    CkSocket::ckDispose(sock)
    CkBinData::ckDispose(bdToSend)
    CkBinData::ckDispose(bdRecv)


    ProcedureReturn
EndProcedure