计算机网络试验网络编程.docVIP

计算机网络实验——网络编程 一．实验目的 熟悉和掌握网络编程的基本方法和步骤； 进一步理解client/server交互模式； 加深学生对于网络协议概念的理解以及协议的设计和实现方法 二．实验任务 使用任意网络编程语言（Java、C、VB、Delphi等）编写网络选课模拟程序，它由client和server两部分组成，client和server之间的通信基于TCP协议，并且实现NCSP应用层协议（Network-based Course Selection Protocol，见第四节）。 三．网络编程 大多数网络应用程序都遵从client/server交互模型。该模型中，服务器应用是一种专门用来提供某一种服务的程序，它被动地等待通信，而客户应用主动地启动通信，请求服务器的服务。服务器程序既可以接收信息也能发送信息，还可以成为客户。 TCP/UDP赋予每个服务一个唯一的协议端口号。服务器程序通过协议端口号来指定它所提供的服务，然后被动地等待通信。客户在发送连接请求时，必须说明服务器程序运行主机的IP地址和协议端口号来指定它所希望的服务。服务器端计算机通过此端口号将收到的请求转向正确的服务器程序。 大多数网络编程语言都提供或者使用控件封装了套接字应用程序接口（Socket API），应用程序通过套接字接口调用来实现和传输层交互。用户目前可以使用两种套接口，即流套接字TCP和数据报套接字UDP。流式套接字定义了一种可靠的面向连接的服务，提供了双向的，有序的，无重复并且无记录边界的数据流服务。数据报套接字定义了一种无连接的服务，支持双向的数据流，但并不保证是可靠，有序，无重复的。也就是说，一个从数据报套接字接收信息的进程有可能发现信息重复了，或者和发出时的顺序不同。数据报套接字的一个重要特点是它保留了记录边界。 套节字API主要包括表1所示的接口。 使用面向连接的套接字编程，通过图2来表示其时序。套接字工作过程如下：服务器首先启动，通过调用socket()建立一个套接字，然后调用bind()将该套接字和本地网络地址联系在一起，再调用listen()使套接字做好侦听的准备，并规定它的请求队列的长度，之后就调用accept()来接收连接。客户在建立套接字后就可调用connect()和服务器建立连接，连接一旦建立，客户机和服务器之间就可以通过调用read()和write()来发送和接收数据。最后，待数据传送结束后，双方调用close()关闭套接字。 表1 套节字API主要接口 接口 解释 SOCKET BIND LISTEN ACCEPT CONNET SEND RECV CLOSE 创建一个新的套接字 给服务器绑定一个传输层地址 将服务器设为被动模式 接收客户的一个请求 客户向服务器发起连接 向一个连接的套接字发送数据 从一个连接的套接字接收数据 终止一个连接 四．程序设计及编程思路 服务器端： 窗体设计：2文本框，txtServerPort用来输入打开的端口号，txtTCPChat用来实现来自客户端输入的数据；WinSock控件，命名为WinsockTCP;两个按钮，一个命名为cmdOpenPort,用来打开端口号，同时设置WinsockTCP控件为监听状态；另一个按钮用来推出服务器应用程序，命名为cmdClose. 具体代码如下： Option Explicit Dim HostName As String * 256 Dim HostIP As String Dim colHostName As Collection 存储用户 Dim colHostcourse As Collection 存储用户所选择的课程名 Private Sub Form_Load() 获取本地计算机的名称和IP HostName = WinsockTCP.LocalHostName HostIP = WinsockTCP.LocalIP 初始化端口号为1024 txtServerPort.Text = 1024 End Sub Private Sub cmdOpenPort_Click() If Trim$(txtServerPort.Text) = vbNullString Then MsgBox 请指定端口号！ Exit Sub End If 设置服务器的端口号 WinsockTCP.LocalPort = CLng(Trim$(txtServerPort.Text)) 服务器端WinSockTCP空间执行监听功能 WinsockTCP.Listen End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub WinsockTCP_ConnectionR