winsock getdata help

[ladoo]

Private Sub wss_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
On Error Resume Next
Dim x As Integer
data = ""
wss(Index).GetData data



If InStrRev(data, "Verification") Then
Me.Caption = "found"
Else
Me.Caption = "not found"
End If

'Call KillDupes(List8)
End Sub

[Doogle]

and your question is ?

[ladoo]

i want to detect if verification is found that

If InStrRev(data, "Verification") Then
Me.Caption = "found"
Else
Me.Caption = "not found"
End If

always detected as not found because of the else its not working right

[Doogle]

Well, you have no Application Protocol so how do you know when all the data has been received?

You might only be receiving "Ver" in the first DataArrival event and "ification" in the next DataArrival event, or it may take more than 2 DataArrival events to receive all the data. I'm sure we've discussed this in one of your earlier Threads.

[ladoo]

there is a 1 second delay before the data comes this is when the else statement kicks in its bugger

[jmsrickland]

Go get one of you old Winsock applications you and I were working on a few months back where the DataArrival event has the correct protocol coded. Use one of them. Remember how you had an end of message delimiter; Hex 30? Your data is only complete when you detect the end of data delimiter otherwise you need to buffer up the incoming data until you find that then you can use your If..Else..End If

[Nightwalker83]

@ ladoo this is the exact same thing you have been told before in one or two of your other threads.

[ladoo]

am thinking which source it was am taking a look untill then if you can pull it out can u post thanks.