(Visual Basic 6.0) 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 ChilkatSocket
' Connect to some host:port
Dim ssl As Long
ssl = 0
Dim maxWaitMillisec As Long
maxWaitMillisec = 20000
Dim port As Long
port = 5555
Dim success As Long
success = socket.Connect("test.com",port,ssl,maxWaitMillisec)
If (success <> 1) Then
Debug.Print socket.LastErrorText
Exit Sub
End If
' We wish to send a 0x00 byte followed by the us-ascii string "10800"
Dim bd As New ChilkatBinData
success = bd.AppendByte(0)
success = bd.AppendString("10800","utf-8")
' Send the entire contents of bd.
success = socket.SendBd(bd,0,0)
If (success <> 1) Then
Debug.Print socket.LastErrorText
Exit Sub
End If
|
