网络编程,计算机网络报告.doc

工业计算机网络实验报告实验3：计算机网络实验网络编程1一、实验目的：（1）熟悉和掌握网络编程的基本方法和步骤；（2）进一步理解client/server交互模式；（3）加深学生对于网络协议概念的理解以及协议的设计和实现方法。二、实验任务：使用任意网络编程语言（Java、C、VB、Delphi等）编写网络选课模拟程序，它由client和server两部分组成，client和server之间的通信基于TCP协议。实现数据的收发。三、网络编程：大多数网络应用程序都遵从client/server交互模型。该模型中，服务器应用是一种专门用来提供某一种服务的程序，它被动地等待通信，而客户应用主动地启动通信，请求服务器的服务。服务器程序既可以接收信息也能发送信息，还可以成为客户。TCP/UDP赋予每个服务一个唯一的协议端口号。服务器程序通过协议端口号来指定它所提供的服务，然后被动地等待通信。客户在发送连接请求时，必须说明服务器程序运行主机的IP地址和协议端口号来指定它所希望的服务。服务器端计算机通过此端口号将收到的请求转向正确的服务器程序。大多数网络编程语言都提供或者使用控件封装了套接字应用程序接口（Socket API），应用程序通过套接字接口调用来实现和传输层交互。用户目前可以使用两种套接口，即流套接字TCP和数据报套接字UDP。流式套接字定义了一种可靠的面向连接的服务，提供了双向的，有序的，无重复并且无记录边界的数据流服务。数据报套接字定义了一种无连接的服务，支持双向的数据流，但并不保证是可靠，有序，无重复的。也就是说，一个从数据报套接字接收信息的进程有可能发现信息重复了，或者和发出时的顺序不同。数据报套接字的一个重要特点是它保留了记录边界。套节字API主要包括表1所示的接口。使用面向连接的套接字编程，通过图2来表示其时序。套接字工作过程如下：服务器首先启动，通过调用socket()建立一个套接字，然后调用bind()将该套接字和本地网络地址联系在一起，再调用listen()使套接字做好侦听的准备，并规定它的请求队列的长度，之后就调用accept()来接收连接。客户在建立套接字后就可调用connect()和服务器建立连接，连接一旦建立，客户机和服务器之间就可以通过调用read()和write()来发送和接收数据。最后，待数据传送结束后，双方调用close()关闭套接字。表1 套节字API主要接口接口解释SOCKETBINDLISTENACCEPTCONNETSENDRECVCLOSE创建一个新的套接字给服务器绑定一个传输层地址将服务器设为被动模式接收客户的一个请求客户向服务器发起连接向一个连接的套接字发送数据从一个连接的套接字接收数据终止一个连接四程序设计及编程思路设 计 思 路大多数网络应用程序都遵从client/server交互模型。该模型中，服务器应用是一种专门用来提供某一种服务的程序，它被动地等待通信，而客户应用主动地启动通信，请求服务器的服务。服务器程序既可以接收信息也能发送信息，还可以成为客户。TCP/UDP赋予每个服务一个唯一的协议端口号。服务器程序通过协议端口号来指定它所提供的服务，然后被动地等待通信。客户在发送连接请求时，必须说明服务器程序运行主机的IP地址和协议端口号来指定它所希望的服务。服务器端计算机通过此端口号将收到的请求转向正确的服务器程序。SETCOURSE指令：当接收到client发送的GETCOURSE协议消息，返回该用户已经选择的所有课程名字；GETCOURSE指令：当接收到client发送的SETCOURSE协议消息，记录用户名和课程名，以便client使用GETCOURSE命令查询；SHUTDOWN指令：当接收到client发送的SHUTDOWN协议消息，检查用户是否有此权限，如果有则结束server程序服务器端：窗体设计：2文本框，txtServerPort用来输入打开的端口号，txtTCPChat用来实现来自客户端输入的数据；WinSock控件，命名为WinsockTCP;两个按钮，一个命名为cmdOpenPort,用来打开端口号，同时设置WinsockTCP控件为监听状态；另一个按钮用来推出服务器应用程序，命名为cmdClose. 具体代码如下：Option ExplicitDim HostName As String * 256Dim HostIP As StringDim colHostName As Collection 存储用户Dim colHostcourse As Collection 存储用户所选择的课程名Private Sub Form_Load()获取本地计算机的名称和IPHostName = WinsockTCP.LocalHostNameHostIP = WinsockTCP.LocalIP初始化端口号为1024txtServerPort.Text = 1024End SubPrivate Sub cmdOpenPort_Click()If Trim$(txtServerPort.Text) = vbNullString Then MsgBox 请指定端口号！ Exit SubEnd If设置服务器的端口号WinsockTCP.LocalPort = CLng(Trim$(txtServerPort.Text)服务器端WinSockTCP空间执行监听功能WinsockTCP.ListenEnd SubPrivate Sub cmdClose_Click()Unload MeEnd SubPrivate Sub WinsockTCP_ConnectionRequest(ByVal requestID As Long)On Error GoTo err检查控件的State属性是否为关闭的如果不是，在接受新的连接之前先关闭此连接If WinsockTCP.State sckClosed ThenWinsockTCP.CloseEnd If利用WinSock控件响应请求同时相集合中加入该客户端的地址colHostName.Add WinsockTCP.RemoteHostIPWinsockTCP.Accept requestIDerr: MsgBox err.DescriptionEnd SubPrivate Sub WinsockTCP_DataArrival(ByVal bytesTotal As Long)Dim sData As StringDim scourse As StringDim j As Longscourse = 请选择序号：1、单片机；2、传感器；3、电力电子技术；4、PLC；5、PLD；On Error GoTo errWinsockTCP.GetData sDatatxtTCPChat.Text = Trim$(txtTCPChat.Text) & _ Trim$(sData) & vbCrLfIf sData = getcourse Then WinsockTCP.SendData scourseElse If sData=sendcourse不会了End Iferr: MsgBox err.DescriptionEnd SubPrivate Sub WinsockTCP_Close()Unload WinsockTCPEnd Sub代码：客户端：窗体设计：txtClientChat用来显示客户端程序传送的文本、txtRemotePort用来输入远程服务器的端口、txtTCPHost用来设置远程服务器的名称、txtClientInput用来输入文本； 1个WinSock控件TcpClient,用来连接服务器端，并完成与服务器端交互的功能；4个标准按钮控件，cmdTCPCnn用来与服务器端建立连接、cmdTCPClose用来关闭所建立的连接、cmdClientClear用来清空聊天窗口、cmdClientSend 用来向服务器端发送用户输入的文字。具体代码如下：Option Explicit全局变量声明Dim HostName As String * 256Dim HostIP As StringPrivate Sub Form_Load()获得本地计算机的名称和IPHostName = TcpClient.LocalHostNameHostIP = TcpClient.LocalIPtxtClientChat.Enabled = FalsetxtClientInput.Enabled = False设置默认连接的服务器名和端口txtRemotePort.Text = 1024txtTCPHost.Text = sunnyEnd SubPrivate Sub cmdTCPCnn_Click()If Trim$(txtTCPHost.Text) = vbNullString Or _ Trim$(txtRemotePort.Text) = vbNullString Then MsgBox 请输入远程主机名和端口！ Exit SubEnd IfTcpClient.RemoteHost = Trim$(txtTCPHost.Text)TcpClient.RemotePort = CLng(Trim$(txtRemotePort.Text)TcpClient.ConnectEnd SubPrivate Sub cmdTCPClose_Click()On Error GoTo err断开与服务器的连接TcpClient.ClosestaTcpCnn.Panels(1).Text = 已退出系统！Exit Suberr: MsgBox err.DescriptionEnd SubPrivate Sub cmdClientClear_Click()txtClientChat.Text = vbNullStringEnd SubPrivate Sub cmdClientSend_Click()On Error GoTo errDim sSend As String发送输入的文本sSend = Trim$(txtClientInput.Text)TcpClient.SendData sSendExit Suberr: MsgBox err.DescriptionEnd SubPrivate Sub TcpClient_Connect()如果连接成功，那么文本框可用txtClientChat.Enabled = TruetxtClientInput.Enabled = TruestaTcpCnn.Panels(1).Text = 连接成功！End SubPrivate Sub TcpClient_DataArrival(ByVal bytesTotal As Long)该事件用来接收从服务器反回的数据，并显示On Error GoTo errDim s