Winsock [RESOLVED]

[mik706]

I am trying to get to grips with winsock (I feel it is about time).

I have create a client and put the connect, send and close commands behind different button click events and it works fine, but when i come to try to do it behind one click event no data is sent. I don’t get any errors but no data is sent to the server app.

Any suggestions please.

Private Sub Command1_Click()
Dim count As Integer
Dim iData(1 To 4096) As Byte
Dim J As Long
Dim InputLength As Long
 
If winsock1.State <> sckClosed Then winsock1.Close
winsock1.Connect
 
iData(1) = 1
iData(2) = 4
iData(3) = 0
iData(4) = 4
iData(5) = 0
iData(6) = 2
iData(7) = 48
iData(8) = 10
 
Do Until winsock1.State = sckConnected
    DoEvents: DoEvents: DoEvents: DoEvents
    If winsock1.State = sckError Then
        MsgBox "No connection"
        Exit Sub
    End If
Loop
 
For J = 1 To 8
    winsock1.SendData (iData(J))
Next
 
winsock1.Close
End Sub

[mik706]

If anyone is interested i have solved the problem by putting a delay in after the send command:

Private Sub Command5_Click()
Dim count As Integer
Dim iData(1 To 4096) As Byte
Dim J As Long
Dim InputLength As Long
 
If winsock1.State <> sckClosed Then winsock1.Close
winsock1.Connect
 
iData(1) = 1
iData(2) = 4
iData(3) = 0
iData(4) = 4
iData(5) = 0
iData(6) = 2
iData(7) = 48
iData(8) = 10
 
Do Until winsock1.State = sckConnected
    DoEvents: DoEvents: DoEvents: DoEvents
    If winsock1.State = sckError Then
        MsgBox "No Connection"
        Exit Sub
    End If
Loop
 
For J = 1 To 8
    winsock1.SendData (iData(J))
Next
 
For count = 1 To 32000
    DoEvents
Next
 
winsock1.Close
End Sub

[lengwai]

mik,

It would be neater if you use a timer to control it.


all the best,
leng wai

[mik706]

I have done, i put the example up before i changed to using a timer.

[<ABX]

If it were me, i would break it up a little more:

Option Explicit
 
Dim blnSendComplete As Boolean
Dim blnSendDataOnConnect As Boolean ' This is here incase you connect for another reason
 
Private Sub Command5_Click()
If Winsock1.State <> sckClosed Then Winsock1.Close
blnSendDataOnConnect = True
Winsock1.Connect
End Sub
 
Private Function SendData()
Dim count As Integer
Dim iData(1 To 4096) As Byte
Dim J As Long
'Dim InputLength As Long EDIT: why is this here?
 
iData(1) = 1
iData(2) = 4
iData(3) = 0
iData(4) = 4
iData(5) = 0
iData(6) = 2
iData(7) = 48
iData(8) = 10
 
For J = 1 To 8
    Winsock1.SendData (iData(J))
    Do Until blnSendComplete
        DoEvents
    Loop
    blnSendComplete = False
Next
 
Winsock1.Close
End Function
 
Private Sub Winsock1_Connect()
If blnSendDataOnConnect = True Then
    SendData
End If
End Sub
 
Private Sub Winsock1_SendComplete()
blnSendComplete = True
End Sub