TCPserver客户端

最新推荐文章于 2023-02-10 19:00:07 发布
最新推荐文章于 2023-02-10 19:00:07 发布
阅读量911 收藏
点赞数
分类专栏： VB.NET 文章标签： 服务器 异常 行业数据
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/action20/article/details/9188139
版权
Imports System.Net
Imports System.Net.Sockets
Imports System
Imports System.Threading
Imports System.IO


Public Class ChatServer
    Implements IDisposable


#Region "自定义变量"


    Private ReadOnly ServerIP As IPAddress
    Private ReadOnly PortNum As Integer = 5000
    Private ReadOnly ServerTag As String


    Private SocketList As New ArrayList
    Private MySocket As Socket = Nothing
    Private listener As TcpListener
    Private SocketStream As NetworkStream
    Private Writer As BinaryWriter
    Private Reader As BinaryReader
    Private NewThread As Thread = Nothing


    Private IsStarted As Boolean = False  '服务器状态为未启动
    Private ClientCount As Integer = 0
    Const CMAXCOUNT = 30 '容许连接的最大客户端数目




    Public Event OnText(ByVal N As Integer, ByVal msg As String)
    Private Index As Integer
    Public ClientRemoteEndPoint As String


#End Region


#Region "初始化服务器端口参数"


    ''' <summary>
    ''' 初始化服务器端口参数
    ''' </summary>
    Sub New(ByVal SerIP As IPAddress, ByVal Port As Integer, ByVal SerTag As String)
        ServerIP = SerIP
        PortNum = Port
        ServerTag = SerTag
    End Sub


#End Region


#Region "属性区域"


    ''' <summary>
    ''' 服务器连接状态
    ''' </summary>
    Public ReadOnly Property IsConnected() As Boolean
        Get
            Return IsStarted
        End Get
    End Property


#End Region


#Region "自定义过程"


    ''' <summary>
    ''' 创建服务器
    ''' </summary>
    Public Sub Start()
        Try
            '创建一个侦听对象
            listener = New TcpListener(ServerIP, PortNum)
            '启动服务器侦听端口
            listener.Start()
            IsStarted = True
            RaiseEvent OnText(3, "服务器已启动")
            While True
                '连接客户端，返回一个 套接字
                If ClientCount <= CMAXCOUNT Then
                    MySocket = listener.AcceptSocket()
                    '添加到连接列表中
                    SocketList.Add(MySocket)
                    ClientRemoteEndPoint = MySocket.RemoteEndPoint.ToString()
                    RaiseEvent OnText(1, ClientRemoteEndPoint)
                    SocketStream = New NetworkStream(MySocket)
                    Writer = New BinaryWriter(SocketStream)
                    '通知客户端，连接成功
                    ' Writer.Write("与服务器成功连接" & vbCrLf) '应该在什么时候断开该连接
                    Writer.Write("EB90")
                    Writer.Flush()
                    ClientCount += 1
                Else
                    MySocket = listener.AcceptSocket()
                    SocketStream = New NetworkStream(MySocket)
                    Writer = New BinaryWriter(SocketStream)
                    '通知客户端，连接成功
                    Writer.Write("Server>>  服务器的连接数已满，连接已经断开")
                    '  MySocket.Disconnect(False) '断开连接
                    MySocket.Close()
                End If
            End While
        Catch ex As Exception
            IsStarted = False
            If listener IsNot Nothing Then listener.Stop()
            listener = Nothing
            RaiseEvent OnText(3, "服务器启动失败，请检查网络。")
            ' MsgBox(ex.ToString)
        Finally
            SocketStream = Nothing
            Writer = Nothing
            MySocket = Nothing
        End Try
    End Sub


    ''' <summary>
    ''' 该方法在每个实例中仅容许使用一次
    ''' </summary>
    Public Sub Connect()
        If Not IsStarted Then
            Try
                '创建新线程，用新的线程启动服务器
                NewThread = New Thread(New ThreadStart(AddressOf Start))
                NewThread.Name = "Thread for sever start"
                NewThread.Start()
                '  Catch ex As ThreadStartException
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "线程启动错误")
                '线程创建失败时服务器启动失败
            End Try
        Else
            MsgBox("该实例中已经有一个服务器进程在运行，若要创建新的服务器请使用其它实例", _
             MsgBoxStyle.OkOnly, "警告")
        End If


    End Sub


    ''' <summary>
    ''' 断开一个连接
    ''' </summary>
    Public Sub Disconnect(ByVal index As Integer)
        Try
            Dim con As Socket = SocketList(index)
            If con IsNot Nothing Then
                SocketList.RemoveAt(index)
                ClientCount -= 1
                RaiseEvent OnText(2, con.RemoteEndPoint.ToString)
                RaiseEvent OnText(3, con.RemoteEndPoint.ToString & " - 连接断开")
                con.Close()
            End If
        Catch ex As Exception
            MsgBox("操作错误")
        End Try
    End Sub


    ''' <summary>
    ''' 服务器连接断开
    ''' </summary>
    Public Sub Close()
        Try
            If MySocket IsNot Nothing Then MySocket.Close()
            If listener IsNot Nothing Then listener.Stop()
        Catch ex As Exception


        End Try
    End Sub
    ''' <summary>
    ''' 发消息给指定客户端
    ''' </summary>
    Public Sub SendMsg(ByVal index As Integer, ByVal msg As String)
        Dim Con As Socket
        Dim SocketStream As NetworkStream
        Dim SentMsg As BinaryWriter
        Try
            Con = SocketList(index)
            SocketStream = New NetworkStream(Con)
            SentMsg = New BinaryWriter(SocketStream)
            SentMsg.Write(msg)         '发送信息
            RaiseEvent OnText(3, "发送数据成功")
        Catch ex As IndexOutOfRangeException
            RaiseEvent OnText(3, "发送数据失败")
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "越界异常")
        Finally
            Con = Nothing
            SocketStream = Nothing
            SentMsg = Nothing
        End Try
    End Sub


    ''' <summary>
    ''' 发消息给所有客户端
    ''' </summary>
    Public Sub SendMsg(Optional ByVal msg As String = "")
        Dim Con As Socket
        Dim SocketStream As NetworkStream
        Dim SentMsg As BinaryWriter
        Try
            If SocketList.Count > 0 Then
                For Index = 0 To SocketList.Count - 1
                    Try
                        Con = SocketList(Index)
                        If Con Is Nothing Then
                            Thread.Sleep(300)
                            Continue For
                        End If
                        SocketStream = New NetworkStream(Con)
                        SentMsg = New BinaryWriter(SocketStream)
                        SentMsg.Write(msg)         '发送信息
                    Catch ex As IOException
                        SocketList.RemoveAt(Index)
                        ClientCount -= 1
                        If Con IsNot Nothing Then
                            RaiseEvent OnText(2, Con.RemoteEndPoint.ToString)
                            RaiseEvent OnText(3, Con.RemoteEndPoint.ToString & " - 连接断开")
                            RaiseEvent OnText(3, "发送数据给所有客户时失败")
                        End If


                        Exit Sub
                    Finally
                        Con = Nothing
                        SocketStream = Nothing
                        SentMsg = Nothing
                    End Try
                    Thread.Sleep(300)
                Next
                If msg = "" Then
                    RaiseEvent OnText(3, "自动发送数据给所有客户成功")
                Else
                    RaiseEvent OnText(3, "发送数据给所有客户成功")
                End If
            End If
            Thread.Sleep(300)
        Catch ex As Exception
            RaiseEvent OnText(3, "发送数据给所有客户时失败")
        End Try


    End Sub


    ''' <summary>
    ''' 接收客户的客户端消息
    ''' </summary>
    Public Function RecvieMsg() As String
        Dim msg As String = ""
        Dim Con As Socket
        Dim SStream As NetworkStream


        Dim i As Short
        Try
            For i = 0 To SocketList.Count - 1
                Con = SocketList.Item(i)
                If Con Is Nothing OrElse Not Con.Connected Then
                    Exit For
                End If
                If Con.Available = 0 Then
                    Thread.Sleep(30)
                    Continue For
                End If
                SStream = New NetworkStream(Con)
                Reader = New BinaryReader(SStream)
                Try
                    msg = Reader.ReadString
                    Return msg


                Catch ex As SocketException
                    MsgBox(ex.Message)
                Finally
                    Reader = Nothing
                    SStream = Nothing
                    Con = Nothing
                End Try
                Thread.Sleep(30)
            Next
        Catch ex As Exception


        End Try


        Return Nothing
    End Function


#End Region


    Public Shared Function GetMyFirstIPAddress()
        Try
            Dim MyHostName As String = System.Net.Dns.GetHostName()
            Dim MyIPEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(MyHostName)
            Dim MyAddresses() As System.Net.IPAddress = MyIPEntry.AddressList
            Dim IP As String
            For Each MyIP As System.Net.IPAddress In MyAddresses
                IP = MyIP.ToString()
                Dim temp() As String = IP.Split(".")
                ' Debug.Print(temp.Length)
            Next
            Return IP
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return DBNull.Value
    End Function


#Region "IDisposable Support"
    Private disposedValue As Boolean ' 检测冗余的调用
    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: 释放托管状态(托管对象)。
                If MySocket IsNot Nothing Then MySocket.Close()
                If listener IsNot Nothing Then listener.Stop()
                SocketList = Nothing
                MySocket = Nothing
                SocketStream = Nothing
                Writer = Nothing
                Reader = Nothing
                NewThread = Nothing
                listener = Nothing
                IsStarted = False
                ClientCount = 0
            End If


            ' TODO: 释放非托管资源(非托管对象)并重写下面的 Finalize()。
            ' TODO: 将大型字段设置为 null。
        End If
        Me.disposedValue = True
    End Sub


    ' TODO: 仅当上面的 Dispose(ByVal disposing As Boolean)具有释放非托管资源的代码时重写 Finalize()。
    'Protected Overrides Sub Finalize()
    '    ' 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean)中。
    '    Dispose(False)
    '    MyBase.Finalize()
    'End Sub


    ' Visual Basic 添加此代码是为了正确实现可处置模式。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean)中。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region


End Class
苏格兰之风
关注
专栏目录
基于tcp的socket通信（单个客户端与服务端）
fengsigaoju的博客
02-16 1447
//先启动服务端，创建8888端口号（一般采用系统1023之后的）,监听，如果存在通信返回socket，获得该socket字节流，转化为字符流并用bufferedreader缓冲，随后打印出服务端接收到的信息，同时回复客户端信息，最后关闭资源。 import java.io.BufferedReader; import java.io.IOException; import java.io.
TcpClient(客户端) and TcpServer(服务端)
04-22
C#:TcpClient(客户端) and TcpServer(服务端) 的实例
简单TCP服务器和客户端
wj
02-10 131
简单tcp服务器和客户端
Tcp客户端
u011093735的博客
01-26 532
1、TcpClient（Tcp客户端）代码，适用于初学者学习 2、可配套本人文章TcpServer或NetAssist网络调试工具，开客户端收发测试 3、windows下使用，本人工具vs2015 // TcpClient.cpp : 定义控制台应用程序的入口点。 // #include <stdio.h> #include <iostream> #include <winsock2.h> #pragma comment(lib,"ws2_32.lib") .
TCP服务端vb.net支持多客户端连接
pengwu666的专栏
10-25 5515
Imports System.Threading Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class Form1 Private thThreadRead As Thread Private tlTcpListen As TcpListener Private lstCl
tcp udp调试助手 TCP服务端 客户端 Tcpserver tcpclient udp
09-29
Tcpserver和Tcpclient是实现这一功能的工具，Tcpserver作为服务器端，接受并处理客户端的连接请求；Tcpclient作为客户端，发起连接并进行数据交互。 UDP则更加轻量级，它不保证数据的顺序和完整性，但具有更低的...
C#TcpClient(客户端)_and_TcpServer(服务端).txt
03-19
TcpClient(客户端) 和 TcpServer(服务端)代码示例 TcpListener 类提供一些简单方法，用于在阻止同步模式下侦听和接受传入连接请求。 可使用 TcpClient 或 Socket 来连接 TcpListener。 可使用 IPEndPoint、本地 IP ...
tcp.zip_java Tcp _tcp_tcp server_客户端 java_网络通信
09-14
本示例将介绍如何使用Java语言实现基于TCP的网络通信，包括服务器端和客户端的编程。 首先，我们要理解TCP的基本特性。TCP保证数据的有序传输，通过序列号和确认应答机制确保数据无丢失，并提供流量控制和拥塞控制...
tcp_demo.zip_C++ TCP_DEMO_socket tcp_tcp server_tcp客户端demo
09-14
1. `server.cpp`：服务器端代码，包含套接字创建、绑定、监听、接受客户端连接以及数据交换等功能。 2. `client.cpp`：客户端代码，包含套接字创建、连接服务器、发送和接收数据的功能。 3. 可能还有配置文件或者...
TCP-UDP.zip_LINUX TCP _linux 客户端_tcp server linux
09-21
本压缩包“TCP-UDP.zip”提供了在Linux环境下用C语言实现的TCP和UDP服务器及客户端的示例代码，这将帮助我们深入理解这两种协议的工作原理以及如何在实际编程中应用它们。 首先，TCP是一种面向连接的、可靠的协议，...
VB.net TCP传输 客户端
07-19
VB.net TCP传输 客户端 如果版本不兼容，复制代码过去。
VB.Net Socket多端口，可以相互聊天
12-09
VB.Net Socket一个服务器多个端口，可以相互聊天。是大家学习VB.net Socket的好手册！代码附有较多的注释，容易看懂！
TCP通信之QTcpServer和QTcpSocket，服务器和客户端通讯
houxian1103的博客
11-15 1万+
TCP传输控制协议 是一个可靠的（相对于UDP），面向流，面向连接的运输协议。 Socket 俗称“套接字”。就是对网络中不同主机上的应用进程之间进行双向通信的端点的抽象。一个套接字就是网络上进程通信的一端，提供了应用层进程利用网络协议交换数据的机制。从所处的地位来讲，套接字上联应用进程，下联网络协议栈，是应用程序通过网络协议进行通信的接口，是应用程序与网络协议根进行交互的接口。 套接字Socket=（IP地址：端口号） QTcpSocket传输的过程是连续的（对于网络的要求是比较高的，稳定）。TCP编程一
TCP协议服务端与客户端
Meryl00的博客
06-27 7379
TCP协议的简单介绍，文中提供服务端与客户端的简单实例。
基于TCP协议的客户端与服务器端程序
r_pppp的博客
07-16 7949
首先，介绍几个简单的Socket API，这些函数都在sys/socket.h中；
【windows socket+TCP服务器客户端】
热门推荐
Jiangwei的专栏
05-05 1万+
Windows Socket编程与服务器客户端示例      Winsock是 Windows下套接字标准。          Socket套接字基于计算机网络，提供同一系统上不同进程或由局域网连接在一起的不同机器上的进程间通讯功能。如下图： 套接字通过IP地址，Port端口号标识，通过这个标识可以在整个局域网定位一个套接字，通过套接字进程便可以相互传输数据。如：进程
MODBUS 浮点数
action20的专栏
07-09 3961
浮点数保存的字节格式如下： 地址 +0 +1 +2 +3 内容 SEEE EEEE EMMM MMMM MMMM MMMM MMMM MMMM 这里 S 代表符号位，1是负，0是正 E 偏移127的幂，二进制阶码=(EEEEEEEE)-127。 M 24位的尾数保存在23位中，只存储23位，最高位固定
linux c tcpserver 多客户端
最新发布
07-03
### 回答1： 在Linux环境下使用C语言编写一个TCP服务器来处理多个客户端的连接是很常见的需求。以下是一个基本的实现示例： 首先，我们需要创建一个服务器套接字，监听指定的端口。然后，我们需要使用`select`函数来实现多客户端的处理。`select`函数会阻塞直到某个套接字上有可读或可写的数据时才返回，我们可以利用这一特性来处理多个客户端的连接。 为了支持多个客户端，我们需要维护一个客户端套接字的集合，用于存储当前连接的客户端。每当有新的客户端连接到服务器时，我们将其套接字添加到这个集合中。 然后，我们使用`select`函数来监视所有的套接字，包括服务器套接字和客户端套接字。当`select`函数返回时，我们可以通过检查文件描述符集合中的每个套接字来确定哪个套接字上有可读或可写的数据。如果是服务器套接字上有可读的数据，表示有新的客户端请求连接，我们接受这个连接并将其套接字添加到客户端集合中。如果是客户端套接字上有可读的数据，表示客户端发送了数据，我们可以处理这些数据。如果是客户端套接字上有可写的数据，表示服务器可以向客户端发送数据。 在处理数据时，我们可以使用`recv`函数来接收来自客户端的数据，然后根据实际需求进行处理，比如打印或保存数据。如果需要向客户端发送数据，可以使用`send`函数来发送数据。 以上就是基于Linux下C语言实现多客户端TCP服务器的基本思路。需要注意的是，在实际的代码实现中，还需要处理一些异常情况，例如客户端断开连接时的处理。此外，还可以使用多线程或多进程来处理多个客户端的同时连接，以提高服务器的性能和并发处理能力。 ### 回答2： 在Linux C中，可以使用TCP服务器来处理多个客户端连接。以下是一个简单的示例代码： 1. 首先，创建一个套接字(socket)来监听客户端连接请求： ```c int sockfd = socket(AF_INET, SOCK_STREAM, 0); if (sockfd == -1) { perror("socket"); exit(EXIT_FAILURE); } struct sockaddr_in server_addr; server_addr.sin_family = AF_INET; server_addr.sin_port = htons(PORT); // 设置端口号 server_addr.sin_addr.s_addr = htonl(INADDR_ANY); // 监听所有网络接口 if (bind(sockfd, (struct sockaddr*)&server_addr, sizeof(server_addr)) == -1) { perror("bind"); exit(EXIT_FAILURE); } listen(sockfd, BACKLOG); // 启动监听 ``` 2. 使用循环等待客户端连接： ```c while(1) { struct sockaddr_in client_addr; socklen_t addr_len = sizeof(client_addr); int client_fd = accept(sockfd, (struct sockaddr*)&client_addr, &addr_len); if (client_fd == -1) { perror("accept"); exit(EXIT_FAILURE); } printf("Accept a connection from %s:%d\n", inet_ntoa(client_addr.sin_addr), ntohs(client_addr.sin_port)); // 在接受到客户端连接后，可以fork()一个子进程来处理该客户端，或者使用线程、多路复用等方式来处理多个客户端 // ... } ``` 3. 在处理连接后，可以进行相应的数据交互，如接收和发送数据，以及关闭连接等操作。 ```c // 读取客户端发送的数据 char buffer[MAX_BUFFER_SIZE]; int num_bytes = recv(client_fd, buffer, sizeof(buffer), 0); if (num_bytes == -1) { perror("recv"); exit(EXIT_FAILURE); } // 处理数据 // ... // 发送响应给客户端 char response[] = "Hello, client!"; if (send(client_fd, response, sizeof(response), 0) == -1) { perror("send"); exit(EXIT_FAILURE); } // 关闭与客户端的连接 close(client_fd); ``` 这是一个简单的多客户端TCP服务器的实现代码。当然，在实际应用中，可能需要处理更多的异常情况，如错误处理、客户端连接超时、并发访问等。同时，还可以使用线程池、epoll等技术来提高服务器的性能和并发处理能力。 ### 回答3： 在Linux C编程中，可以通过创建一个TCP服务器来处理多个客户端的连接请求。 首先，我们需要创建一个套接字，使用`socket()`函数，指定使用TCP协议，得到一个用于监听的套接字描述符。 ```c int serverSocket = socket(AF_INET, SOCK_STREAM, 0); ``` 然后，我们需要给服务器绑定一个地址和端口号，使用`bind()`函数，将套接字与特定的IP地址和端口号绑定。 ```c struct sockaddr_in serverAddress; serverAddress.sin_family = AF_INET; serverAddress.sin_port = htons(PORT); serverAddress.sin_addr.s_addr = INADDR_ANY; bind(serverSocket, (struct sockaddr*)&serverAddress, sizeof(serverAddress)); ``` 接下来，我们需要设置服务器监听队列的最大长度，使用`listen()`函数。 ```c listen(serverSocket, BACKLOG); ``` 现在，我们正式进入了服务器的工作循环，接受客户端的连接请求。 ```c while(1) { int clientSocket = accept(serverSocket, NULL, NULL); // 这里可以创建子进程或线程来处理客户端的连接 // 或使用非阻塞IO或异步IO来实现并发处理多个客户端 // 读取客户端发送的数据 char buffer[BUFFER_SIZE]; int bytesRead = recv(clientSocket, buffer, sizeof(buffer), 0); // 处理接收到的数据 // 发送数据给客户端 char response[] = "Hello, client!"; send(clientSocket, response, strlen(response), 0); // 关闭与客户端的连接 close(clientSocket); } ``` 以上就是一个简单的Linux C TCP服务器多客户端的实现。在实际应用中，可能需要使用多线程、多进程、非阻塞IO或者异步IO等技术来提高服务器的并发处理能力。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值