B4X

Send Bytes on a Socket Connection

See more Socket/SSL/TLS Examples

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

Dim success As Boolean = False

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

Dim socket As ChilkatSocket
socket.Initialize("socket")

'  Connect to some host:port
Dim ssl As Boolean = False
Dim maxWaitMillisec As Int = 20000
Dim port As Int = 5555
success = socket.Connect("test.com", port, ssl, maxWaitMillisec)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If


'  We wish to send a 0x00 byte followed by the us-ascii string "10800"
Dim bd As ChilkatBinData
bd.Initialize

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

'  Send the entire contents of bd.
success = socket.SendBd(bd, 0, 0)
If success <> True Then
    Log(socket.LastErrorText)
    Return
End If