Сгруппированный обмен сообщениями по TCP

@BIXTAR · Регистрация: 21.03.2017

Студворк — интернет-сервис помощи студентам

Добрый день! Существует такие маленькие клиент-серверные приложения.

Сервер:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Dim port As Int32 = 10000
    Dim serverSocket As TcpListener
    Dim clientSocket As TcpClient
    Dim listenThread As Threading.Thread
    Public networkStream As NetworkStream
    Delegate Sub SetTextCallback(ByVal statusMessage As String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btSend.Enabled = False
        txtSend.Enabled = False
    End Sub
 
    Private Sub listenStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listenStart.Click
        If listenStart.Tag = 0 Then
            listenStart.Tag = 1
            listenStart.Text = "Приостановить прослушиватель"
            btSend.Enabled = True
            txtSend.Enabled = True
            listenThread = New Threading.Thread(AddressOf doListen)
            listenThread.Start()
        Else
            listenStart.Tag = 0
            listenStart.Text = "Запустить прослушиватель"
            listenThread.Abort()
            clientSocket.Close()
            serverSocket.Stop()
            UpdateStatus("Прослушиватель приостановлен!")
        End If
    End Sub
 
    Public Sub doListen()
        Try
            serverSocket = New TcpListener(IPAddress.Any, port)
            serverSocket.Start()
            UpdateStatus("Сервер запущен на порт:" & port & vbCrLf & "Ожидание входящего подключения...")
            Do
                clientSocket = serverSocket.AcceptTcpClient()
                UpdateStatus("Обнаружено новое соединение!" & vbCrLf)
                Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)
                ctThread.Start()
            Loop
        Catch
        End Try
    End Sub
 
    Private Sub UpdateStatus(ByVal statusMessage As String)
        If RichTextBox1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf UpdateStatus)
            Me.Invoke(d, New Object() {statusMessage})
        Else
            RichTextBox1.Text += statusMessage & vbCrLf
        End If
    End Sub
 
    Private Sub btSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSend.Click
        SendData("L1|" + "123456789")
        SendData("L2|" + "123456789")
        SendData("L3|" + "123456789")
        SendData("L4|" + "123456789")
        SendData("L5|" + "123456789")
        SendData("L6|" + "123456789")
    End Sub
 
    Public Sub SendData(ByVal strMessage As String)
        networkStream = clientSocket.GetStream()
        Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes(strMessage & vbCrLf)
        networkStream.Write(outStream, 0, outStream.Length)
        networkStream.Flush()
    End Sub
 
    Private Sub doChat()
        Do
            networkStream = clientSocket.GetStream()
            Dim bytes(clientSocket.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(clientSocket.ReceiveBufferSize))
            Dim returndata As String = Encoding.ASCII.GetString(bytes)
            Dim dataArray() As String
            dataArray = returndata.Split(Chr(124))
            Select Case dataArray(0)
                Case "L1"
                    UpdateStatus("Host returned L1: " + dataArray(1))
                Case "L2"
                    UpdateStatus("Host returned L2: " + dataArray(1))
                Case "L3"
                    UpdateStatus("Host returned L3: " + dataArray(1))
                Case "L4"
                    UpdateStatus("Host returned L4: " + dataArray(1))
                Case "L5"
                    UpdateStatus("Host returned L5: " + dataArray(1))
                Case "L6"
                    UpdateStatus("Host returned L6: " + dataArray(1))
            End Select
        Loop
    End Sub

Клиент:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
 
Public Class Form1
    Dim port As Int32 = 10000
    Delegate Sub SetTextCallback(ByVal statusMessage As String)
    Dim tcpClient As New System.Net.Sockets.TcpClient()
    Dim clientThread As Threading.Thread
    Dim networkStream As NetworkStream
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btSend.Enabled = False
        txtSend.Enabled = False
    End Sub
 
    Private Sub clientStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clientStart.Click
        If clientStart.Tag = 0 Then
            clientStart.Tag = 1
            clientStart.Text = "Запустить"
            btSend.Enabled = True
            txtSend.Enabled = True
            tcpClient.Connect("127.0.0.1", 10000)
            Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doRead)
            ctThread.Start()
        Else
            clientStart.Tag = 0
            clientStart.Text = "Остановить"
            UpdateStatus("Клиент приостановлен!")
        End If
    End Sub
 
    Public Sub doRead()
        Do
            networkStream = tcpClient.GetStream
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            Dim returndata As String = Encoding.ASCII.GetString(bytes)
            Dim dataArray() As String
            dataArray = returndata.Split(Chr(124))
            Select Case dataArray(0)
                Case "L1"
                    UpdateStatus("Host returned L1: " + dataArray(1))
                Case "L2"
                    UpdateStatus("Host returned L2: " + dataArray(1))
                Case "L3"
                    UpdateStatus("Host returned L3: " + dataArray(1))
                Case "L4"
                    UpdateStatus("Host returned L4: " + dataArray(1))
                Case "L5"
                    UpdateStatus("Host returned L5: " + dataArray(1))
                Case "L6"
                    UpdateStatus("Host returned L6: " + dataArray(1))
            End Select
        Loop
    End Sub
 
    Private Sub UpdateStatus(ByVal statusMessage As String)
        If RichTextBox1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf UpdateStatus)
            Me.Invoke(d, New Object() {statusMessage})
        Else
            RichTextBox1.Text += statusMessage & vbCrLf
        End If
    End Sub
 
    Public Sub SendData(ByVal strMessage As String)
        networkStream = tcpClient.GetStream
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(strMessage & vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        networkStream.Flush()
    End Sub
 
    Private Sub btSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSend.Click
        SendData("L1|" + "123456789")
        SendData("L2|" + "123456789")
        SendData("L3|" + "123456789")
        SendData("L4|" + "123456789")
        SendData("L5|" + "123456789")
        SendData("L6|" + "123456789")
    End Sub
End Class

Обмен происходит, но задался таким вот вопросом.
Почему у меня в обеих случаях доходят сообщения только от L1 и L2 , а остальные просто не пришли и как можно сделать чтобы все с L1 по L6 дошли!
Заранее спасибо!

@Замабувараев · 19.02.2018, 09:45

Перестаньте, для чтения и записи текстовых данных есть классы StreamReader и StreamWriter, создайте их на базе NetworkStream. Никакой возни с перекодирование байтов в строку и обратно, присоединением vbCrLf и выделения буфера.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,255 Записей в блоге: 4
	19.02.2018, 09:45
	Перестаньте, для чтения и записи текстовых данных есть классы StreamReader и StreamWriter, создайте их на базе NetworkStream. Никакой возни с перекодирование байтов в строку и обратно, присоединением vbCrLf и выделения буфера. 1