VB语言程序设计教程（第二版）.pptVIP

12.2.3Winsock控件的常用事件1.Connect事件该事件在编写客户端应用程序时使用。当与服务器的连接成功后被触发。通常在该事件中写入连接成功提示信息并返回服务器IP等。2.ConnectionRequest事件该事件只能在使用TCP协议编写服务器应用程序时使用。当远程计算机请求连接时被触发，在该事件中经常使用Accept方法接受新请求的连接。12.2Winsock控件3.DataArrival事件当新的数据到达时触发，该事件的bytesTotal参数指明了新到达数据的总字节数。4.SendComplete事件当完成一个发送操作时触发。5.Close事件当远程计算机关闭连接时被触发。12.2Winsock控件12.2.4Winsock编程模型1.基于TCP的模型TCP协议是面向连接的协议，允许创建和维护与远程计算机的连接。连接两台计算机就可以彼此进行数据传输。将运行服务器应用程序的计算机称为服务器，运行客户端应用程序的计算机称为客户机。(1)如果创建服务器应用程序，就应设置一个侦听端口（LocalPort属性）并调用Listen方法侦听在这个端口上的传入信息。当客户机传来要求连接的请求时就会发生ConnectionRequest事件。可调用ConnectionRequest事件内的Accept方法完成连接。12.2Winsock控件(2)如果要创建客户端应用程序，就必须知道服务器的域名或IP地址，以便给RemoteHost属性设置值，还必须知道服务器应用程序（进程）在哪个端口上进行侦听，比便给RemotePort属性设置该端口值。最后调用Connect方法连接服务器。连接成功后，任何一方都可以收发数据。可以调用SendData方法来发送数据。当对方发来的数据达到时会触发DataArrival事件。此时可调用DataArrival事件内的GetData方法来接收数据。当所有数据都发送完成后，调用Close方法关闭TCP连接。12.2Winsock控件2.基于UDP的模型UDP协议是一个无连接协议，两台计算机传送数据之前并不需要建立连接。每台参与通信的计算机既可以是服务器，也可以是客户机。假设计算机1要向计算机2发送数据。首先要设置计算机2的LocalPort属性（假如：5678）。然后在计算机1端，将RemoteHost属性设置为计算机2的IP地址（），将RemotePort属性设置为计算机2的端口号（5678），并调用SendData方法来发送数据。最后，计算机2调用DataArrival事件内的GetData方法来接收计算机1发来的数据。12.2Winsock控件12.2.5Winsock控件用法示例——简易聊天程序下面分别列举两个示例来说明使用TCP协议和UDP协议开发简易聊天程序的过程。12.2Winsock控件【例12.1】使用TCP协议编写一个两台主机可以互相发信息聊天的程序。两台主机中一台为服务器，另一台为客户机。所以，需要编写两个程序，分别实现服务器的功能和客户机的功能。1.服务器端程序设计(1)启动VB6.0，新建一个标准EXE工程，将默认窗体名称改为frmServer。(2)选择“工程”菜单下的“工程1属性”菜单项，在打开的“工程1—工程属性”对话框中将“工程名称”栏中的内容改为“Server”，并单击“确定”按钮。(3)右击工具箱，选择“部件”菜单项，在打开的“部件”对话框控件列表中选中“MicrosoftWinsockControls6.0”项，单击“确定”按钮将Winsock控件添加到工具箱。12.2Winsock控件(4)在窗体frmServer上，按照下图绘制控件。12.2Winsock控件(5)各主要控件属性设置见下表。控件名属性名属性值窗体frmServerCaptionServerWinsock控件scktcpServer名称scktcpServer标签控件Label_State名称Label_State文本框txtSendDatatext(空)文本框txtShowtext(空)MultiLineTrueScrollBars2-VerticalLockedTrue12.2Winsock控件(6)编写事件过程如下。①初始化窗体装载事件中，首先将Winsock控件scktcpServer的Protocol属性设置为sckTCPProtocol，以便使用TCP协议与客户端通信；然后设置服务器的本地端口。最后调用Listen方法在此端口处侦听客户端