(Xojo Plugin) Send Bytes on a Socket Connection
Demonstrates how to send a mixture of binary (non-text) and text bytes on a socket connection.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim socket As New Chilkat.Socket
// Connect to some host:port
Dim ssl As Boolean
ssl = False
Dim maxWaitMillisec As Int32
maxWaitMillisec = 20000
Dim port As Int32
port = 5555
Dim success As Boolean
success = socket.Connect("test.com",port,ssl,maxWaitMillisec)
If (success <> True) Then
System.DebugLog(socket.LastErrorText)
Return
End If
// We wish to send a 0x00 byte followed by the us-ascii string "10800"
Dim bd As New Chilkat.BinData
success = bd.AppendByte(0)
success = bd.AppendString("10800","utf-8")
// Send the entire contents of bd.
success = socket.SendBd(bd,0,0)
If (success <> True) Then
System.DebugLog(socket.LastErrorText)
Return
End If
|