Visual Basic 6.0

Send BinData Contents over a Socket

Demonstrates Socket.SendBd, which sends bytes from a BinData beginning at an offset. A numBytes of 0 sends from the offset through the end of the data.

Background. The BinData receive methods accumulate raw bytes in a BinData object. A single receive returns only what is currently available, whereas the counted receive waits for an exact number of bytes.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

Dim socket As New ChilkatSocket

'  Connect to the server using TLS.
Dim bTls As Long
bTls = 1
Dim maxWaitMs As Long
maxWaitMs = 5000
success = socket.Connect("example.com",5000,bTls,maxWaitMs)
If (success = 0) Then
    Debug.Print socket.LastErrorText
    Exit Sub
End If

'  Place some bytes into a BinData to be sent.
Dim bd As New ChilkatBinData
success = bd.AppendString("message payload","utf-8")

'  Send bytes from the BinData starting at the given offset.  A numBytes of 0 sends from the offset
'  through the end of the data.
success = socket.SendBd(bd,0,0)
If (success = 0) Then
    Debug.Print socket.LastErrorText
    Exit Sub
End If

Debug.Print "Sent " & bd.NumBytes & " bytes."