वीबीएनईटी - टीसीपी क्लाइंट से डेटा क्रम में नहीं है

मैं इस परियोजना पर लगभग एक साल से काम कर रहा हूं। यह एक मूल ग्राहक \ सर्वर चैट प्रोग्राम है। सुधार के लंबे समय बाद, मैंने अपने सर्वर की ताकत का परीक्षण करने का फैसला किया।

क्लाइंट पर, मैंने 200 चैट संदेशों ("FLOOD # 1" ... "FLOOD # 200") को जितनी जल्दी हो सके सर्वर पर निकाल दिया। नतीजा: सर्वर तुरंत दुर्घटनाग्रस्त हो जाता है। कुछ मामूली छेड़छाड़ के बाद, मैं सर्वर को छोड़ने से पहले 200 संदेशों में से 135 को संसाधित करने में सक्षम था। यह अब दुर्घटनाग्रस्त नहीं है, लेकिन कुछ अलग होता है। क्लाइंट से डेटा क्रम में प्राप्त होता है, लेकिन जब मैं उस संदेश को किसी फ़ंक्शन पर पास करता हूं ( myForm.OnLineReceived ), डेटा पूरी तरह से आदेश से बाहर है। यदि मैं OnLineRecieved फ़ंक्शन के कॉलिंग के बीच थोड़ी देर देरी जोड़ता हूं, तो संदेश सही क्रम में हैं।

क्लाइंट से प्रत्येक संदेश पहले एन्क्रिप्टेड होता है, फिर बेस 64 में एन्कोड किया जाता है। एक "-" अंत में जोड़ा जाता है ताकि सर्वर आसानी से प्रत्येक डेटा "पैकेट" का अंत ढूंढ सके।

मुझे यकीन है कि यह कुछ बेवकूफ गलती है कि आप आसानी से मुझे ढूंढेंगे और मुझे बताएंगे। निगाह डालने के लिए धन्यवाद ;)

सर्वर कोड:

Imports System.Net.Sockets
Imports System.Text

' The UserConnection class encapsulates the functionality of a TcpClient connection
' with streaming for a single user.
Public Class UserConnection

Private client As TcpClient
Private readBuffer(READ_BUFFER_SIZE) As Byte

Public UID As String = ""
Public isAdmin As Boolean
Public IpAddress As String
Public username As String = ""
Public Country As String = ""
Public ServerID As String = ""
Public Status As String = ""
Public UserComp As String = ""
Public OS As String = ""

Public SessionKey As String = ""
Public UsePublicKeyEncryption As Boolean = True

Public Version As Decimal = 0.0

Const READ_BUFFER_SIZE As Integer = 500

Private _commands As New System.Text.StringBuilder
Private command_count As Integer = 1

' Overload the New operator to set up a read thread.
Public Sub New(ByVal client As TcpClient) 'this runs every time a new client is added
    Me.client = client
    IpAddress = Me.client.Client.RemoteEndPoint.ToString.Substring(0, Me.client.Client.RemoteEndPoint.ToString.LastIndexOf(":")) 'ip address of client
    ' This starts the asynchronous read thread.  The data will be saved into
    ' readBuffer.
    Call Worker()
End Sub

Public Sub ForceKill()
    On Error Resume Next
    client.GetStream.Close()
    client.Close()
    client = Nothing
End Sub

Private Sub Worker()
    Try
        SyncLock client
            Dim tmp_byte(client.ReceiveBufferSize) As Byte
            Me.client.GetStream.BeginRead(tmp_byte, 0, client.ReceiveBufferSize, AddressOf RecieveDataAndSplit, Nothing)
            readBuffer = tmp_byte
        End SyncLock

    Catch
        Call myForm.OnLineReceived(Me, "D") 'this also calls ForceKill()
    End Try
End Sub


Public Event LineReceived(ByVal sender As UserConnection, ByVal Data As String)

' This subroutine uses a StreamWriter to send a message to the user.
Public Sub SendData(ByVal Data As String)
    ' Synclock ensure that no other threads try to use the stream at the same time.
    SyncLock client
        Dim writer As New IO.StreamWriter(client.GetStream)
        writer.Write(ToBase64(AES_Encrypt(Data, SessionKey)) & "-")
        ' Make sure all data is sent now.
        writer.Flush()
    End SyncLock
End Sub



Public Sub RecieveDataAndSplit(ByVal ar As IAsyncResult) 'this is the FIRST function that incoming data is ran through
    Dim BytesRead As Integer
    Dim Content As String

    Try
        ' Ensure that no other threads try to use the stream at the same time.
        SyncLock client
            ' Finish asynchronous read into readBuffer and get number of bytes read.
            BytesRead = client.GetStream.EndRead(ar)
        End SyncLock
    Catch e As Exception
        Call myForm.OnLineReceived(Me, "D") 'couldn't read the stream from the client. Kill our connection with them :P
        Exit Sub
    End Try



    Try
        Content = Encoding.ASCII.GetString(readBuffer, 0, BytesRead)
    Catch ex As Exception
        Call Worker()
        Exit Sub
    End Try


    Dim commands() As String
    Try
        commands = LineTrim(Content).Split("-")
    Catch
    End Try


    Dim i As Integer = 0

    For i = 0 To commands.Length - 1

        If commands(i) <> "" Then

            Dim decrypted_content As String = AES_Decrypt(FromBase64(commands(i)), SessionKey)
            If decrypted_content <> "" Then

                'If decrypted_content = "D" Or Nothing Then
                '    client.GetStream.Close()
                '    client.Close()
                '    Call myForm.OnLineReceived(Me, decrypted_content)
                'Else

                Call myForm.OnLineReceived(Me, decrypted_content)
                Call Worker() 'reads the stream again
                'End If
            End If
        End If
    Next

End Sub
End Class

क्लाइंट कोड:

Public Sub SendData(ByVal data As String)
    Try
        If data = "D" Then 'telling server that we're closing
            ForceDisconnect(False)
        Else 'any other message
            Dim sendBytes As [Byte]()

            sendBytes = Encoding.ASCII.GetBytes(ToBase64(AES_Encrypt(data, SessionKey)) & "-")

            Dim networkStream As NetworkStream = tcp_client.GetStream()
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            networkStream.Flush()
        End If
    Catch ex As Exception
        connection_state_toggle(False)

        Label1.ForeColor = Color.Black
        Label1.Text = "Idle"
    End Try



End Sub
3
क्या आप प्रत्येक संदेश के साथ कनेक्शन बना रहे हैं, या सभी संदेशों को भेजने के लिए केवल एक कनेक्शन का उपयोग कर रहे हैं?
जोड़ा लेखक BlackICE, स्रोत
सभी संदेशों के लिए एक कनेक्शन।
जोड़ा लेखक Andrew Paglusch, स्रोत

3 उत्तर

क्लासिक टीसीपी/आईपी नेटवर्किंग गलती। आप मान रहे हैं कि भेजा गया डेटा संदेश या पैकेट में है, लेकिन यह वास्तव में एक स्ट्रीम है। मान लें कि आपका ग्राहक संदेश 1-message2-message3-message4 भेजता है। आपके पढ़ने के कॉलबैक पर सर्वर की तरफ आप प्राप्त कर सकते हैं:

message1-m

या

message1-message2-

या

message1-message2-message3-message4

या just

m

जब आप इस तरह के खंडित संदेश प्राप्त करते हैं तो अपने पार्सिंग कोड (आदेशों का विभाजन) के बारे में सोचें। अच्छा टीसीपी/आईपी कोड प्रति प्राप्त एक बाइट डेटा प्राप्त करने में जीवित रहने में सक्षम होना चाहिए। यदि यह नहीं हो सकता है तो आप समस्याओं में भागने के लिए बाध्य हैं।

The typical approach is to keep adding to a buffer and inspecting the buffer each time fया a completed message and then poping off just that message, leaving any partial message trailing in the buffer to get filled out later. Checks fया DOS attacks/problems like discarding the buffer if it gets too large (based on your protocol) should be added at some point as well.

2
जोड़ा
अनुवर्ती करने के लिए, यह अनुमान करना मुश्किल है कि कोड कितने तरीकों से टूट सकता है क्योंकि संदेश विभिन्न तरीकों से frgamnet कर सकते हैं। कभी-कभी आपका डिक्रिप्ट असफल हो जाता है। यदि आपको एक रिसीव पर दो संदेश प्राप्त हुए हैं तो ऐसा लगता है कि आप एक बार के बजाय कॉल वर्कर() दो बार कॉल करेंगे।
जोड़ा लेखक tcarvin, स्रोत
मदद करने में खुशी। यदि आप उत्तर को सही मानते हैं, तो कृपया इसे स्वीकृत के रूप में चिह्नित करें। आप यह समझ लेंगे कि अधिक उपयोगकर्ता आपके भविष्य के सवालों के जवाब देने के लिए समय लेना चाहते हैं यदि वे देख सकें कि आप उपयुक्त होने पर उत्तर स्वीकार करने के लिए समय लेते हैं :)
जोड़ा लेखक tcarvin, स्रोत
मुझे डर था कि यही हो रहा है। लेकिन आप फिर से व्यवस्थित संदेशों को कैसे समझा सकते हैं? मुझे 80 वें संदेश के बाद संदेश # 4 मिलता है।
जोड़ा लेखक Andrew Paglusch, स्रोत
डुप्लिकेट 'कॉल वर्कर ()' कोड को इंगित करने के लिए धन्यवाद। यह एक डिबगिंग उन्माद से कुछ बचे हुए हैं :)
जोड़ा लेखक Andrew Paglusch, स्रोत
कुछ काम कोड मिला। ASAP पोस्ट करेगा (कल हो सकता है)
जोड़ा लेखक Andrew Paglusch, स्रोत
            Dim thrd As New System.Threading.Thread(AddressOf RecieveDataAndSplit)
            thrd.Start(bytesFrom)
            thrd.Join()

आप डेटा को संसाधित करने के लिए नए धागे बना रहे हैं, इस थ्रेड को सीपीयू समय कैसे मिलेगा, इस क्रम में कोई गारंटी नहीं है, इस प्रकार वे ऑर्डर के बाहर जोड़े गए हैं।


    SyncLock client.GetStream
        Dim tmp_byte(client.ReceiveBufferSize) As Byte
        Me.client.GetStream.BeginRead(tmp_byte, 0, client.ReceiveBufferSize, AddressOf RecieveDataAndSplit, Nothing)
        readBuffer = tmp_byte
    End SyncLock

मेरे पास अभी मेरे साथ डीबग करने के लिए कुछ भी नहीं है, लेकिन मुझे आश्चर्य है कि जब भी आप इसे कॉल करते हैं तो गेटस्ट्रीम एक अलग ऑब्जेक्ट संदर्भ लौटा सकता है, इस प्रकार सिंकलॉक जो आप करने की कोशिश कर रहे हैं उसके लिए अप्रभावी बनाते हैं। मैं सिर्फ ग्राहक पर Synclock करने की कोशिश करेंगे।

1
जोड़ा
हाँ, ऐसा करता है, मैंने सोचा था कि आपके पास काम करने वाले धागे में धागा था, लेकिन पुराना कोड चला गया है ...
जोड़ा लेखक BlackICE, स्रोत
इस पर निर्भर करता है कि आप कहां कॉल कर रहे हैं, यदि आप धागे का एक गुच्छा बनाते हैं, तो प्रत्येक पर शामिल हों, यह उन्हें बनाए रखेगा, अगर आप एक बनाते हैं और इसे बनाने से पहले इसमें शामिल होते हैं, तो फिर क्या बात है थ्रेडिंग कर रहा हूँ।
जोड़ा लेखक BlackICE, स्रोत
क्लाइंट कोड पोस्ट करें यदि आप कर सकते हैं और जब मैं डीबगर पर जा सकता हूं तो मैं इसे देखने की कोशिश करूंगा।
जोड़ा लेखक BlackICE, स्रोत
मैंने गलती से कुछ पुराना कोड पोस्ट किया। मैंने इसे अपने नवीनतम संस्करण के साथ अपडेट किया है। और जब तक निर्मित थ्रेड निकल नहीं जाता है तब तक कॉलिंग थ्रेड को निष्पादन रोकने के लिए "()" शामिल नहीं है? उत्तर के लिए धन्यवाद!
जोड़ा लेखक Andrew Paglusch, स्रोत
तो, जॉइन() को फ़ंक्शन कॉल को क्रम में रखना चाहिए, है ना?
जोड़ा लेखक Andrew Paglusch, स्रोत
मैं क्लाइंट को सिंकलॉक करने के साथ इसका परीक्षण कर रहा हूं ...
जोड़ा लेखक Andrew Paglusch, स्रोत
सिंकलॉक सिर्फ "क्लाइंट" पर कोई सुधार नहीं दिखाता है। संदेश अभी भी मिश्रित हो रहे हैं।
जोड़ा लेखक Andrew Paglusch, स्रोत
मैंने अभी इसे पोस्ट किया है
जोड़ा लेखक Andrew Paglusch, स्रोत

ठीक है, हर किसी के इनपुट के लिए धन्यवाद (ज्यादातर आंशिक आदेशों का 'बफर' बनाने का टैकरविन का विचार), मैंने कुछ स्पिफी कोड काम करने में कामयाब रहा है!

उम्मीद है कि यह दूसरों को पीड़ा के दिनों को बचाएगा जो मैंने स्वयं से किया था।

यहां 100% कार्य कोड है:

Imports System.Net.Sockets
Imports System.Text

' The UserConnection class encapsulates the functionality of a TcpClient connection
' with streaming for a single user.
Public Class UserConnection

Private client As TcpClient

Private income_message_buffer As New System.Text.StringBuilder 'all new messages are added onto the end of this. messages are pulled from the beginning in a timely manner

Public Sub Run(ByVal client As TcpClient)
    Me.client = client
    Call MessageParser()
End Sub

Public Sub ForceKill()
    On Error Resume Next
    client.GetStream.Close()
    client.Close()
    client = Nothing
End Sub

Private Sub MessageParser()
    Do

        If client.Connected = True Then
            If client.GetStream.DataAvailable = True Then
                Dim tmp_byte(client.ReceiveBufferSize) As Byte
                Dim BytesRead As Integer
                Dim content As String

                SyncLock client
                    BytesRead = Me.client.GetStream.Read(tmp_byte, 0, client.ReceiveBufferSize)
                End SyncLock

                Try
                    content = Encoding.ASCII.GetString(tmp_byte, 0, BytesRead)
                    income_message_buffer.Append(LineTrim(content))
                Catch ex As Exception

                End Try


            End If
        End If


        Dim EndOfFirstMessage As Integer = income_message_buffer.ToString.IndexOf("-") 'gets the first occurace of "-" in the buffer
        If EndOfFirstMessage >= 0 Then
            Dim message As String = income_message_buffer.ToString.Substring(0, EndOfFirstMessage) 'gets everything before the "-"
            income_message_buffer.Remove(0, EndOfFirstMessage + 1) 'removes the first message AND the "-"
            Call ParseMessage(message)
        End If



    Loop
End Sub

Public Event LineReceived(ByVal sender As UserConnection, ByVal Data As String)

' This subroutine uses a StreamWriter to send a message to the user.
Public Sub SendData(ByVal Data As String)
    ' Synclock ensure that no other threads try to use the stream at the same time.
    SyncLock client
        Dim writer As New IO.StreamWriter(client.GetStream)
        writer.Write(ToBase64(AES_Encrypt(Data, SessionKey)) & "-")
        ' Make sure all data is sent now.
        writer.Flush()
    End SyncLock
End Sub



Public Sub ParseMessage(ByVal message As String) 'this is the FIRST function that incoming data is ran through

    Dim decrypted_content As String = AES_Decrypt(FromBase64(message), SessionKey)

    If decrypted_content <> "" Then
        Call myForm.OnLineReceived(Me, decrypted_content)
    End If


End Sub
End Class
1
जोड़ा