(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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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