[RESOLVED] handling raw data after it reaches winsock

[pannam]

hi all,
i have been stuck at it quite a while, i did make a post about it but it was lost so, i have made my own client/server which uses a certain asc char and length of the data in its tcp data.....the server sends tcp data which reaches the client winsock control and then process it...
as i receive the data i split them up ...i have used chr(02) to mark the begining of my data and used the 9th byte to mark the length of the data
after i receive my data ..i use this code to process them.

 Dim sPackS As Integer
Dim sPackE As Integer
Dim i As Integer
Dim j As Integer
Dim sLast As Integer
Dim sType As DataTypes
Dim sData As String
Dim sAllData As String
Dim sLength As String
For i = 1 To Len(iData) ' loop around each character
    If Mid(iData, i, 1) = "chr(02)" Then ' find the character char(02)
       sLength = Asc(Mid(iData, 9, 1)) ' find the length of the packet
        sPackS = i + 1 ' set the position of the packet 
        For j = sPackS To Len(iData)
            If (j = Len(iData)) And Mid(iData, j, 1) <> "chr(02)" Then
                sPackE = Len(iData)
                sAllData = Mid(iData, sPackS, sPackE)
                sAllData = iData
                If Len(sAllData) < 3 Then
                    sType = sAllData
                Else
                    sType = Asc(Mid(sAllData, 2, 1))
                   sData = Mid(sAllData, 4, (Len(sAllData) - 3))
                End If
                Call Incoming_Data(sType, sData)
                Exit Sub
            ElseIf Mid$(iData, sLength + 10, 1) = "chr(02)" Then ' find the end of the packet and process it 
              sPackE = (sLength + 8)
                sAllData = Mid(iData, sPackS, sPackE)
                 If Len(sAllData) < 3 Then
                  sType = sAllData
                Else
                  sType = Asc(Mid(sAllData, 2, 1))
                    sData = Mid(sAllData, 4, (Len(sAllData) - 3))
                End If
                  Call Incoming_Data(sType, sData)
                Exit For
            
            End If
        Next j
    End If
Next i
End Sub

to make the tcp data a little complicated i have used chr(02) in between my the tcp data that the server sends to the client
this is a data that the server sends to the client

chr(02)
ô.....Ochr(02)...pannam....
'roompearls....hello this is a message....chr(02).
.
...

....


the above code of the client can handle if the data are less in number for example less than 10 or so...but if i send a lot of data at the same time let's say 100 then 5 or more data are cut off and only 95 are shown in the text box..although in the debug window all the data arrive..the reason for this is..the last data has to run through..

  If (j = Len(iData)) And Mid(iData, j, 1) <> "chr(02)" Then
                sPackE = Len(iData)
                sAllData = Mid(iData, sPackS, sPackE)
                sAllData = iData
                If Len(sAllData) < 3 Then
                    sType = sAllData
                Else
                    sType = Asc(Mid(sAllData, 2, 1))
                   sData = Mid(sAllData, 4, (Len(sAllData) - 3))
                End If
                Call Incoming_Data(sType, sData)
                Exit Sub

but it doesnot..rather runs through the latter part of the code and gives the out put..
i am uploading my server /client which is quite simple..i hope some body can help me out with this..coz i am stuck with it real bad..

[pannam]

hey...somebody ..???? common guyz please take a look this shouldn't be difficult.. before this post gets trashed ..please

[dbasnett]

i don't understand the question.

it seems that you are sending message(s) from the server to the client. the message starts with 02 and has a length in the 9th byte. if the messages are 8 bytes long why send 02 and the length?

[pannam]

i don't understand the question.

it seems that you are sending message(s) from the server to the client. the message starts with 02 and has a length in the 9th byte. if the messages are 8 bytes long why send 02 and the length?

02 is the start of my tcp data, all my data has 02 at its begining .
the problem i face is 02 is present in between the tcp data for example "...02..........blah blah ...02 ....02 ... " and so. and i don't want to change the tcp data rather my code so, i can process the data . ..now, the reason i am using the length in the 9 th byte is because i count the number of bytes from there and add 9 which makes it one complete tcp data. this way even if i get lots of data in my winsock i can handle them by knowing the length of the data....my only problem is i cannot process the last data that arrives in my winsock because the last data has to run through

  If (j = Len(iData)) And Mid(iData, j, 1) <> "chr(02)" Then 'this is the last data that is present in the winsock
                sPackE = Len(iData)
                sAllData = Mid(iData, sPackS, sPackE)
                sAllData = iData
                If Len(sAllData) < 3 Then
                    sType = sAllData
                Else
                    sType = Asc(Mid(sAllData, 2, 1))
                   sData = Mid(sAllData, 4, (Len(sAllData) - 3))
                End If
                Call Incoming_Data(sType, sData)
                Exit Sub

which i fail to do..

[pannam]

anywayz i got it right i changed

ElseIf Mid$(iData, sLength + 10, 1) = "chr(02)"

to

 ElseIf Mid$(idata, j, 1) = "chr(02)"Then

this way the code finds out if there are any more chr(02) in the packet if there is then i have written code to find out if its the start of a packet or just a char in the packet..if its the start of a fresh data then it process it or else omits it and loops.