VB6实现局域网多站点互连完全手册

　　随着时代的发展，我们已经步入了信息化时代，网络的普及和应用，使得越来越多的编程人员加入网络软件开发的行列。不过现在对于比较完整的介绍在局域网中多个站点互连的文章，笔者还未见到，这篇文章较完整的介绍了如何利用Visual Basic 6的Winsock控件实现局域网中多个站点在客户机/服务器模式下的互连，并给出了几种连接方案进行比较，对于Winsock编程过程中遇到的一些问题做了解答。

　　这里对Winsock控件的属性、方法和事件的介绍限于篇幅就不介绍了，下面以最简单的C/S模式下一台服务器和一台客户机的连接来说明其整个连接过程。

　　用框图表示如图1所示。首先运行服务器端的程序，使TcpServer处于监听状态，然后运行客户机端的程序，单击【连接服务器】按钮后，客户机端调用Connect方法呼叫服务器（根据RemoteHostIP远程计算机IP地址和RemotePort远程计算机端口号两个参数），然后客户机便处于正在连接服务器状态，等待服务器的响应。客户机调用Connect方法触发了服务器ConnectRequest事件，这时服务器端可以在此事件中判断是否要接受客户机的请求，如要就调用Accept方法，并置标志位说明已成功连接客户机。服务器端调用Accept方法后又触发了客户机端Connect事件，说明服务器端接受客户端的请求，双方已经建立连接了，这时再置客户机端的标志位，这就是一个完整的连接过程。当服务器或客户机调用Close方法关闭连接时，都会触发对方的Close事件，使其关闭连接。另外建立连接后发送数据的情况是客户机通过调用SendData方法发送数据给服务器，会触发服务器端的DataArrival事件，在这个事件中，服务器端可以调用GetData或PeekData方法把客户机发来的数据保存起来。服务器给客户机发信息同理。要注意一点的是，在服务器的Close事件中应该加上继续监听的代码，这样客户机才可以继续呼叫服务器。

　Winsock控件实现多机互连方案

　　下面是实现多机互连的三种方案。这里以三台机（分别命名为1号机、2号机和3号机）为例介绍。

　　方案一：一台机作为服务器，其余两台机作为客户机

　　1号机作为服务器，用一个Winsock控件数组负责监听客户机的呼叫请求并用来与客户机建立连接。用TcpServer（2）和TcpServer（3）两个Winsock控件数组分别与2号机和3号机建立连接。

　　这里采用的是动态加载和卸载Winsock控件数组来实现连接的，也就是服务器一定要开着，下面的客户机才能与其通过Winsock控件实现通讯，当服务器已经与其中的一台建立连接后，其它客户机还要呼叫服务器时，服务器就会加载新的Winsock控件来与其建立连接，当客户机退出连接时，服务器再卸载该Winsock控件。服务器建立连接时是根据客户机的IP地址来接受响应的，所以可以方便的区分不同客户机的呼叫请求。

　　不过这种方案会遇到一些问题：比如只要服务器关闭，其它客户机之间就无法进行数据交换了，而在服务器开的情况下，可以通过服务器的转发来完成客户机之间的数据交换。

　　方案二：三台机同时作为服务器和客户机

　　1号机、2号机和3号机没有层次等级之分，采用C/S模式。比如1号机既可以作为服务器接受其它两台机的呼叫请求，又可以作为客户机对其它两台机进行呼叫。用1号机做个比方：在1号机程序窗口中用两个Winsock控件数组，分别命名为TcpServer和TcpClient，TcpServer（0）用来对客户机进行监听，TcpServer（2）和TcpServer（3）是动态加载用来接受相应的客户机的请求来建立连接的。而TcpClient（2）和TcpClient（3）不是动态加载的，而是在Form_Load初始化过程中加载，用来呼叫相应的服务器。

　　这样也是可以实现多机互连的，不过也有些问题。如果1号机作为客户机呼叫2号机并已经收到2号机的响应建立了一条通讯链路，这时1号机又作为服务器接收到2号机的呼叫请求，并且也建立了一条通讯链路。这样二台机之间建立了两条链路，理论上两台机只要有一条链路就可以正常通讯，现在建立了两条链路，收发数据是否正常呢？通过测试，收发数据不会出错：当1号机给2号机发数据时，是通过1号机的TcpServer（2）或TcpClient（2）发送数据给2号机，而2号机是通过其TcpClient（1）或TcpServer（1）接收1号机的数据，双方两条链路互不干扰。不过这种方案还是不太可取，因为加载控件需要占用内存资源，每两台机之间其实只需一条链路就能正常通讯，现在又多了条链路，这对系统有限的资源是极大的浪费。

　　方案三：三台机有差互连

　　先解释一下什么叫有差互连。具体做法是：1号机只作为服务器监听2号和3号机的呼叫请求而不呼叫它们；2号机既是客户机又是服务器：作为客户机只呼叫1号机，而作为服务器监听3号机的呼叫请求；3号机只作为客户机对1号机和2号机进行呼叫，而不具备服务器监听的功能。所以说这几台机的连接是有差的，这种连接方式不会在两台机之间建立两条链路，因为网络中任意两台机只有一台可以呼叫对方或监听对方的呼叫请求，这样无论如何都不会产生两条通讯链路，节省了系统资源，又满足了局域网中任意两台机互连的要求，由此看来这个方案是最优方案。

　　下面介绍方案三的实现过程。

　　1号机

　　1号机的窗体（Form）上放置两个Winsock控件，一个名为TcpLsn，负责监听2号机和3号机的呼叫请求，另外一个为TcpConn，这是个控件数组，Index为2，即已经加载了TcpConn（2），这个控件是为了和2号机建立连接。在初始化过程中（Form_Load）设置服务器的监听端口号（TcpLsn.LocalPort）并使其处于监听状态（TcpLsn.Listen），并置与客户机连接成功的标志（TcpConnected数组，布尔型常量）为False。当TcpLsn监听到某个客户机的呼叫请求后（具体是哪个客户机是根据客户机IP地址判断），在TcpLsn的ConnectionRequest事件中动态加载TcpConn控件并调用Accept方法接受客户机的请求，与其建立连接（如果客户机是2号机，则无需再加载控件，因为在Form_Load中已经加载过了）。要注意的是，TcpLsn只是用来监听客户机的呼叫请求，而不是用来与客户机建立连接的，TcpConn控件数组才是与客户机建立连接的。当某一客户机断开连接时，会触发Tcpconn控件数组的Close事件，在这里可以根据客户机的IP地址来调用Close方法关闭与其相连的Tcpconn控件，并动态卸载之。同样TcpConn（2）不能卸载，因为其不是动态加载的。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有